[[20220312224311]]　『ダブルクリックで塗りつぶし』（R）　ページの最後に飛ぶ

『ダブルクリックで塗りつぶし』（R）

ダブルクリックで塗りつぶしできるように以下のマクロを組んでいます。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

　If Intersect(Target, Range("I9:BP9")) Is Nothing Then Exit Sub

　With Selection.Interior
　　If .ColorIndex = xlNone Then
　　　.ColorIndex = 45
　　Else
　　　.ColorIndex = xlNone
　　End If
　End With

　Cancel = True

End Sub

これをI9からBP9は45の色、I12からBP12は15の色…と行によって色をわけるコードを教えてください。

＜使用 Excel：unknown、使用 OS：unknown ＞

IntersecやIFが書けるのに聞くの？
Selectionより、Targetを使った方が・・・。
（イラつく） 2022/03/13(日) 00:04

 例えばこんな感じではどうですか？

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim colorInd As Long
     If Intersect(Target, Range("I9:BP9,I12:BP12")) Is Nothing Then Exit Sub
                                 '↑ここも修正のこと
     With Target.Interior
         If .ColorIndex = xlNone Then
             Select Case Target.Row
                 Case 9: colorInd = 45
                 Case 12: colorInd = 15
                 ' 同様に色々追加
             End Select
             .ColorIndex = colorInd
         Else
             .ColorIndex = xlNone
         End If
     End With
     Cancel = True
 End Sub

（γ） 2022/03/13(日) 06:26

Y様

ご丁寧にありがとうございます！！
うまくいきました！
元のコードもネットでみつけたものを使っていたのでどこを変更すればいいのか全くわからず…
とても助かりました！(Ｔ＿Ｔ）
（R） 2022/03/13(日) 07:51

コメント返信：

[ 一覧(最新更新順) ]

[[20220312224311]] 『ダブルクリックで塗りつぶし』（R） ページの最後に飛ぶ

[[20220312224311]]　『ダブルクリックで塗りつぶし』（R）　ページの最後に飛ぶ