Excel VBA 質問スレッド No.36 (未解決)

CommandButtonをまとめたい

投稿者 : 蛍舞う・・・     投稿日時 : 2017/06/23(Fri) 19:39:56     OS : Windows 8.1     EXCEL : Excel 2013
こんばんは。
初めて質問させていただきます。
シート状に-のCommandButtonを30個、+のCommandButtonを30個作ってクリックするたびに数字が増えたり、減ったりさせたいのですが、あまりにも数が多くてまとめることができればと思い質問させていただきます。

値を変える場所はG7からG36までになります。
下記のように作り始めたのですが、これをひたすら繰り返すのは、あまりにも手間がかかってしまい、ネットで同じような事例がないかと探してみたのですが、たどり着けず・・・

初心者で、大変恐縮ですが、ご指導の程よろしくお願い致します。

標準モジュールではなく、Sheet1を選択して書いています。

Private Sub CommandButton1_Click()
Dim r As Integer
r = Range("g7").Value
Range("g7").Value = r - 1
End Sub
Private Sub CommandButton2_Click()
Dim r As Integer
r = Range("g8").Value
Range("g8").Value = r - 1
End Sub
Private Sub CommandButton3_Click()
Dim r As Integer
r = Range("g9").Value
Range("g9").Value = r - 1
End Sub



Private Sub CommandButton31_Click()
Dim r As Integer
r = Range("g7").Value
Range("g7").Value = r + 1
End Sub

Private Sub CommandButton32_Click()
Dim r As Integer
r = Range("g8").Value
Range("g8").Value = r + 1
End Sub

Private Sub CommandButton33_Click()
Dim r As Integer
r = Range("g9").Value
Range("g9").Value = r + 1
End Sub

[返信 1] Re : CommandButtonをまとめたい
投稿者 : 管理人     投稿日時 : 2017/06/28(Wed) 22:19:19
返信が遅くなりましたが、
コマンドボタンに共通イベントを設定するサンプルを見つけたので
参考にしてみてください。


http://blog.jojo.jp/?eid=1344588

[返信 2] Re : CommandButtonをまとめたい
投稿者 : TAKA     投稿日時 : 2018/07/18(Wed) 12:03:33
はじめまして。こういうこととはちがいますか?


Sub ふやす回答例()
Dim I As Long
For I = 7 To 36
Cells(I, "G") = Cells(I, "G").Value + 1
Next I
End Sub


Sub へらす回答例()
Dim I As Long
For I = 7 To 36
Cells(I, "G") = Cells(I, "G").Value + 1
Next I
End Sub

スポンサード リンク
 
 
当掲示板について
返信入力フォーム
お 名 前  :
内  容   :
ステータス  : この質問を解決済みにする

認証コード  :
        キャプチャ画像


( 処理日時 : 2019-08-26 09:57:27 )

Page
Top