|
▼ひんこ さん:
おはようございます。
>はじめまして。マクロ見習中のひんこと申します。
>書物からアレンジし、以前は問題なく動いていたマクロがシートの移動・コピーの後、
>うまくゆかなくなってしまいました。
>シート・案内のF1セルにはtoday関数が入ってあり、シート・顧客リストは一人1行で、38行目(通知日)の日付と一致した時に2行目(面談日)5行目(氏名)がはいるように
>してあるつもりですが、日付のセルは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
上記マクロがあるブックをアクティブにして、
「ツール」----「オプション」の「計算方法」の「1904年から計算する」に
チェックがついていませんか?もし、チェックされていたらはずしてみて下さい。
気がついたのは、これぐらいですが・・・。
|
|