[[20170612224237]]　『VBA　列ごとに登録した文字を入力したい』（ゲンゴロー）　ページの最後に飛ぶ

『VBA　列ごとに登録した文字を入力したい』（ゲンゴロー）

過去ログを参考にして、B3からG12の列でWクリックして“⚫”を入力できるようにしたのですが、列ごとに文字を変えて入力できるようにするにはどうすればいいか教えて下さい。
よろしくお願いします。

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

    If Intersect(Target, Range("B3:G12")) Is Nothing Then Exit Sub
    With Target
        Select Case .Value
            Case ""
                .Value = "⚫"
            Case "⚫"
                .Value = ""
        End Select
    End With
End Sub

＜使用 Excel：Excel2007、使用 OS：unknown ＞

 例えば...

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim myStr, x
    If Intersect(Target, Range("B3:G12")) Is Nothing Then Exit Sub
    Cancel = True
    myStr = Array("●", "▲", "◆", "□", "△", "☆")
    x = myStr(Target.Column - 2)
    With Target
        If .Value = x Then
            .Value = ""
        ElseIf .Value = "" Then
            .Value = x
        End If
    End With
End Sub
（seiya） 2017/06/12(月) 23:12

seiya様

ありがとうございます。
すごく上手くいきました。
（ゲンゴロー） 2017/06/13(火) 14:51

コメント返信：

[ 一覧(最新更新順) ]

[[20170612224237]] 『VBA 列ごとに登録した文字を入力したい』（ゲンゴロー） ページの最後に飛ぶ

[[20170612224237]]　『VBA　列ごとに登録した文字を入力したい』（ゲンゴロー）　ページの最後に飛ぶ