Excel VBA質問箱 IV

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

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


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

68104 / 76734

←次へ　｜　前へ→


	【13173】日付が４年すすむ・・・？

ひんこ - 04/4/25(日) 23:12 -


	引用なし

	パスワード

はじめまして。マクロ見習中のひんこと申します。
書物からアレンジし、以前は問題なく動いていたマクロがシートの移動・コピーの後、
うまくゆかなくなってしまいました。
シート・案内のF1セルにはtoday関数が入ってあり、シート・顧客リストは一人1行で、３８行目（通知日）の日付と一致した時に２行目（面談日）５行目（氏名）がはいるように
してあるつもりですが、日付のセルはH16.4.1だとH20.4.2となってしまいます。
どうかおちからをかしてください。お願いします。

Sub 案内印刷_Click()
　 Dim Dog As Range, i As Date
　　　　　
　　Set Dog = Range("顧客リスト")
　　Worksheets("案内").Select
　　For i = 1 To Dog.Rows.Count
　　　　If Range("F1") = Dog.Rows(i).Cells(38) Then
　　　　　 moveData Dog.Rows(i)
　　　　　　ActiveSheet.PrintPreview
　　　 End If
　　 Next i
End Sub
Sub moveData(Dog As Range)
　　Cells(3, 1) = Dog.Cells(5)
　　Cells(9, 2) = Dog.Cells(2)
End Sub

1 hits

▼

【13173】日付が４年すすむ・・・？ ひんこ 04/4/25(日) 23:12

≪