[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『マクロを実行すると、システム日付が変わってしまう』(のむ)
コードが悪さしてるのかな? コードを見てみないことには・・・。 (MARBIN)
システム日付ではなく、エクセルに表示される日付のことではありませんか? もしかして、貼り付けるブックと参照されるブックは、一方がMACで作った表で、もう 一方はWindowsで作ったものではありませんか?(1904年から計算するの有無では?) (ちゅうねん)
> コードを見てみないことには・・・。 同じくコードをみないことには、上の説明だけでは原因はわかりません。。
(川野鮎太郎)
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)
> 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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.