des********

2022/1/12 14:41

22回答

エクセル VBAについて質問させて頂きます。 マクロ機能を使用してシート内にカウントアップボタンを作成したいです。

エクセル VBAについて質問させて頂きます。 マクロ機能を使用してシート内にカウントアップボタンを作成したいです。 その際、カーソル(矢印)で指定した任意のセルに加算させていくボタンの作成は可能でしょうか？ 例）A1をセレクトし加算→C4をセレクトし加算、、、など 自分で調べてみたところあらかじめ選択したセルに加算させていくやり方しか見つけることができませんでした。。。 可能であれば、テンプレートで頂きたく思います。ご回答よろしくお願い致します。

Excel | Visual Basic・60閲覧

ベストアンサー

0
qgl********

2022/1/12 14:59

こんな感じです。ボタンをクリックすれば数値がUPします。既に数値が入っている場合はその数値からUPします。 標準モジュール Sub sample() If ActiveCell.Value = "" Then ActiveCell.Value = CountUp(0) Else ActiveCell.Value = CountUp(ActiveCell.Value) End If End Sub Function CountUp(ByRef i As Long) i = i + 1 CountUp = i End Function コマンドボタン Private Sub CommandButton1_Click() Call sample End Sub

des********

質問者2022/1/12 17:01

VBA内で試してみたところうまく出来そうです。 ざっくりとした質問にも関わらずご対応頂きましてありがとうございました。 ただ実際にボタンで動作させる際に、"引数は省略できません"というメッセージが出てしまいます。こちらはどう対処したらよろしいでしょうか？

その他の回答（1件）

0
tra********

カテゴリマスター

2022/1/12 14:56

加算するセルは、どのように決めるのか 加算する値は、どのように取得するのか など、もっと具体的に書かないと回答しようがないです。 >テンプレートで頂きたく思います。 具体的な仕様がわからないのにテンプレート化なんて無理。 とりあえず、 >例）A1をセレクトし加算→C4をセレクトし加算 となるコード例。加算する値は、１。 Sub sample() Dim xAdr For Each xAdr In Split("A1 C1") With Range(xAdr) .Value = .Value + 1 End With Next xAdr End Sub