②Open,Add,Sort

・スマホ向けフリック入力タイピングはこちら
※アプリのインストールが必要です。
・PC向けタイピングはこちら
タブレット＋BlueToothキーボードのプレイもこちらがオススメです！
Webアプリでプレイ
投稿者投稿者どらねこ  いいね0  お気に入り登録
プレイ回数262  難易度(4.3) 328打 長文 英字
EXCEL VBA　データ高速処理　その２
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
1 あいかわようた 3959 D++ 4.1 96.4% 79.8 328 12 11 2025/03/19

関連タイピング

関連タイピング一覧

問題文

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

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

Workbooks.OpenText Filename:=MyFile.

(ｓｔａｒｔｒｏｗ：＝１，　＿)

StartRow:=1, _

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

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

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

DataType:=xlDelimited,comma:=True

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

Worksheets.Add after:=

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

ActiveSheet.Name="　"

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

Cells(1,1).CurrentRegion.Copy cel

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

Cells(1,1).CurrentRegion.Sort

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

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

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

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

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

Header:=xlYes