はい。すこしエクセルを学んだ方ならわかります。
ワンクリックで✔マークがつくやつです。
チェックボックスでしょ?って思われていると思います。
いえいえ、違うんです。あれは確かに簡単でいいのですが、
あれだと、印刷したときに
『✔が小さいのですよ!!!』
年配の方だと見えない!って言われるのですよね~。
どうにかならないかなーって考えていました。
いろいろインターネットで調べたら、右クリックでできるものだったり、左をダブルクリックするものだったりと
あるのです。
しかし、やはりチェックボックスを知っていますし、よく電子カルテなどはワンクリックでいい感じにチェックが付きます。
あれの様にしたいって常々考えていました。
ワンクリックがミソなんですよ^_^
それが・・・・
『素人がインターネットで調べたものをコピペしたり適当にやったらできた!』
ので、記録として情報提供として残します。
これを探していた方は質問板にあったりしたので
この記事を見つけたらうれしいと思います。
うれしかったらいいね!とフォローしてね(^▽^)/
いきますよーーーーーー
ほりゃ!!
コードはこれ!!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then End
If Intersect(Target, Range("B1:B5、C2:C10")) Is Nothing Then Exit Sub
If Target.Value = "レ" Then
Target.Value = ""
Else
Target.Value = "レ"
End If
Application.EnableEvents = False
Range("A1").Select
Application.EnableEvents = True
End Sub
赤字は自分の任意の値に変えることができます。
レも、○や◾️だったり自分の好きな形に変更出来ます。
コードを打つ前に任意の、チェックを入れたい所に
太字にしてカタカナのレってやると太字のレってなります。
すごいでしょ!?


我ながらよく頑張ったと思う。
しかしね、セルの結合にはダメなんだよなー。もっと頑張ればセルの結合したものでもチェックができるような気がする。
だれか知っている方がいますかーーー?