データの高速処理(EXCEL VBA

・スマホ向けフリック入力タイピングはこちら
※アプリのインストールが必要です。
・PC向けタイピングはこちら
タブレット＋BlueToothキーボードのプレイもこちらがオススメです！
Webアプリでプレイ
投稿者投稿者どらねこ  いいね4  お気に入り登録1
プレイ回数5621  難易度(3.9) 1327打 長文 英字

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示
(ｏｐｔｉｏｎ　ｅｘｐｌｉｃｉｔ) 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
問題文を全て表示 一部のみ表示 誤字・脱字等の報告