ＶＢＡ 入力画面について

質問

以前、友人から送られてきたエクセルで

セルを選んでマウスの右をクリックすると入力画面が出てきてそこに数字を入力しOKボタンを押すと選んでいるセルに足し算されていくような
システムになっていました。

多分、VBAだと思うのですが同じようなものを作るのは難しいでしょうか。

回答No.2

merlionXX · ベストアンサー

１．シートのタブを右クリックし、「コードの表示」を選択。
２．出てきたVisualBasicEditor（白い部分）に下記のコードをコピペ。

'*****ここから下をコピペ*****

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
i = InputBox("数値を入力して下さい。")
Target = Target + i
End Sub

'*****ここより上までをコピペ*****

３．AltキーとF11キーを同時に押してワークシートへもどります。

これでA1を選択するとそうなります。
A1以外をそうしたければ　"$A$1"　のところを変えてください。

お礼

早いお返事ありがとうございました。
早速やってみます。

回答No.1

n-jun

>以前、友人から送られてきたエクセルで
そのファイルの中身をみれば参考になるのでは？