困ったちゃん( ﾟдﾟ)ﾎﾟｶｰﾝ

困った事を書いてみた。

ホームページへ戻る

[43] 題名：エクセルメモその2 名前：名無し 投稿日：2017年12月12日 (火) 07時14分

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("A1:D5")) Is Nothing Then Exit Sub
With Target
Select Case .Value
Case ""
.Value = "○"
Case "○"
.Value = ""
End Select
End With
End Sub