[[20100731130349]]　『セルをクリックすると特定の文字を表示』（レティス）　ページの最後に飛ぶ

『セルをクリックすると特定の文字を表示』（レティス）

過去ログを参照して思い通りにしようと探していたのですが、自分の力ではどうしようもできず質問を・・・

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

    If Intersect(Target, Range("n10:n54,o10:o54,p10:p54,r10:r54")) Is Nothing Then Exit Sub
    Cancel = True
    Target = IIf(Target = "○", "", "○")
End Sub

でN10～N54、O10～O54、R10～R54の範囲のセルをクリックすると○→空白へと交互に表示できるようになったのですが、

更に、Q10～Q54の範囲のセルをクリックすると、1→2→空白へと順番に表示される場合はどうしたらいいのでしょうか

Windows7　Excel2007です
どうかよろしくお願いします。

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

    If Intersect(Target, Range("n10:n54,o10:o54,p10:p54,r10:r54,q10:q54")) Is Nothing Then Exit Sub
    Cancel = True
    If Not Intersect(Target, Range("q10:q54")) Is Nothing Then
        Select Case Target.Value
        Case ""
            Target.Value = "1"
        Case "1"
            Target.Value = "2"
        Case Else
            Target.Value = ""
        End Select
    Else
        Target.Value = IIf(Target = "○", "", "○")
    End If
End Sub
（初心）

初心さん返信ありがとうございます。

思い通りに動作しました。
検索してもなかなか見つけることができず困ってました。

ありがとうございましたっ

コメント返信：

[ 一覧(最新更新順) ]

[[20100731130349]] 『セルをクリックすると特定の文字を表示』（レティス） ページの最後に飛ぶ

[[20100731130349]]　『セルをクリックすると特定の文字を表示』（レティス）　ページの最後に飛ぶ