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

困った事を書いてみた。

ホームページへ戻る

[42] 題名：エクセルメモ 名前：名無し 投稿日：2017年12月12日 (火) 07時10分

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Value <> "" Then
Target.Value = ""
Else
Target.Value = "○"
End If
End Sub