Excel VBA質問箱 IV

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

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


11942 / 13645 ツリー ←次へ | 前へ→

【13173】日付が4年すすむ・・・? ひんこ 04/4/25(日) 23:12 質問[未読]
【13174】Re:日付が4年すすむ・・・? ichinose 04/4/26(月) 9:15 発言[未読]
【13188】Re:日付が4年すすむ・・・? ひんこ 04/4/26(月) 20:14 お礼[未読]

【13173】日付が4年すすむ・・・?
質問  ひんこ  - 04/4/25(日) 23:12 -

引用なし
パスワード
   はじめまして。マクロ見習中のひんこと申します。
書物からアレンジし、以前は問題なく動いていたマクロがシートの移動・コピーの後、
うまくゆかなくなってしまいました。
シート・案内の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

【13174】Re:日付が4年すすむ・・・?
発言  ichinose  - 04/4/26(月) 9:15 -

引用なし
パスワード
   ▼ひんこ さん:
おはようございます。

>はじめまして。マクロ見習中のひんこと申します。
>書物からアレンジし、以前は問題なく動いていたマクロがシートの移動・コピーの後、
>うまくゆかなくなってしまいました。
>シート・案内の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年から計算する」に
チェックがついていませんか?もし、チェックされていたらはずしてみて下さい。

気がついたのは、これぐらいですが・・・。

【13188】Re:日付が4年すすむ・・・?
お礼  ひんこ  - 04/4/26(月) 20:14 -

引用なし
パスワード
   ichinose さん、お礼がおそくなりましたが、、、
アドバイスどうもありがとうございます!!

>>してあるつもりですが、日付のセルはH16.4.1だとH20.4.2となってしまいます。
>気になるのは、            ↑ と   ↑の変化ですね!!

>上記マクロがあるブックをアクティブにして、
>「ツール」----「オプション」の「計算方法」の「1904年から計算する」に
>チェックがついていませんか?もし、チェックされていたらはずしてみて下さい。
>
>気がついたのは、これぐらいですが・・・。


アドバイスのとおりみてみましたところ、
チェックがはいってあり、はずした後に日付の入力されてあるセルが変化しました。
マクロを実行してみると、以前のように日付が変わることもなく、うまくできております。
本当にありがとうございました。おかげさまで仕事がすすみます。
VBAって難しいけど楽しいですね。まだまだこれから勉強したいとおもいます。

11942 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free