VBAスタンダード練習

・スマホ向けフリック入力タイピングはこちら
※アプリのインストールが必要です。
・PC向けタイピングはこちら
タブレット＋BlueToothキーボードのプレイもこちらがオススメです！
Webアプリでプレイ
投稿者投稿者Semi  いいね4  お気に入り登録
プレイ回数2694  難易度(2.7) 676打 英字
タグVBA タイピング EXcel エクセル
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
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

関連タイピング

関連タイピング一覧

問題文

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

(ｖａｒｉａｎｔ)

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

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