VBAスタンダード練習
| 順位 | 名前 | スコア | 称号 | 打鍵/秒 | 正誤率 | 時間(秒) | 打鍵数 | ミス | 問題 | 日付 |
|---|---|---|---|---|---|---|---|---|---|---|
| 1 | ku | 5056 | B+ | 5.0 | 99.2% | 132.7 | 676 | 5 | 50 | 2025/01/13 |
| 2 | ku | 4810 | B | 4.8 | 99.4% | 139.7 | 676 | 4 | 50 | 2024/11/21 |
| 3 | あ | 3094 | E++ | 3.1 | 98.3% | 214.9 | 676 | 11 | 50 | 2025/03/02 |
| 4 | しげ | 1809 | F | 1.9 | 91.3% | 338.2 | 676 | 64 | 50 | 2025/02/24 |
| 5 | それいゆ | 1675 | G++ | 1.7 | 94.8% | 381.4 | 676 | 37 | 50 | 2025/02/04 |
関連タイピング
-
コード集
プレイ回数1.7万英字384打 -
エクセル関数名をタイピングする。
プレイ回数808短文英字107打 -
プレイ回数668長文英字713打 -
表計算２級対策
プレイ回数77958打 -
プレイ回数39660秒 -
イフを覚えて欲しくて作りました。
プレイ回数758長文886打 -
プレイ回数640長文763打 -
イフを覚えて欲しくて作りました。
プレイ回数614長文1169打
問題文
(ｖａｒｉａｎｔ)
Variant
(ｌｂｏｕｎｄ)
LBound
(ｒｅｄｉｍ ｐｒｅｓｅｒｖｅ)
ReDim Preserve
(ｓｅｔ ａ ＝ ｎｏｔｈｉｎｇ)
Set A = Nothing
(ｄｏ ｕｎｔｉｌ)
Do Until
(ｌｏｏｐ ｕｎｔｉｌ)
Loop Until
(ｄｏ ｗｈｉｌｅ ｃｅｌｌｓ（ｉ， １） ＝ ”ｘｘ”)
Do While Cells(i, 1) = "xx"
(ｌｏｏｐ ｗｈｉｌｅ ｃｅｌｌｓ（ｉ， １） ＝ ”ｘｘ”)
Loop While Cells(i, 1) = "xx"
(ｃａｓｅ ｉｓ)
Case Is
(ｃａｓｅ ｅｌｓｅ)
Case Else
(ｆｏｒ ｅａｃｈ ａ ｉｎ ｓｅｌｅｃｔｉｏｎ)
For Each A In Selection
(ｌａｒｇｅ)
Large
(ｓｍａｌｌ)
Small
(ｗｏｒｋｓｈｅｅｔｆｕｎｃｔｉｏｎ)
WorksheetFunction
(ｉｆ ａ ｉｓ ｎｏｔｈｉｎｇ ｔｈｅｎ)
If A Is Nothing Then
(ｉｆ ｎｏｔ ａ ｉｓ ｎｏｔｈｉｎｇ ｔｈｅｎ)
If Not A Is Nothing Then
(ｃｕｒｒｅｎｔｒｅｇｉｏｎ)
CurrentRegion
(ｐｈｏｎｅｔｉｃ．ｔｅｘｔ)
Phonetic.Text
(ｓｕｂｔｏｔａｌ)
Subtotal
(ｔｈｉｓ ｗｏｒｋｂｏｏｋ．ｐａｔｈ)
This Workbook.Path
(ｆｏｒｍａｔ（ｎｏｗ， ”ｙｙｙｙｍｍｄｄ”）)
Format(Now, "yyyymmdd")
(ｌｏｏｋａｔ：＝ｘｌｗｈｏｌｅ)
LookAt:=xlWhole
(ｆｉｎｄ（ｗｈａｔ：＝．．．ｌｏｏｋａｔ：＝．．．）)
Find(What:=...LookAt:=...)
(ｌｏｏｋａｔ：＝ｘｌｐａｒｔ)
LookAt:=xlPart
(ｆｉｌｅｃｏｐｙ)
FileCopy
(ｃｅｌｌｓ（ｒｏｗｓ．ｃｏｕｎｔ， １）．ｅｎｄ（ｘｌｕｐ）．ｒｏｗ)
Cells(Rows.Count, 1).End(xlUp).Row
(ｍｋｄｉｒ)
MkDir
(ｅｎｔｉｒｅｒｏｗ)
EntireRow
(ｅｎｔｉｒｅｃｏｌｕｍｎ)
EntireColumn
(ｒｅｓｉｚｅ（１， ３）)
Resize(1, 3)
(ｏｆｆｓｅｔ（０， １）)
Offset(0, 1)
(ａｕｔｏｆｉｌｔｅｒ ｆｉｅｌｄ：＝１)
AutoFilter Field:=1
(ｘｌｏｒ)
xlOr
(ｘｌａｎｄ)
xlAnd
(ｓｏｒｔ．ｓｏｒｔｆｉｅｌｄ．ｃｌｅａｒ)
Sort.SortField.Clear
(ｓｏｒｔ．ｓｏｒｔｆｉｅｌｄ．ａｄｄ２)
Sort.SortField.Add2
(ｘｌａｓｃｅｎｄｉｎｇ)
xlAscending
(ｘｌｄｅｓｃｅｎｄｉｎｇ)
xlDescending
(ｈｅａｄｅｒ ＝ ｘｌｙｅｓ)
Header = xlYes
(ｈｅａｄｅｒ ＝ ｘｌｎｏ)
Header = xlNo
(ｓｅｔｒａｎｇｅ)
SetRange
(ｄａｔａｂｏｄｙｒａｎｇｅ)
DataBodyRange
(ｈｅａｄｅｒｒｏｗｒａｎｇｅ)
HeaderRowRange
(ｌｉｓｔｃｏｌｕｍｎｓ)
ListColumns
(ｌｉｓｔｒｏｗｓ)
ListRows
(ｏｎ ｅｒｒｏｒ ｇｏｔｏ ０)
On Error GoTo 0
(ｏｎ ｅｒｒｏｒ ｒｅｓｕｍｅ ｎｅｘｔ)
On Error Resume Next
(ｄｅｂｕｇ．ｐｒｉｎｔ)
Debug.Print
(ｕｂｏｕｎｄ)
UBound
(ｒｅｄｉｍ)
ReDim