TOP > Up > Today
名前: 白茶 BBSから
質問:http://pasokoma.jp/bbs?num=374597&ope=v ツリー:http://pasokoma.jp/bbsb/lg374556
携帯:http://pasokoma.jp/m?num=374597&ope=v ツリー:http://pasokoma.jp/m?num=374556
--
のんさんは No.374556「エクセルのマクロ?の使い方教えてください。」で書きました。
こんにちは。
Sheet1モジュールに
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If IsArray(Target) Then Exit Sub
If Application.Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
If Target.Value = "○" Then
Target.ClearContents
ElseIf Target.Value = "" Then
Target.Value = "○"
End If
End Sub
で、
A3=COUNTA(A1:A2)
みたいな感じです。
--
== 掲示板URL: http://pasokoma.jp/bbs ==
配信の停止: http://pasokoma.jp/taikai
本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today