|
こんにちは。かみちゃん です。
>今日の日付から、特定の日付までのカウントダウンを出したいのですが・・・
> 『Date = today("ggge年m月d日")』
>では、ダメなようで、『』部部bbでコンパイルエラー:配列エラーが出てしまい
「today」が黄色反転して、「コンパイルエラー:SubまたはFunctionが定義されていません」ではないでしょうか?
それとも、todayというユーザー定義関数を作ってあるのでしょうか?
いずれにしても、Dateという名前は変数として使うことはできません。
Dateと記述するだけで、現在の日付を意味するからです。
そこで、以下のようにしてみるとうまく動くはずです。
myDate = Cells(Target + 2, 9).Value
Label19 = Format(myDate, "ggge年m月d日")
'Date関数
'現在の日付を設定するには、Date ステートメントを使います。
Sheet1.Cells(Target + 2, 11) = DateDiff("d", Date, myDate) & "日"
Label21 = Format(Sheet1.Cells(Target + 2, 11), "d日")
|
|