Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8 / 13655 ﾂﾘｰ

←次へ　｜　前へ→

▼

【82409】範囲内のセルをダブルクリックでカウントアップ ｍｍｍｍ 24/12/6(金) 12:35

【82410】Re:範囲内のセルをダブルクリックでカウン... ふぇふぇ 24/12/6(金) 16:42

【82411】Re:範囲内のセルをダブルクリックでカウン... ｍｍｍｍ 24/12/6(金) 16:57

【82412】Re:範囲内のセルをダブルクリックでカウン... マナ 24/12/7(土) 10:44

【82416】Re:範囲内のセルをダブルクリックでカウン... ｍｍｍｍ 24/12/9(月) 17:15


	【82409】範囲内のセルをダブルクリックでカウント...

ｍｍｍｍ

- 24/12/6(金) 12:35 -


	引用なし

	パスワード

下記の式でセルをダブルクリックでカウントアップできるようになったのですが、
指定した範囲内のセルにのみ適応するにはどのように変更すれば良いのかご教授頂けますと幸いです。

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
On Error Resume Next
Dim c As Long
c = Cells(Target.Row, Target.Column).Value
c = c + 1
Cells(Target.Row, Target.Column) = c
End Sub


	【82410】Re:範囲内のセルをダブルクリックでカウ...

ふぇふぇ - 24/12/6(金) 16:42 -


	引用なし

	パスワード

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Cancel = True
Set rng = Application.Intersect(Target, Range("B2:D10"))
If rng Is Nothing Then
　 MsgBox "B2:D10範囲外です"
Else
　 MsgBox "B2:D10範囲内です"
End If
End Sub


	【82411】Re:範囲内のセルをダブルクリックでカウ...

ｍｍｍｍ

- 24/12/6(金) 16:57 -


	引用なし

	パスワード

▼ふぇふぇさん：

上記の式をSheetに入力し試してみたのですが、範囲外でも内でもポップアップが出た後にカウントが始まってしまいます。解決するにはどのようにしたらよいのでしょうか。
マクロを勉強し始めたばかりでお手数おかけしますが、ご教授頂けますと幸いです。


	【82412】Re:範囲内のセルをダブルクリックでカウ...

マナ - 24/12/7(土) 10:44 -


	引用なし

	パスワード

▼ｍｍｍｍさん：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　
　　If Intersect(Target, Range("A2:B4")) Is Nothing Then Exit Sub
　　If Not IsNumeric(Target.Value) Then Exit Sub
　　Cancel = True
　　Target.Value = Target.Value + 1
　　
End Sub


	【82416】Re:範囲内のセルをダブルクリックでカウ...

ｍｍｍｍ

- 24/12/9(月) 17:15 -


	引用なし

	パスワード

▼マナさん：

解決しました！
ご協力ありがとうございます！
勉強になりました！！


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

8 / 13655 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free