Excel VBA質問箱 IV

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

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


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

34620 / 76738

←次へ　｜　前へ→


	【47325】Find 検索・データ転記について

かおピ - 07/3/7(水) 23:41 -


	引用なし

	パスワード

　教えてください。
日々の精算書のデータを最終合計表（月間の各種の合計表）に転記しています。
ところが、１日だけ２日の日に転記されました。
その後は問題なく２日からは順調に転記ができます。
h1には　=now()　を設定しています。（表示形式：ユーザー定義　dd ）
最終合計表のa5:a35 は、１日から３１日（表示形式：ユーザー定義　dd ）
　h1とa5:a35の表示形式は、色々試してみましたが、出来ませんでした。
　次回確認できるのは、4月1日しかないですが、
　その他の方法の方が確実でよいでのしょうか？
　他の方法があればご提案、ご回答ください。
　　
Sub 転記()

Dim Hiduke As String
Dim myDate As Date
Dim c
Dim d

Worksheets("最終合計表").Select
myDate = Range("h1").Value
Hiduke = Day(myDate)
MsgBox Hiduke + ("日のデータの書き込みを行ないます")

With Worksheets("最終合計表").Range("a5:a35")
　　Set c = .Find(Hiduke)
　　c.Select
　　Selection.Offset(0, 2).Select
　　ActiveCell.Value = Worksheets("精算書").Range("am38").Value
　　
　　Selection.Offset(0, 1).Select
　　ActiveCell.Value = Worksheets("精算書").Range("am40").Value
　　
　　Selection.Offset(0, 1).Select
　　ActiveCell.Value = Worksheets("精算書").Range("am42").Value
　　
　 End With

Worksheets("売掛金明細表").Select
myDate = Range("x1").Value
　　
　 With Worksheets("売掛金明細表").Range("a6:a36")
　　Set d = .Find(Hiduke)
　　d.Select
　　Selection.Offset(0, 2).Select
　　ActiveCell.Value = Worksheets("売掛金精算表").Range("j5").Value
　　
　　Selection.Offset(0, 1).Select
　　ActiveCell.Value = Worksheets("売掛金精算表").Range("n5").Value
　　
　　Selection.Offset(0, 1).Select
　　ActiveCell.Value = Worksheets("売掛金精算表").Range("ao5").Value
　　
　　End With
End Sub

0 hits

▼

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

≪