VBA記事9. 表示形式 背景色操作

 

まず上記のような表を用意してください。（------>は’------>と打つことで入力できます。）

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

Sub sample10()

Dim i As Variant

For i = 3 To 5

Cells(i, 4) = Cells(i, 3) * Cells(i, 2)

Cells(i, 4).NumberFormatLocal = "#,##0"

Next

Columns(1).NumberFormatLocal = "yyyy/mm/dd"

Columns(2).Interior.Color = vbYellow

End Sub

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊

そして上記のコードを打ち込むと図の左のようになります。

Column(1)とColumn(2)は縦列全てに適用されますが、

Cells(i,4) だとこの場合 iは３～５なので ６行目以降には＃,＃＃０が適用されていないのがわかります。

また、cells(i,4)はFor～Nextの間に入っていないと機能しません。

これはFor～Nextの外だとiに値が入らないからです。