ダブルクリックをシングルクリックで？

質問

皆さんいつもありがとうございます。
またアドバイスをお願い致します。

以前こちらで「セルをダブルクリックする度に○→／→×→空白と変更できる」
コードをアドバイスして頂きました。

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Cells(1).Value
Case ""
Target = "○"
Case "○"
Target = "／"
Case "／"
Target = "×"
Case "×"
Target.ClearContents
Case Else
Exit Sub
End Select
Cancel = True
End Sub

と言うコードですが、これをシングルクリックで変更可能にする事は出来るのでしょうか？
是非アドバイスをお願い致します。

回答No.4

mitarashi · ベストアンサー

隣の列のセルをボタンに見立てて操作するのはいかがでしょうか。
Accessのフォームで、行の数だけボタンが並ぶイメージです。
都度○等の入るセルにカーソルを移す事で、連続的にボタン？をクリックできる様にします。
あまり速くクリックすると、編集モードに入ってしまいますが、ご質問の趣旨からその心配はないかと思います。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'例えばC列をクリックしたときだけ作動する様にする
If Target.Column <> 3 Then Exit Sub
'複数セルを選択したとき作動しない様にする
If Target.Cells.Count > 1 Then Exit Sub
'B列の値を操作する
Target.Offset(0, -1).Select
Select Case Selection.Value
Case ""
Selection.Value = "○"
Case "○"
Selection.Value = "／"
Case "／"
Selection.Value = "×"
Case "×"
Selection.ClearContents
Case Else
Exit Sub
End Select
End Sub

お礼

mitarashiさんありがとうございます！

私も御手洗団吾大好きですよ　(^O^)
早速使ってみました。
コレも凄く便利ですね！？色々なところで活用出来そうです。

>ご質問の趣旨からその心配はないかと思います。
お気遣いありがとうございます（；^ω^）
なにぶん高齢で色々と簡略化してあげたいので…

また是非アドバイスをして下さい。
ありがとうございました！m(__)m

回答No.5

mu2011

一例です。
コントロールパネル→マウス→ボタンタブのダブルクリックの速度を一番遅くしては如何でしょうか。

お礼

mu2011さんありがとうございます！

あ！？そういう手もあったんですね…
早速明日会社で試してみます。
上手くいくかな～

回答No.3

Randomize

本当を言うとExcelでそのままではできないのですが、条件付であればできない事はないです。
1行目の
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
を
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
に書き換えてあげるとできます。

ただし、条件付きといいました。その条件は、ダブルクリックと右クリックの場合は同じセルを何度もつつくことで連続してマークを変更できるのに対して、シングルクリックの場合は「一度目的のセル以外へ移動した後目的のセルをつつかなければならない」と言うことです。

VBAを実行できるマウスによる起動操作(このことをイベントと呼びます)には
BeforeDoubleClick：ダブルクリックされる寸前
BeforeRightClick：右クリックされる寸前
の2個しかありません。そして先ほどのSelectionChangeは「選択しているセルが変わった時」になる為、同じセルを何度つついてもマークは連続して変わらないのです。

余談ですが、文字通り本当に強引に行けば同じセルを複数回左クリックで連続してマークを変更させることもできないことはないのかもしれませんが、初心・初中級者の人には手に負えないほど高度かつリスクを伴う作業になります。
ですので、この条件付きの条件が呑めない場合は右クリックかダブルクリックでの運用を検討することをお勧めします。

ちなみに右クリックにする場合は1行目を
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
に書き換えてください。

お礼

Randomizeさんありがとうございました！

次々と連続して同じ記号を入力して行くのにイイですね！？コレ！？
凄く参考になりました！
別の入力シートに活用できそうです。
また是非アドバイスをお願いします！ヽ(´ー｀)ノ
ありがとうございました！

回答No.2

LHS07

Case "A"
Target ="B"
はAならBにするということです。
辞書を引いてみてください。Case　と　Target
以下ならどうでしょうか

Case ""
Target = "○"
Case "○"
Target = "／"
Case "／"
Target = "×"
Case "×"
Target.ClearContents
Case Else

試してみてください。

お礼

LHS07さんありがとうございました！

ん～～なんか私の頭が悪いのでしょうが上手く行きませんでした　(´Д⊂グスン
また是非アドバイスをお願いします。
ありがとうございました！

回答No.1

imogasi

回答をコピペするだけで、回答の本当の内容を理解できてないから、同じような質問を繰り返すのだ。
質問することに無理が合ったのだろう。
イベントのことを勉強するのが先だ。
ＶＢＡなどを勉強を始めた程度で何何したいといっても、そうなる。
ーー
シングルクリックは、他のことでも、使われていて、紛らわしいからだろう、そういうのはシートのイベントにない。
シートのイベントの１覧の見方ウィ御勉強すること。そこにない。
それ以上のことは非常にＶＢＡ以外の勉強が進んでからのことで、質問者には無理。
ーー
右クリックなら在る。Ｓｈｅｅｔ１のシート・イベントに
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "CCC"
End Sub

お礼

imogasiさんいつもありがとうございます。

>回答をコピペするだけで、回答の本当の内容を理解できてないから、同じような質問を繰り返すのだ。
(つд⊂)エーン　職場の超高齢者オペレーター2人が「ダブルクリックが出来ない」って言うんですよぉ　(つд⊂)エーン
見てると「カ・チ……カ…チ……」みたいな…
そんな訳でクリック1回で出来たらなーと思った次第です　（；^ω^）
また懲りずにアドバイスして下さい！ありがとうございました。