|
ご回答、今回も頂きまして、ありがとうございました。
頂いてからずっと試しているのですが、
まだうまく動きません。
頂いたものを参考に、下記のように記述したのですが・・・
(随分と短くなってしまいました)
Dim WS1 As Worksheet
Dim Mydate As Date
Set WS1 = Worksheets("sheet1")
Mydate = DateAdd("q", 2, WS1.Cells(1, 1).Value) - 1
WS1.Cells(1, 2) = Mydate
「型が一致しません」
と表示されてしまいます。
まだ、どうもよく分からないのですが、
Date
という型は、例えば
20040826
とか
040826
とか、あるいは
082604
等とセルに書かれていた場合、上記のように任意の名前
(例えばMydate等)に、特になにも指定しなくても、
「これは日付のことだな」と判断して、
取得し、格納してくれるものなのでしょうか?
前回の長ったらしくなってしまったマクロは
そういったところが分からず、どうにかして
#mm/dd/yy#
の形にもっていこうとしていたのですが・・・。
また、上記がどうして動かないのかも、
何を調べてみても、よく分からないんです。
それと、numberを6に修正、とありましたが、
2
でも
18
でもなく、
6
でよろしいんですか?
何度も投稿して恐縮ですが、お返事お待ちしております。
|
|