質問:
Excel2003VBAに関する質問です。
※下記のプログラムを参照願います。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'進捗入力セル(B10:B147)をダブルクリックすると○△_UFが開く
Select Case Target.Address
Case "$B$10", (※中略), "$B$147"
: ○△_UF.Show
End Select
End Sub

上記のプログラムではB10:B147まで、1つずつターゲットのセルを指定しなければなりません。
もっと素敵な方法はありませんか?
B列のセル全てを対象にしても構いません。
ご教授願います。
答え:
こんにちは

何かの理由で Select case にする必要があるのですか?

とりあえず
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 10 Or Target.Row > 147 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
○△_UF.Show vbmodal
End Sub
補足の質問:
解答ありがとうございました。助かりました。
何かの理由で Select case にする必要があったのではなくて、
初心者ですので、ただの無知なのです・・・^^;
また助けて下さいね。この質問・回答は役に立ちましたか?

ウェブサイトのユーザーによる情報ポスト、JPQA.comのない保証の正しさ.

  • カラオケマイクなのですが テレビにつなぐだけの 曲が...
  • パソコンに送られて来たメールの携帯アドレス(ドコモ...
  • 私のおばあちゃんから 私の息子(曾孫)の七五三祝い...
  • メールの質問です。ワードを添付ファイルで受信しま...
  • ゆうゆうコールってなんですか?料金確認サイトでい...
  • MDに録音した音楽を、iポッドに移すにはどうすれば...