めもぶろぐ

お勉強したこと、趣味なんかを適当に書いてます。。。

VBA | まとめ

変数の宣言を必須にする

Option Explicit

 

 

最終行の取得

最終行 = Cells(Rows.Count, 1).End(xlUp).Row

 

 

最終列の取得

最終列 = Cells(2, Columns.Count).End(xlToLeft).Column

 

 

最終行まで処理する

最終行 = Cells(Rows.Count, 1).End(xlUp).Row

for ターゲット = 1 to 最終行

    cells(ターゲット, 1) = "foobar"

next ターゲット

 

 

caseで条件分岐

Select Case rst 
    Case Is >= 105
    With Cells(TR, 5)
        .Value = "S"
        .Font.Color = vbWhite
        .Interior.Color = vbBlack
    End With
Case Is >= 100
    Cells(TR, 5) = "A"
Case Is >= 95
    Cells(TR, 5) = "B"
Case Is >= 90
    Cells(TR, 5) = "C"
Case Else
    Cells(TR, 5) = "D"
End Select

withで、処理をまとめる

cells(1,1).value = "abc"

cells(1,1).Font.Color = vbWhite

cells(1,1).Interior.Color = vbBlack

⇒ With Cells(1,1)

        .value = "abc"

        .Font.Color = vbWhite

        .Interior.Color = vbBlack

    End With

 

 

 

 

 

 

広告を非表示にする