エクセル マクロ ボタンを押したらカウント +１

こんにちは、エクセルのマクロについて教えて頂けませんか。

フォームコントロールのボタンを押したら、ターゲットのセルのカウントを+１ずつしていくにはどのように記述したら良いでしょうか？

詳しいかた、教えて頂けませんでしょうか。

よろしくお願いいたします。

No.2 ベストアンサー 回答者： GooUserラック 回答日時： 2016/11/23 17:32

こんな感じでしょうか？

-----------------------------------------------
Private Sub CommandButton1_Click()
With Sheets("Sheet1").Range("A1")
.Value = .Value + 1
End With
End Sub
-----------------------------------------------
※ もちろんボタン名、シート名やセルは変更して下さい。

この回答へのお礼

回答ありがとうございます。

お陰様でできました！

お礼日時：2016/11/23 18:35

No.1 回答者： hallo-2007 回答日時： 2016/11/23 16:59

エクセルの下部分にあるシート名のタブを右クリック

コードの表示をクリック、VBエディターが起動したら

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Target.Value + 1
End Sub

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Target.Value = Target.Value - 1
End Sub

を張り付けて閉じる
セルをダブルクリックしたら　＋１
右クリックしたら　　　　　　－１
になります。

この回答へのお礼

すみません、フォームのボタンに設定したいのですが。

お礼日時：2016/11/23 17:07