| |
Ctrl + Shift + Wでエクセルの背景色を変えたいと思っています。
以下の内容で1つのセルであれば色を変えることができたのですが、
複数セルを選択している場合に色がかわりません。
お分かりのなる方お教えいただけますと幸いです。
Dim changeCount As Integer
Private Sub Workbook_Open()
changeCount = 0
Application.OnKey "^+W", "ChangeCellColor"
End Sub
Sub ChangeCellColor()
changeCount = changeCount + 1
Select Case changeCount
Case 1
' 選択されたすべてのセルに黄色を設定
ActiveCell.Interior.Color = RGB(255, 255, 0) ' 黄色
End With
Case 2
' 選択されたすべてのセルにオレンジを設定
ActiveCell.Interior.Color = RGB(255, 165, 0) ' オレンジ
End With
Case 3
' 選択されたすべてのセルに濃い黄色を設定
ActiveCell.Interior.Color = RGB(255, 204, 0) ' 濃い黄色
End With
changeCount = 0 ' カウントをリセット
End Select
End Sub
|
|
ロケットマン
- 24/8/5(月) 14:48 -
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
≪
