Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8216 / 13644 ツリー ←次へ | 前へ→

【34374】VBAセルの範囲指定 なお 06/2/1(水) 15:47 質問[未読]
【34412】Re:VBAセルの範囲指定 やっちん 06/2/2(木) 8:50 発言[未読]
【34445】Re:VBAセルの範囲指定 PI 06/2/2(木) 21:55 回答[未読]
【34451】Re:VBAセルの範囲指定 なおこ 06/2/2(木) 23:21 お礼[未読]
【34582】Re:VBAセルの範囲指定 なお 06/2/7(火) 15:07 お礼[未読]

【34374】VBAセルの範囲指定
質問  なお  - 06/2/1(水) 15:47 -

引用なし
パスワード
   Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If ActiveCell.Value <> "" Then Exit Sub
ActiveCell.Value = Time
End Sub

VBAまったくの初心者です。上記のダブルクリックで動作させるセル範囲を指定したいのですが、どのようにすればよいのでしょうか。

【34412】Re:VBAセルの範囲指定
発言  やっちん  - 06/2/2(木) 8:50 -

引用なし
パスワード
   ▼なお さん:
こんにちは。
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
のTargetで判断させます。
試しに
Msgbox Target.Address
とやってみてください。

こういう範囲を限定したい場合にはよく
Intersect()
が使われます。
Intersectで過去ログを検索すると参考になるものが出てくると思いますよ。

【34445】Re:VBAセルの範囲指定
回答  PI  - 06/2/2(木) 21:55 -

引用なし
パスワード
   ▼なお さん:
例えば、A3〜A10に制限するとすれば…下のようなコードでいけますが。
後は、範囲をRange内で自在に変えてください。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Target, Range("A3:A10")) Is Nothing Then

If ActiveCell.Value <> "" Then Exit Sub
 ActiveCell.Value = Time

End If

End Sub

【34451】Re:VBAセルの範囲指定
お礼  なおこ  - 06/2/2(木) 23:21 -

引用なし
パスワード
   皆様へ

有難うございました!

おかげさまで解決しました!

【34582】Re:VBAセルの範囲指定
お礼  なお  - 06/2/7(火) 15:07 -

引用なし
パスワード
   了解いたしました。
ありがとうございました。

8216 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free