気軽に楽しくプログラムと遊ぶ

自分が興味があってためになるかもって思う情報を提供しています。

VBAの基本構文

繰り返し

For i = startIndex To endIndex
  ' 繰り返し処理
Next i

条件分岐

    '値が存在しない場合に処理を実施
    If value = "" Then
      '処理
    End If

形式を選択して貼り付ける(値貼り付け)

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False

Pasteに設定する属性

書式:xlPasteFormats
数式:xlPasteFormulas

選択行に色づけ

    With Selection.Font
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
    End With

ThemeColorに設定できる内容は以下を参照

http://www.happy2-island.com/excelsmile/smile03/capter00608.shtml

広告を非表示にする