プロが教える店舗&オフィスのセキュリティ対策術

こんにちは。よろしくお願いします。いつもgooの皆さんには大変お世話になっています。
エクセルは2013です。どなたか教えてください。

質問内容
Wクリックの範囲指定が現状はこのようになっています
If Not Intersect(Target, Range("$B$32:$H$32,$K$32:$N$32,$P$32:$AH$32")) Is Nothing Then

行を指定する32を
Dim shg as long
shg=32
とした場合、上記の範囲指定を & と変数 shg でつなげていくと、あまりにも長くなってしまいます
もっとスマートな書き方はないでしょうか

A 回答 (1件)

If Not Intersect(Target, Rows(shg), Range("$B:$H, $K:$N, $P:$AH")

) Is Nothing Then
    • good
    • 1
この回答へのお礼

休日の貴重な時間に親切に教えていただきまして大変ありがとうございます
余りに見事で感動しました
Range以外にRowsでも範囲指定できるとは初めて知りました
他にも同じ方法で、教えていただいたように手直しできるところがあるので、大変助かりました
大変スマートでびっくりしています
ありがとうございました

お礼日時:2016/12/10 14:21

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!