データの高速処理(EXCEL VBA

背景
投稿者投稿者どらねこ  いいね4  お気に入り登録1
プレイ回数5372  難易度(3.9) 1327打 長文 英字
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
1 ku 4964 B 5.0 98.8% 264.1 1327 16 50 2024/11/21
2 ku 4845 B 4.8 99.5% 272.6 1327 6 50 2024/09/23

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示

(ｏｐｔｉｏｎ　ｅｘｐｌｉｃｉｔ)

Option Explicit

(ｏｐｔｉｏｎ　ｂａｓｅ　１)

Option Base 1

(ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ＝ｆａｌｓｅ)

Application.ScreenUpdating=False

(ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ＝ｆａｌｓｅ)

Application.DisplayAlerts=False

(ｄｉｍ　ｍｙｆ　ａｓ　ｓｔｒｉｎｇ)

Dim MyF As String

(ｍｙｆ＝ａｐｐｌｉｃａｔｉｏｎ．ｇｅｔｏｐｅｎｆｉｌｅｎａｍｅ（　，　，）)

MyF=Application.GetOpenFileName(,,)

(ｉｆ　ｍｙｆ＝ｆａｌｓｅ　ｔｈｅｎ)

If MyF=False Then

(ｅｘｉｔ　ｓｕｂ　 ｅｎｄ　ｉｆ)

Exit Sub End If

(ｄｉｍ　ｍｙｆｓｏ　ａｓ　ｎｅｗ　ｆｉｌｅｓｙｓｔｅｍｏｂｊｅｃｔ)

Dim MyFSO As New FileSystemObject

(ｄｉｍ　ｍｙｆｉｌｅ　ａｓ　ｆｉｌｅ)

Dim MyFile As File

(ｓｅｔ　ｍｙｆｉｌｅ＝ｍｙｆｓｏ．ｇｅｔｆｉｌｅ（ｍｙｆ）)

Set MyFile=MyFSO.GetFile(MyF)

(ｍｙｆｉｌｅ．ｎａｍｅ＝ｍｙｆｓｏ．ｇｅｔｂａｓｅｎａｍｅ（ｍｙｆ）　＆)

MyFile.Name=MyFSO.GetBaseName(MyF) &

(ｗｏｒｋｂｏｏｋｓ．ｏｐｅｎｔｅｘｔ，　＿)

Workbooks.OpenText, _

(ｆｉｌｅｎａｍｅ：＝ｍｙｆｉｌｅ．ｎａｍｅ，　＿ ｓｔａｒｔｒｏｗ：＝１，　＿)

Filename:=MyFile.name, _ StartRow:=1

(ｄａｔａｔｙｐｅ：＝ｘｌｄｅｌｉｍｉｔｅｄ，ｃｏｍｍａ：＝ｔｒｕｅ，　＿)

DataType:=xlDelimited,comma:=True, _

(ｆｉｅｌｄｉｎｆｏ：＝ａｒｒａｙ（ａｒｒａｙ（１，　），　）)

fieldinfo:=Array(Array(1, ), )

(ｗｏｒｋｓｈｅｅｔｓ．ａｄｄ　ａｆｔｅｒ：＝)

Worksheets.Add after:=

(ａｃｔｉｖｅｓｈｅｅｔ．ｎａｍｅ＝”　”)

ActiveSheet.Name="　"

(ｃｅｌｌｓ（，）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｃｏｐｙ，　＿)

Cells(,).CurrentRegion.Copy, _

(ｄｅｓｔｉｎａｔｉｏｎ：＝ｃｅｌｌｓ（，）)

Destination:=Cells(,)

など

(ｃｅｌｌｓ（１，１）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｓｏｒｔ，　＿)

Cells(1,1).CurrentRegion.Sort, _

(ｋｅｙ１：＝ｃｅｌｌｓ（，），　＿ ｏｒｄｅｒ１：＝ｘｌａｓｃｅｎｄｉｎｇ，　＿)

key1:=Cells(,),_ order1:=xlAscending

(ｋｅｙ２：＝ｃｅｌｌｓ（，），＿ ｏｒｄｅｒ２：＝ｘｌａｓｃｅｎｄｉｎｇ，　＿)

key2:=Cells(,),_ order2:=xlAscending

(ｈｅａｄｅｒ：＝ｘｌｙｅｓ)

Header:=xlYes

(ｄｉｍ　ｍｙａｒｒａｙ１　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray1 As Variant

(ｄｉｍ　ｍｙａｒｒａｙ２（）　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray2() As Variant

(ｄｉｍ　ｍｙａｒｒａｙ３（）　ａｓ　ｖａｒｉａｎｔ)

Dim MyArray3() As Variant

(ｍｙａｒｒａｙ１＝ｃｅｌｌｓ（，）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｖａｌｕｅ)

MyArray1=cells(,).CurrentRegion.Valu

(ｄｉｍ　ｉ　ａｓ　ｌｏｎｇ　 ｄｉｍ　ｊ　ａｓ　ｌｏｎｇ)

Dim i As Long Dim j As long

(ｄｉｍ　ｉｘ　ａｓ　ｌｏｎｇ：ｉｘ＝０)

Dim ix As long:ix=0

(ｆｏｒ　ｉ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ１，１）)

For i=1 to Ubound(MyArray1,1)

(ｉｆ　ｍｙａｒｒａｙ１（ｉ，　）　　　　ｔｈｅｎ 　ｉｘ＝ｉｘ＋１)

If MyArray1(i, ) then ix=ix+1

(ｒｅｄｉｍ　ｐｒｅｓｅｒｖｅ　ｍｙａｒｒａｙ２（　，ｉｘ）)

Redim Preserve MyArray2( ,ix)

(ｍｙａｒｒａｙ２（１，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ，　）)

MyArray2(1,ix)=MyArray1(i, )

(ｍｙａｒｒａｙ２（２，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ，　）)

MyArray2(2,ix)=MyArray1(i, )

(ｅｎｄ　ｉｆ　 ｎｅｘｔ　ｉ)

End if　 Next i

(ｒｅｄｉｍ　ｍｙａｒｒａｙ３（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２），　＿)

ReDim MyArray3(Ubound(MyArray2,2), _

(ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１））)

UBound(MyArray2,1))

(ｆｏｒ　ｉ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)

For i=1 to UBound(MyArray2,2)

(ｆｏｒ　ｊ＝１　ｔｏ　ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１）)

For j=1 to UBound(MyArray2,1)

(ｍｙａｒｒａｙ３（ｉ，ｊ）＝ｍｙａｒｒａｙ２（ｊ，ｉ）)

MyArray3(i,j)=MyArray2(j,i)

(ｎｅｘｔ　ｊ　 ｎｅｘｔ　ｉ)

Next j　 Next i

(ｒａｎｇｅ（ｃｅｌｌｓ（１，１），　＿)

Range(cells(1,1), _

(ｃｅｌｌｓ（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ３，１），ｕｂｏｕｎｄ（ｍｙａｒｒａｙ３，２））．　＿)

Cells(UBound(MyArray3,1),UBound(MyAr

(ｖａｌｕｅ＝ｍｙａｒｒａｙ３)

Value=MyArray3

(ｗｏｒｋｂｏｏｋｓ（ｍｙｆｉｌｅ．ｎａｍｅ）．ｃｌｏｓｅ，　＿)

Workbooks(MyFile.Name).Close, _

(ｓａｖｅｃｈａｎｇｅｓ：＝ｆａｌｓｅ)

savechanges:=False

(ｍｙｆｉｌｅ．ｎａｍｅ＝ｍｙｆｓｏ．ｇｅｔｂａｓｅｎａｍｅ（ｍｙｆ）　＆)

MyFile.Name=MyFSO.GetBaseName(MyF) &

(ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ＝ｔｒｕｅ)

Application.ScreenUpdating=True

(ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ＝ｔｒｕｅ)

Application.DisplayAlerts=True

問題文を全て表示 一部のみ表示 誤字・脱字等の報告