[[20220122193253]] 『右隣のセルに色を付けたい』(初心者) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

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

 初投稿です。

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

 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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.