[[20220122193253]]　『右隣のセルに色を付けたい』（初心者）　ページの最後に飛ぶ

『右隣のセルに色を付けたい』（初心者）

 初投稿です。

 現在以下のようなコードを書いており、セルをダブルクリックすると
 そのセルに色が点くようにしています。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range,　_ 
 Cancel As Boolean)
    With Target.Interior
        If .ColorIndex = xlNone Then
            .ColorIndex = 28
        Else
            .Color = xlNone
        End If
    End With

 End Sub

 ここで質問なのですが、ダブルクリックで選択したセルの右隣のセルにも
 色を付けたい場合はどのようなコードを書けばよろしいでしょうか。

 ご回答よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 With Target.Interior
   ↓
 With Target.Resize(1, 2).Interior

 のように変更したらどうでしょうか。
 　
（try） 2022/01/22(土) 19:55

 こんばんは！

 BeforeDoubleClick を使うときは、
 >Cancel = True
 としてその動きをキャンセルしておく方がいいですよ。
（SoulMan） 2022/01/22(土) 22:00

 try様、SoulMan様、
 ご教示いただきありがとうございます。

 無事右隣のセルにも色がつくようになりましたが、
 右隣のセルに別の色を付けたい場合、どのようなコードを書けばよろしいでしょうか。

 何度もお願いしてしまい申し訳ございません。

 よろしくお願いいたします。
（初心者） 2022/01/24(月) 11:42

↓を読んで理解出来ますか？

https://excel-ubara.com/excelvba4/EXCEL210.html
（tkit） 2022/01/24(月) 12:07

 tkit様

 ご返信いただきありがとうございます。

 添付していただいたURLを確認し、試しにコードを入力したら
 希望通りの動作ができました。

 ありがとうございました！
（初心者） 2022/01/24(月) 16:12

コメント返信：

[ 一覧(最新更新順) ]

[[20220122193253]] 『右隣のセルに色を付けたい』（初心者） ページの最後に飛ぶ

[[20220122193253]]　『右隣のセルに色を付けたい』（初心者）　ページの最後に飛ぶ