セレクトした領域の背景色に応じて値を設定
- Selectionを使って選択領域にアクセスできる
- Selectionの要素はfor each文により個別アクセス可能
- 背景食はInterior.Colorでアクセス
- &Hffffffは白
- .Valueによってセル値のアクセスが可能
Sub テスト欄に〇を付ける()
Dim c As Range
For Each c In Selection
If c.Interior.Color = &HFFFFFF Then
c.Value = "〇"
End If
Next c
End Sub
0 件のコメント:
コメントを投稿