[[20190307154943]]　『VBA　ダブルクリックで1シート上の別列で2種類のメx（はすきー）　ページの最後に飛ぶ

『VBA　ダブルクリックで1シート上の別列で2種類のマークをつけたい』（はすきー）

過去ログにあった「ダブルクリックでチェックマークをつけたい」を
利用させてもらいましたが、もう少し追加して
同一シート上でG～Q列は●、Q～U列は◎という風にしたいのですが
どのように書き換えればいいのでしょうか？

ご教授頂ければ幸いです。よろしくお願いします。

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 Dim flag As Object
 Const adr As String = "G2:Q31"

 Set flag = Application.Intersect(Target, Range(adr))
 If flag Is Nothing Then Exit Sub

 Cancel = True
 If Target.Value = "●" Then
    Target.Value = Clear
 Else
    Target.Value = "●"
 End If
 End Sub

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 >同一シート上でG～Q列は●、Q～U列は◎という風にしたいのですが
 Q列がかぶってませんか？
（seiya） 2019/03/07(木) 16:00

かぶってました、すみません！
正しくは
G～Q列、R～U列でした。

どうぞよろしくお願いします。
（はすきー） 2019/03/07(木) 16:07

 こんな感じですか？

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     Dim myStr As String
     If Intersect(Target, Range("G2:U31")) Is Nothing Then Exit Sub
     Cancel = True
     myStr = IIf(Target.Column < 18, "●", "◎")
     If Target.Value = myStr Then
         Target.ClearContents
     Else
         Target.Value = myStr
     End If
 End Sub
（seiya） 2019/03/07(木) 16:09

すごいです、、できました…！！！
とっても助かりました！
本当にどうもありがとうございます！！m(__)m

（はすきー） 2019/03/07(木) 16:12

コメント返信：

[ 一覧(最新更新順) ]

[[20190307154943]] 『VBA ダブルクリックで1シート上の別列で2種類のメx（はすきー） ページの最後に飛ぶ

[[20190307154943]]　『VBA　ダブルクリックで1シート上の別列で2種類のメx（はすきー）　ページの最後に飛ぶ