![Excel のボタンを使用して、ある列から別の列に数字を追加し、2 番目の列の古い数字を新しい数字で置き換える](https://rvso.com/image/1542513/Excel%20%E3%81%AE%E3%83%9C%E3%82%BF%E3%83%B3%E3%82%92%E4%BD%BF%E7%94%A8%E3%81%97%E3%81%A6%E3%80%81%E3%81%82%E3%82%8B%E5%88%97%E3%81%8B%E3%82%89%E5%88%A5%E3%81%AE%E5%88%97%E3%81%AB%E6%95%B0%E5%AD%97%E3%82%92%E8%BF%BD%E5%8A%A0%E3%81%97%E3%80%812%20%E7%95%AA%E7%9B%AE%E3%81%AE%E5%88%97%E3%81%AE%E5%8F%A4%E3%81%84%E6%95%B0%E5%AD%97%E3%82%92%E6%96%B0%E3%81%97%E3%81%84%E6%95%B0%E5%AD%97%E3%81%A7%E7%BD%AE%E3%81%8D%E6%8F%9B%E3%81%88%E3%82%8B.png)
タイトルの通りです。現在作成中の予算表があり、毎週給料を受け取ったときにそのボタンをクリックすると、すでに分配された給料が各経費に割り当てられたお金のプールに追加されるようなボタンが欲しいと思っています。
毎週の支払いを経費に分配するための計算はすべて済ませましたが、必要な操作を実行するボタンのコーディング方法がわかりません。
基本的には、D6 から D48 までのすべての数字を、E6 から E48 までの隣接する数字に追加する必要があります。ただし、毎回新しい金額が追加されているかのように、この列に新しい数字が表示される必要もあります。つまり、E6 = E6+D6 であり、ボタンを押すたびに、列 D にあるものが列 E に追加されます。
まとまりのない文章で申し訳ありませんが、意味が通じていれば幸いです。
ご協力をよろしくお願いします
ピーター
答え1
スコットの多大な助けにより、コードを動作させることができました。ご意見をいただき、本当にありがとうございました。私が作成したコードは次のとおりです。
プライベートサブCommandButton1_Click()
Dim x As Integer
Dim y As Double
Range("E2").Value = Range("E2").Value + 1
For x = 6 To 48
y = Range("E" & x).Value
Range("E" & x).Value = y + Range("D" & x).Value
Next x
終了サブ
また、その週にすでにボタンを押したかどうかがわかるように、ボタンを配置した場所の上にカウンターを追加しました。