VBAStandard_Lesson

背景
投稿者投稿者neko  いいね0  お気に入り登録
プレイ回数1098  難易度(3.8) 713打 長文 英字
タグVBA
順位 名前 スコア 称号 打鍵/秒 正誤率 時間(秒) 打鍵数 ミス 問題 日付
1 あいかわようた 4335 C+ 4.5 95.8% 91.8 416 18 20 2026/01/11
2 aokihosi 1200 G+ 1.3 91.3% 318.2 422 40 20 2026/01/25

関連タイピング

関連タイピング一覧

問題文

ふりがな非表示 ふりがな表示
(ｂｙｖａｌ) 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")
問題文を全て表示 一部のみ表示 誤字・脱字等の報告