
職場では VB や ACCESS を使用してフォームを作成できないため、セルを間に合わせのフォームとして使用できるかどうか調べています。1 つのセルに「新規注文数量を入力」というラベルを付けます。その隣 (次のセル) に、ユーザーが数値を入力し、その数値によって他の 2 つのセルが更新され、その変更が固定されるようにして、別の数値を入力して前述のセルの前の数値の上に追加できるようにします。これは可能ですか?
答え1
ActiveX テキスト ボックスを追加します ([開発] タブ、[コントロール] セクション、[挿入] ボタン。既定の名前は TextBox1)。
基本的なフォーム コントロール ボタンを追加します (デフォルト名は Button1 です)
ボタンを選択し、ツールバーの同じコントロールセクションで「コードの表示」をクリックします。
するとサブは以下のようになるはずです
Sub Button1_Click()
Sheet1.Range("C1").Value = Sheet1.Range("C1").Value + Sheet1.TextBox1.Text
Sheet1.Range("D1").Value = Sheet1.Range("D1").Value + Sheet1.TextBox1.Text
Sheet1.TextBox1.Text = ""
End Sub
C1とD1は数量をコピーしたいセルです
編集: テキスト ボックスをクリアする部分を忘れていました。ちなみに、Alt + F11 を使用すると、コード ウィンドウにすばやく戻ることができます。