[[20251023101408]]　『セルをクリックするとチェックマークが表示され、』（ガヨウ）　ページの最後に飛ぶ

『セルをクリックするとチェックマークが表示され、個数が集計される』（ガヨウ）

すごい初心者です
出来るだけで結構ですので、分かりやすく教えてください。
　
大会出席者確認表です
A1に出席者名　B1に出席可否　と書き
A2・A3・A4・・・A19に出席者名を書き
B2・B3・B4・・・B19で出席可能の人をクリックする、と✓チェックマークか〇丸　が表示され
最下段のB20に出席可能者の合計人数が表示される
と言うような事が可能でしょうか
宜しくお願い致します。

＜使用 Excel：Excel2019、使用 OS：Windows11 ＞

 以下のコードをシートモジュールに貼り付け（ダブルクリックで○）。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not (Target.Row >= 2 And Target.Row <= 19 And Target.Column >= 2 And Target.Column <= 2) Then End
    If Target.Value <> "" Then
        Target.Value = ""
        Cancel = True
    Else
        Target.Value = "〇"
        Cancel = True
    End If
 End Sub

 合計人数はCOUNTIF関数とかで。

 これでは分かりませんか？　不親切すぎ？

（DS4） 2025/10/23(木) 11:38:05

 おっといけねー間違えてる。

 Target.Value = "〇"　は（漢数字）
 Target.Value = "○"　に（記号）

 変えてください。

 ほんで、

 B20 =COUNTIF(B2:B19,"○")

 とか。

（DS4） 2025/10/23(木) 12:22:50

名前（A列）をダブルクリックでこんなとか。。。

Option Explicit

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

    Dim sMark As String: sMark = ChrW(&H2713)

    With Target
        If .Count > 1 Then Exit Sub
        If .Column > 1 Then Exit Sub
        If .Row < 2 Then Exit Sub
        If .Value = Empty Then Exit Sub
    End With

    Cancel = True
    With Target.Offset(, 1)
        .Value = IIf(.Value = sMark, Empty, sMark)
    End With
    Me.Range("B20").Value = WorksheetFunction.CountA(Target.CurrentRegion.Columns(2))
End Sub
（まっつわん） 2025/10/23(木) 14:59:05

クリックしたらチェックが入って…というのはできなくはないですが、どうしても必要ですか？
あなただけが使えて分かればいいと言うのであれば、例えばチェックではなく出席する人についてはB列に1を入力して、それをSUM関数で合計するとかのほうが楽で簡単です
印刷して使うので見た目だけでもチェックにしたい、というのなら条件付き書式を使えばそれも可能ですよ
（傘） 2025/10/23(木) 15:12:36

早速の御回答、有難う御座います。
ご親切に有難う御座います。
〇の方でやってみます。
有難う御座いました。
（ガヨウ） 2025/10/23(木) 15:38:30

コメント返信：

[ 一覧(最新更新順) ]

[[20251023101408]] 『セルをクリックするとチェックマークが表示され、』（ガヨウ） ページの最後に飛ぶ

[[20251023101408]]　『セルをクリックするとチェックマークが表示され、』（ガヨウ）　ページの最後に飛ぶ