“For… Next”と”Ifステートメント”の組合せ
下記の“For… Next”文で、どうも“For… Next”と”Ifステートメント”の組み合わせがうまくいかないようですので、どなたかアドバイスお願いいたします。私たちは、当日の整数（今月10日なら10）から1ヶ月31日分ループさせたいのです。ただし、” Const intFirstDay = 1”で、変数ourNumberの中に数字が代入されていたら、変数iは必ず整数１（当月1日という意味）にしたいのです。よろしくお願いいたします！
Sub ourtDay()
Dim i As Integer
Dim j As Integer
Dim D As Integer
Dim ourDay As Integer
Dim ourNumber As Integer
ourNumber =任意の数字（任意の数字が代入される）
Const intFirstDay = 1
D = Int(Day(Date))
For i = 1 To 31
If ourNumber <> "" Then
i = intFirstDay
ElseIf ourNumber = "" Then
For j = 1 To 31
If j = D Then
j = j + 1
End If
Next
Else
j = D
j = j + 1
End If
Next
End Sub
寝起きだからかどうか分かりませんが、
何を質問しているのか理解できません
きっと動作説明らしきものをしたいのでしょうがサッパリです
フローチャートでも作ってみたらどうでしょう？
For...Nextの中でIf文が．．．というところは、
>Dim ourNumber As Integer
なら文字列は入りませんから、
>If ourNumber <> "" Then
は無茶です。
うまくいかないというか、
「型が一致しません」（VB6.0）
「String "" から型 'Double' への変換は無効です。」（VB2005）
というエラーで実行できませんから。
ブレークポイントを設定してステップ実行して、変数の内容をウォッチするとか、
自分でデバッグする習慣をつけたほうがよろしいかと。
Nextでインクリメントする値を指定しても動きませんか？
Sub ourtDay()
Dim i As Integer
Dim j As Integer
Dim D As Integer
Dim ourDay As Integer
Dim ourNumber As Integer
ourNumber =任意の数字（任意の数字が代入される）
Const intFirstDay = 1
D = Int(Day(Date))
For i = 1 To 31
If ourNumber <> "" Then
i = intFirstDay
ElseIf ourNumber = "" Then
For j = 1 To 31
If j = D Then
j = j + 1
End If
Next j
Else
j = D
j = j + 1
End If
Next i
End Sub
>というエラーで実行できませんから。
が〜ん。ガッさん同様、朝は頭が働いていないようです。
＃組み合わせがうまくいっていないようだというのを信じてしまった。
(VB2-VB6専用)掲示板ですが、VBAとかもあるので
一応、開発環境も書き込んでおいて欲しいです。
で、とりあえず変なインデントはやめて欲しい。
インデントでプログラムの動きは変わるわけ
ではありませんので。
> 当日の整数（今月10日なら10）から1ヶ月31日分ループさせたいのです。
月替わりの判定とかは？
日付型で DateAdd 関数を使ったほうがいい気がしますが。
月替わりとか日付が関係ないなら
>For i = 1 To 31
>Next
…だけでいいよね？？？
とにかく31日分ループすればいいんだから。
>変数ourNumberの中に数字が代入されていたら
それもループとは関係ない。
説明を読んでも、コードを見ても、根本的に何がしたいのか
分かりませんでした。
ボクもフローチャートでも作ってみることをお勧めします。
あと、
> i = intFirstDay
ループの中でカウンタ変数を操作するのも慎重に
してください。上記コードでは
> If ourNumber <> "" Then
が成り立つとループが終了しなくなります。
# 構文エラーは論外
１．日本語でやりたいことを書く
↓
２．日本語で必要な処理を箇条書きにする
↓
３．フローチャートで処理を考える
↓
４．コードを書く
多分、１．の時点で不十分な説明しかできていません。
２．３．ができてないと掲示板で他人に仕様を伝える
ことが困難です。掲示板で質問する時点で１．〜４．
を１回通りは実行してないと、有効な回答をつける事が
困難となります。
実行した後で質問を継続することをお勧めします。
| ツイート |  |