Excell VBA 指定セルにコピー＆ペースト

締切済

質問者：freemason5
質問日時：2008/07/31 02:58
回答数：2件

ＶＢＡについて質問です。

Ｅｘｃｅｌｌで家計簿のようなものを作成してつくっているのですが、
Ａ１～Ａ３１までのセルに日付の１日～３１日を記入し、
Ｂ１～Ｂ３１までのセルに各日の支出金額の合計を記入するような表を作成しています。
ただ、一日の支出が多い場合（金額的に多いというわけではなく、レシートの枚数が多く合算しなければ一日の支出合計が出ない状態のこと）は別セルで合計を計算し、その結果を記入するようにしています。
ただ、その結果を毎回コピペするのがとても面倒なので、
コマンドボタンを計算結果の横に設置し、
そのコマンドボタンをクリックしたら、どこのセルにペーストするかをメッセージボックスで問われ（Ｃ言語でいうScanf的なもの）、記入してＯＫをクリックするとその指定したセルに計算結果が自動的にペーストされるようにしたいと考えています。

ただ、そのコマンドがわからなくて足止め状態です。
どなたか教えてください！！

内容としましては、
セルＥ１に計算結果が表示されてるとして、
そのＥ１の内容を上記のようなコマンドボタンを使用して指定したセルにペーストするようなマクロをくみたいです。
上記の「どこのセルにペーストするかをメッセージボックスで問われ」という部分については、セル番を入力することで指定できるだけでもよいのですが、欲を言えばＡ１～Ａ３１に記入されている日付を入力することでペースト先のセルを指定できればベストだなと考えています。

こんなこと可能でしょうか？？

説明がわかりにくいとは思いますが、どなたかお願いします

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.1

回答者： keirika
回答日時：2008/07/31 08:05

Sub Sample()

Dim Hizuke As String
Dim Gyo As Integer

Hizuke = InputBox("日付入力")

Gyo = Application.Match(Hizuke, Range("a1:a31"), 0)
Cells(Gyo, 2) = Range("e1")
End Sub

でどうでしょう。