VBAStandard_Lesson
関連タイピング
-
プレイ回数1951英字170打
-
プレイ回数1705英字60秒
-
プレイ回数784英字85打
-
プレイ回数1.6万英字384打
-
プレイ回数1704英字676打
-
プレイ回数30860秒
問題文
(byvel)
ByVel
(byref)
ByRef
(dim a as string)
Dim A As String
(dim a(3) as string)
Dim A(3) As String
(split(”x-y-z”,”-”))
Split("X-Y-Z","-")
(for i = 0 to ubound(a))
For i = 0 To UBound(A)
(redim a(10))
ReDim A(10)
(redim preserve a(10))
ReDim Preserve A(10)
(dim a as range)
Dim A As Range
(dim a as worksheet)
Dim A As Worksheet
(dim a as workbook)
Dim A As Workbook
(dim a as object)
Dim A As Object
(set a = range(”a1”))
Set A = Range("A1")
(set a = nothing)
Set A = Nothing
(dim a as long,b as long,c as long)
Dim A As Long,B As Long,C As Long
(for i 0 to 5)
For i 0 To 5
(exit sub)
Exit Sub
(select case end select)
Select Case End Select
(case ”ok” case else)
Case "OK" Case Else
(do while range(”a1”) = ”” loop)
Do While Range("A1") = "" Loop
(do until range(”a1”) <> ”” loop)
Do Until Range("A1") <> "" Loop
(do loop while range(”a1”) = ””)
Do Loop While Range("A1") = ""
(do loop until range(”a1”) <> ””)
Do Loop Until Range("A1") <> ""
(for each c in range(”a1:a5”) next c)
For Each C In Range("A1:A5") Next C
(for each s in selection next s)
For Each C In Selection Next C
(if ”a” or ”b” then end if)
If "A" Or "B" Then End If
(if ”a” and ”b” then end if)
If "A" And "B" Then End If
(workbooks.open ”c:¥path¥book.xlsx”)
Workbooks.Open "C:\Path\BOOK.xlsx"
(activeworkbooks.saveas ”book.xlsx”)
ActiveWorkbooks.SaveAs "BOOK.xlsx"
(format(now,”yyyymmdd”))
Format(Now,"yyyymmdd")
(filecopy ”org.xlsx”,”new.xlsx”)
FileCopy "Org.xlsx","New.xlsx"
(mkdir ”c:¥path¥newdir”)
MkDir "C:\Path\NewDir"
(worksheetfunction.sum(range(”a1:c5”)))
WorksheetFunction.Sum(Range("A1:C5")
※誹謗中傷、公序良俗に反するコメント、個人情報の投稿、歌詞の投稿、出会い目的の投稿、無関係な宣伝行為は禁止です。削除対象となります。
※このゲームにコメントするにはログインが必要です。
※コメントは日本語で投稿してください。