Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44415 / 76732

←次へ　｜　前へ→


	【37336】Re:ユーザーフォームのボタン色変え

neptune - 06/4/30(日) 18:25 -


	引用なし

	パスワード

▼たけしさん：
やってみたものの気付いていないようですね。
>
>　　 ' 1月未満
>　　　　　Case Is < 1
>　　　　　
>　　　　　　　c = vbRed
>赤になるコードを記述していますが、白くなってしまう原因がわかりません。。
イミディエイトウィンドウに以下をコピペしてEnterを押してください。
?DateDiff("m", "4月15日", "4月30日")
結果は　0　になるはずです。

次のテストプログラムをステップ実行してみてください。
Sub t()
Dim I As Long
　　I = 2
　　Select Case I
　　　 Case 2
　　　　　 Debug.Print I
　　　 Case 3
　　　　　 Debug.Print I
　　　 Case 0
　　　　　 Debug.Print I
　　　 Case 4
　　　　　 Debug.Print I
　　End Select
End Sub
2から下は評価しませんね。
最初にUPされたソースから言えば
>Case Is = 0
から下は評価しないのです。これはSelect文の仕様です。

ということです。

4 hits

▼

【37330】ユーザーフォームのボタン色変え たけし 06/4/30(日) 0:42