|
▼かおピ さん:
>転記したいデータは、実際には非常にたくさんあります。
転記先が一ヶ月の日付分だけではないという事でしょうか?
A5:A36のように決まっているなら
Sub 転記()
Dim Hiduke As Long
Dim dRow As Long
With Worksheets("最終合計表")
Hiduke = Day(.Range("H1").Value)
MsgBox Hiduke & ("日のデータの書き込みを行ないます")
dRow = Hiduke + 4
.Range("C" & dRow).Value = Worksheets("精算書").Range("AM38").Value
.Range("D" & dRow).Value = Worksheets("精算書").Range("AM40").Value
.Range("E" & dRow).Value = Worksheets("精算書").Range("AM42").Value
End With
With Worksheets("売掛金明細表")
Hiduke = Day(.Range("X1").Value)
dRow = Hiduke + 5
.Range("C" & dRow).Value = Worksheets("売掛金精算表").Range("J5").Value
.Range("D" & dRow).Value = Worksheets("売掛金精算表").Range("N5").Value
.Range("E" & dRow).Value = Worksheets("売掛金精算表").Range("AO5").Value
End With
End Sub
違ってそうですけど・・・取り敢えず。
「LookIn」は「Find」の引数です。
「Match」や「Find」を標準モジュールのコードペインに書き込んで、その上をクリック
してF1キーを押すとヘルプが見られます。(インストールされていれば)
>実は、「Match」や「LookIn」の使い方もわかりません。
まずはヘルプを見る事ですが過去ログを検索するだけでも参考コードは沢山ありますよ。
|
|