VBAStandard_Lesson

背景
投稿者投稿者neko  いいね0  お気に入り登録
プレイ回数433  難易度(3.8) 713打 長文 英字
タグVBA
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
1 ku 4803 B 4.8 99.5% 94.3 455 2 20 2024/11/19
2 ku 4490 C+ 4.5 98.9% 99.1 450 5 20 2024/12/20
3 ようた 4152 C 4.2 98.1% 111.5 472 9 20 2024/12/17

関連タイピング

関連タイピング一覧

問題文

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

(ｂｙｖａｌ)

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")

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