②Open,Add,Sort
| 順位 | 名前 | スコア | 称号 | 打鍵/秒 | 正誤率 | 時間(秒) | 打鍵数 | ミス | 問題 | 日付 |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | あいかわようた | 4117 | C | 4.2 | 96.1% | 76.5 | 328 | 13 | 11 | 2026/09/23 |
関連タイピング
-
プレイ回数447 長文かな360打 -
プレイ回数356 長文英字686打
-
プレイ回数377 長文英字293打
-
プレイ回数5718 長文英字1327打 -
最適化の練習用
プレイ回数259 短文かな87打
問題文
ふりがな非表示
ふりがな表示
(ｗｏｒｋｂｏｏｋｓ．ｏｐｅｎｔｅｘｔ ｆｉｌｅｎａｍｅ：＝ｍｙｆｉｌｅ．ｎａｍｅ， ＿)
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