Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

34611 / 76738

←次へ　｜　前へ→


	【47334】Re:Find 検索・データ転記について

ウッシ - 07/3/8(木) 9:04 -


	引用なし

	パスワード

▼かおピさん：

>転記したいデータは、実際には非常にたくさんあります。
転記先が一ヶ月の日付分だけではないという事でしょうか？
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」の使い方もわかりません。
まずはヘルプを見る事ですが過去ログを検索するだけでも参考コードは沢山ありますよ。

2 hits

▼

【47325】Find 検索・データ転記について かおピ 07/3/7(水) 23:41