『マクロを実行すると、システム日付が変わってしまう』（のむ）
初めての投稿でうまく伝えられないんですが、sheet1には他のブックからVLOOKUPでデータを
引っ張って、そのデータをsheet2へ値だけ貼り付けると言うマクロを日々更新してマクロ実行
してるんですが、そのマクロを実行するとシステム日付が翌日などに変わってしまい困っています。すいませんが解決法を教えてください！宜しくお願いします！質問が分りずらかったらすいません。
----
 コードが悪さしてるのかな？
 コードを見てみないことには・・・。
 (MARBIN)
----
 システム日付ではなく、エクセルに表示される日付のことではありませんか？
 もしかして、貼り付けるブックと参照されるブックは、一方がMACで作った表で、もう
 一方はWindowsで作ったものではありませんか？(1904年から計算するの有無では?)
 (ちゅうねん)
----
返信ありがとうございます！それでコードとはVBAのことでしょうか？またどちらのブックもWINDOWSで作ったデータなんです･･･。それとシステム日付とはパソコン自体の日付の事でいいんですよね？またまた分りずらい説明かもしれませんがもう少し詳しく言うと、Sheet1のA2に日付があって、VLOOKUPは、IF(Sheet1のA2＝参照するブックのA2,VLOOKUP関数,FLASE）という様な使い方です。そしてsheet1のA2の入力はマクロでinputboxにて入力しています。

----
 ＞ コードを見てみないことには・・・。
 同じくコードをみないことには、上の説明だけでは原因はわかりません。。

 （川野鮎太郎）
----
　　面倒な質問ですいません。コード載せるので宜しくお願いします。


　　Range("A2").Select
    Date = InputBox("日付を入れてください。例：2006年01月01日→→1/1")
    Worksheets("作業シート").Range("A2").Value = Date
    Range("B6:D10").Select
    Selection.Copy
    Sheets("東北").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        ActiveCell.Offset(22, 0).Range("A1").Select
----
 Date --> 違う変数にしたらどうなりますか？
 (ROUGE)
----
ROUGEさんコメントありがとうございます。それですいませんどこをどう変えればいいんでしょうか？無知ですいません。ちなみに今分ったのですが、マクロ実行後、Inputboxで入力した日付にどうやらシステム日付もなるみたいです。
----
 > Date = InputBox("日付を入れてください。例：2006年01月01日→→1/1")
 > Worksheets("作業シート").Range("A2").Value = Date
を
  varDate = InputBox("日付を入れてください。例：2006年01月01日→→1/1")
  Worksheets("作業シート").Range("A2").Value = varDate
など。
Dim Date などがあればそれも変更。
(ROUGE)
----
 ヘルプでは　次のようにあります。
『Date ステートメント
現在のシステムの日付を設定するステートメントです。』
　
    Date = InputBox("日付を入れてください。例：2006年01月01日→→1/1")
↑は「システム日付をInputboxで入力した日付にする」ステートメントです。
そのつもりはなくても。
　
    Worksheets("作業シート").Range("A2").Value =  InputBox("日付を入れてください。例：2006年01月01日→→1/1")
でよろしいのではないでしょうか。
(みやほりん)(-_∂)b
----
ROUGEさん無事できました！本当にありがとうございます！みやほりんさんもコメントありがとうございます！いい勉強になりました！意味も分りとても納得＆スッキリしました！今後参考にさせていただきます！コメント下さった皆さん本当にありがとうございました！今回初投稿でしたが、今後もどんどん投稿して助けて頂きたいと思いますので宜しくお願いします。