大文字と小文字の区別 Set B = Range("A:A").Find(What:=A, 【 1 】:=False)
MatchCase
Sub Test1() Range("A1").AutoFilter 【 1 】:=1, 【 2 】:="大阪" End Sub
解答【1】 Field 解答【2】 Criteria1
★ With Worksheets("Sheet1").Sort .【 1 】.【 2 】【 3 】:=Range("C1")
解答【1】 SortFields 解答【2】 Add2 解答【3】 Key
文字列も数値として並び替えたい .SortFields.Add2 Key:=Range("A1"),【 1 】:=【 2 】
解答【1】 DataOption 解答【2】 xlSortTextAsNumbers★★★
A列で背景色が付いたセルを上位に表示したい 【 1 】:=【 2 】
解答【1】 SortOn 解答【2】 xlSortOnCellColor
1行目をタイトル行に指定するどうかは自動的に判断されるようにしたい .【 1 】=【 2 】
解答【1】 Header 解答【2】 xlGuess
ふりがな順に並び替えたい .【 1 】=【 2 】
解答【1】 SortMethod 解答【2】 xlPinYin
数値を左から大きい順に並び替えたい。
解答【1】 Orientation 解答【2】 xlLeftToRight
上から大きい順に並び替わった。 Range("A1").【 1 】【 2 】:=Range("C2"),【 3 】:=xlDescending,
解答【1】 Sort 解答【2】 Key1 解答【3】 Order1
値で並び替えたい。 SortOn:=【 1 】, _
xlSortOnValues（未指定の場合も同様）
見出し行 Range("テーブル1【 1 】").Copy
[#Headers]
★集計行 Range("テーブル1【 1 】").Copy
[#Totals]
ブックを最後に保存した状態から変更していないか ThisWorkbook.【 1 】
Saved
ブックのシート構成が保護 ActiveWorkbook.【 1 】
ProtectStructure
半角を全角に変換 【 1 】((Cells(i, 1)),【 2 】)
解答【1】 StrConv 解答【2】 vbWide
全角を半角に変換 【 1 】(Cells(i, 1),【 2 】)
解答【1】 StrConv 解答【2】 vbNarrow
数値を3桁区切り Cells(i, 1).【 1 】= "#,##0"
NumberFormat
イミディエイトウィンドウに「String」が表示 Debug.Print【 1 】(A)
TypeName
A = Split("A&B&C&D", "&") MsgBox A(2)
C
Sub Test1() Dim i As Long For i = 2 To 6 If Cells(i, 1) >= 70【 1 】Cells(i, 2) >= 70 Then Cells(i, 3) = "合格" 【 2 】 Cells(i, 3) = "不合格" 【 3 】 Next i End Sub
解答【1】 And 解答【2】 Else 解答【3】 End If
Select文 【 1 】Cells(1, 1) Case Is < 10 MsgBox "小" Case Is < 100 MsgBox "中" 【 2 】 MsgBox "大" 【 3 】
解答【1】 Select Case 解答【2】 Case Else 解答【3】 End Select
名前を付けて保存 ThisWorkbook.【 1 】"C:\売上\ExcelVBAスタンダード.xlsx"
SaveAs
今年の年 MsgBox【 1 】(【 2 】)
解答【1】 Year 解答【2】 Now
値を日付型に変換 Range("A1") =【 1 】(Range("A1"))
CDate
前回設定した並び替えの条件をクリア With Worksheets("Sheet1").Sort .SortFields.【 1 】
Clear
データの並び替えの範囲を指定 .【 1 】Range("A1:C7")
SetRange
データの並び替えの順番が昇順 .SortFields.Add2 Key:=Range("C1"), 【 1 】:=【 2 】
解答【1】 Order 解答【2】 xlAscending
データの並び替えの順番が降順 .SortFields.Add2 Key:=Range("C1"), 【 1 】:=【 2 】
解答【1】 Order 解答【2】 xlDescending
エラーの情報をリセット 【 1 】.【 2 】
解答【1】 Err 解答【2】 Clear
Set A = Range("A1:A7").【 1 】(【 2 】:="東京",【 3 】:=xlWhole)
解答【1】 Find 解答【2】 What 解答【3】 LookAt
「2022/12/01」 MsgBox【 1 】(2022, 12, 1)
DateSerial
