ゲスト ログインしていません

VBA2

まりな 2024年04月05日 カード31 いいね0

広告

単語カード

  • 大文字と小文字の区別　 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
広告

コメント