Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8218 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【34374】ＶＢＡセルの範囲指定 なお 06/2/1(水) 15:47 質問[未読]
【34412】Re:ＶＢＡセルの範囲指定 やっちん 06/2/2(木) 8:50 発言[未読]
【34445】Re:ＶＢＡセルの範囲指定 PI 06/2/2(木) 21:55 回答[未読]
【34451】Re:ＶＢＡセルの範囲指定 なおこ 06/2/2(木) 23:21 お礼[未読]
【34582】Re:ＶＢＡセルの範囲指定 なお 06/2/7(火) 15:07 お礼[未読]
【34374】ＶＢＡセルの範囲指定
質問  なお  - 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

ＶＢＡまったくの初心者です。上記のダブルクリックで動作させるセル範囲を指定したいのですが、どのようにすればよいのでしょうか。
【34412】Re:ＶＢＡセルの範囲指定
発言  やっちん  - 06/2/2(木) 8:50 -
引用なし
パスワード
   ▼なお さん：
こんにちは。
>Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
のTargetで判断させます。
試しに
Msgbox Target.Address
とやってみてください。

こういう範囲を限定したい場合にはよく
Intersect()
が使われます。
Intersectで過去ログを検索すると参考になるものが出てくると思いますよ。
【34445】Re:ＶＢＡセルの範囲指定
回答  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:ＶＢＡセルの範囲指定
お礼  なおこ  - 06/2/2(木) 23:21 -
引用なし
パスワード
   皆様へ

有難うございました！

おかげさまで解決しました！
【34582】Re:ＶＢＡセルの範囲指定
お礼  なお  - 06/2/7(火) 15:07 -
引用なし
パスワード
   了解いたしました。
ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8218 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free