Excel VBA質問箱 IV

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

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


4577 / 13644 ツリー ←次へ | 前へ→

【55835】曜日形式の認識について YOU 08/5/20(火) 19:55 質問[未読]
【55840】Re:曜日形式の認識について neptune 08/5/20(火) 22:25 発言[未読]
【55842】Re:曜日形式の認識について YOUSUKE 08/5/20(火) 22:43 お礼[未読]

【55835】曜日形式の認識について
質問  YOU  - 08/5/20(火) 19:55 -

引用なし
パスワード
   今現在、指定した日付の間をAUTOFILLで複写させて、終了する日付を検出したらループを抜け出すマクロを作ってるのですが、終了する日付を検出できず困っています。もう少しの所だと思うのですが、以下のマクロに手を加えていただけないでしょうか?

Sub タイム()
Dim NEN1, TUKI1, HI1, KAISI As Variant
Dim NEN2, TUKI2, HI2 As Variant
Dim OWARI As Date

NEN1 = Range("B5").Value ’開始年
TUKI1 = Range("B6").Value ’開始月
HI1 = Range("B7").Value ’開始日
KAISI = NEN1 & "/" & TUKI1 & "/" & HI1

NEN2 = Range("B5").Value ’終了年
TUKI2 = Range("B6").Value ’終了月
HI2 = Range("B7").Value ’終了日
OWARI = NEN2 & "/" & TUKI2 & "/" & HI2

Range("C10") = KAISI '開始日付の指定
For A = 10 To 40
Cells(A, 3).AutoFill Destination:=Range(Cells(A, 3), Cells(A + 1, 3)), Type:=xlFillDefault '複写
If Cells(A + 1, 3) = OWARI Then ’←※ここの判定が検出してくれません。
Exit For
End If

End Sub

【55840】Re:曜日形式の認識について
発言  neptune  - 08/5/20(火) 22:25 -

引用なし
パスワード
   ▼YOU さん:
こんにちは

余り考えてないですが、気づいた点だけ。

・インデントをつけてないので見にくいです。プログラムの構造がわかり難い。

>
>Sub タイム()
>Dim NEN1, TUKI1, HI1, KAISI As Variant
他言語ではないのでNEN1, TUKI1, HI1, KAISI は全てVariant
Variant以外の型でも、NEN1, TUKI1, HI1はVariantです。
これはVBの仕様です。

>Dim NEN2, TUKI2, HI2 As Variant
>Dim OWARI As Date
>
>NEN1 = Range("B5").Value ’開始年
>TUKI1 = Range("B6").Value ’開始月
>HI1 = Range("B7").Value ’開始日
>KAISI = NEN1 & "/" & TUKI1 & "/" & HI1
>
>NEN2 = Range("B5").Value ’終了年
>TUKI2 = Range("B6").Value ’終了月
>HI2 = Range("B7").Value ’終了日
>OWARI = NEN2 & "/" & TUKI2 & "/" & HI2
問題ないと思いますが、データ型が暗黙の内に合わせられるので
好みません。
(VBの小さな親切ですが、大きなお世話になる事もあるようです。)

・・
>Cells(A, 3).AutoFill Destination:=Range(Cells(A, 3), Cells(A + 1, 3)), Type:=xlFillDefault '複写
すみません。これは使った事無いのでわかりません。
が、この文がここにあるのでいいんですか?オートフィル。
>If Cells(A + 1, 3) = OWARI Then ’←※ここの判定が検出してくれません。
↑にブレークポイントを置いて
各変数の値をチェックしましょう。

【55842】Re:曜日形式の認識について
お礼  YOUSUKE  - 08/5/20(火) 22:43 -

引用なし
パスワード
   お世話になります。
参考にさせてもらいます。

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