質問:
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 にする必要があったのではなくて、
初心者ですので、ただの無知なのです・・・^^;
また助けて下さいね。この質問・回答は役に立ちましたか?
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のない保証の正しさ.