VBAStandard_Lesson

背景
投稿者投稿者neko  いいね0  お気に入り登録
プレイ回数672  難易度(3.8) 713打 長文 英字
タグVBA
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
1 ku 5078 B+ 5.1 99.0% 83.3 427 4 20 2025/03/08
2 ku 5050 B+ 5.0 99.7% 88.5 448 1 20 2025/01/09
3 名も無きタイパー 4392 C+ 4.5 97.2% 95.4 431 12 20 2025/03/29
4 あ 2064 F+ 2.1 94.8% 185.5 405 22 20 2025/02/11
5 とし坊 1011 G+ 1.1 90.9% 422.3 474 47 20 2025/03/31

関連タイピング

関連タイピング一覧

問題文

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

(ｂｙｖａｌ)

ByVal

(ｂｙｒｅｆ)

ByRef

(ｄｉｍ　ａ　ａｓ　ｓｔｒｉｎｇ)

Dim A As String

(ｄｉｍ　ａ（３）　ａｓ　ｓｔｒｉｎｇ)

Dim A(3) As String

(ｓｐｌｉｔ（”ｘ－ｙ－ｚ”，”－”）)

Split("X-Y-Z","-")

(ｆｏｒ　ｉ　＝　０　ｔｏ　ｕｂｏｕｎｄ（ａ）)

For i = 0 To UBound(A)

(ｒｅｄｉｍ　ａ（１０）)

ReDim A(10)

(ｒｅｄｉｍ　ｐｒｅｓｅｒｖｅ　ａ（１０）)

ReDim　Preserve A(10)

(ｄｉｍ　ａ　ａｓ　ｒａｎｇｅ)

Dim A As Range

(ｄｉｍ　ａ　ａｓ　ｗｏｒｋｓｈｅｅｔ)

Dim A As Worksheet

(ｄｉｍ　ａ　ａｓ　ｗｏｒｋｂｏｏｋ)

Dim A As Workbook

(ｄｉｍ　ａ　ａｓ　ｏｂｊｅｃｔ)

Dim A As Object

(ｓｅｔ　ａ　＝　ｒａｎｇｅ（”ａ１”）)

Set A = Range("A1")

(ｓｅｔ　ａ　＝　ｎｏｔｈｉｎｇ)

Set A = Nothing

(ｄｉｍ　ａ　ａｓ　ｌｏｎｇ，ｂ　ａｓ　ｌｏｎｇ，ｃ　ａｓ　ｌｏｎｇ)

Dim A As Long,B As Long,C As Long

(ｆｏｒ　ｉ　０　ｔｏ　５)

For i 0 To 5

(ｅｘｉｔ　ｓｕｂ)

Exit Sub

(ｓｅｌｅｃｔ　ｃａｓｅ ｅｎｄ　ｓｅｌｅｃｔ)

Select Case End Select

(ｃａｓｅ　”ｏｋ” ｃａｓｅ　ｅｌｓｅ)

Case "OK" Case Else

(ｄｏ　ｗｈｉｌｅ　ｒａｎｇｅ（”ａ１”）　＝　”” ｌｏｏｐ)

Do While Range("A1") = "" Loop

など

(ｄｏ　ｕｎｔｉｌ　ｒａｎｇｅ（”ａ１”）　＜＞　”” ｌｏｏｐ)

Do Until Range("A1") <> "" Loop

(ｄｏ ｌｏｏｐ　ｗｈｉｌｅ　ｒａｎｇｅ（”ａ１”）　＝　””)

Do Loop While Range("A1") = ""

(ｄｏ ｌｏｏｐ　ｕｎｔｉｌ　ｒａｎｇｅ（”ａ１”）　＜＞　””)

Do Loop Until Range("A1") <> ""

(ｆｏｒ　ｅａｃｈ　ｃ　ｉｎ　ｒａｎｇｅ（”ａ１：ａ５”） ｎｅｘｔ　ｃ)

For Each C In Range("A1:A5") Next C

(ｆｏｒ　ｅａｃｈ　ｓ　ｉｎ　ｓｅｌｅｃｔｉｏｎ ｎｅｘｔ　ｓ)

For Each C In Selection Next C

(ｉｆ　”ａ”　ｏｒ　”ｂ”　ｔｈｅｎ ｅｎｄ　ｉｆ)

If "A" Or "B" Then End If

(ｉｆ　”ａ”　ａｎｄ　”ｂ”　ｔｈｅｎ ｅｎｄ　ｉｆ)

If "A" And "B" Then End If

(ｗｏｒｋｂｏｏｋｓ．ｏｐｅｎ　”ｃ：￥ｐａｔｈ￥ｂｏｏｋ．ｘｌｓｘ”)

Workbooks.Open "C:\Path\BOOK.xlsx"

(ａｃｔｉｖｅｗｏｒｋｂｏｏｋｓ．ｓａｖｅａｓ　”ｂｏｏｋ．ｘｌｓｘ”)

ActiveWorkbooks.SaveAs "BOOK.xlsx"

(ｆｏｒｍａｔ（ｎｏｗ，”ｙｙｙｙｍｍｄｄ”）)

Format(Now,"yyyymmdd")

(ｆｉｌｅｃｏｐｙ　”ｏｒｇ．ｘｌｓｘ”，”ｎｅｗ．ｘｌｓｘ”)

FileCopy "Org.xlsx","New.xlsx"

(ｍｋｄｉｒ　”ｃ：￥ｐａｔｈ￥ｎｅｗｄｉｒ”)

MkDir "C:\Path\NewDir"

(ｗｏｒｋｓｈｅｅｔｆｕｎｃｔｉｏｎ．ｓｕｍ（ｒａｎｇｅ（”ａ１：ｃ５”））)

WorksheetFunction.Sum(Range("A1:C5")

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