[[20061020103946]]　『クリックすると○の表示』（Ｃ）　ページの最後に飛ぶ

『クリックすると○の表示』（Ｃ）
Ｗｉｎ　Ｍｅ　Ｅｘｃｅｌ２０００使用

Ｃ１からＣ１００の間のセルの中で、クリックすると○を表示し、
逆に、○を入力したものを訂正し表示しないようにするには、どのようにすれば
よいのでしょうか。

 ダブルクリックではどうでしょう？
 シートタブを右クリックし、コードの表示を選択。
 出てきた画面に下記コードをコピペして閉じる。
 (ROUGE)
'----
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Intersect(Range("C1:C100"), Target) Is Nothing Then Exit Sub
    If Not IsEmpty(Target) And Target.Value <> "○" Then Exit Sub
    Cancel = True
    Application.EnableEvents = False
    If Target.Value = "○" Then
        Target = Empty
    Else
        Target.Value = "○"
    End If
    Application.EnableEvents = True
End Sub

ダブルクリックしてみます。
どうもありがとうございました。

Selection Changeでやる場合、どこか変える部分はありますか。

 とくにないと思いますが、同じセルを続けてクリックしても
 イベントは起きません。
 一度他のセルを選択してから再度該当のセルをクリックする
 ことになります。
 よって、面倒です。また、操作ミスが起こりやすくなります。
 (MARBIN)

 ワンクリックで、が目的なら、
 右クリックイベントも便利です。

 Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
 (MARBIN)

わかりました。そのようにしてみます。ＭＡＲＢＩＮさんどうもありがとうございました。

Ｃ１～Ｃ１００だけでなく、ここにＬ４～Ｌ３０とＰ４～Ｐ３０をこの対象範囲に加えるには
どのように、このコードに付け加えればいいのでしょうか。

https://www.excel.studio-kazu.jp/cgi-bin/kazuwiki2.cgi?mycmd=read&mypage=[[20061024112354]]&mytime=114955

どうもありがとうございました。

コメント返信：

[ 一覧(最新更新順) ]

[[20061020103946]] 『クリックすると○の表示』（Ｃ） ページの最後に飛ぶ

[[20061020103946]]　『クリックすると○の表示』（Ｃ）　ページの最後に飛ぶ