Excel VBA質問箱 IV

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

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


44418 / 76735 ←次へ | 前へ→

【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文の仕様です。

ということです。

0 hits

【37330】ユーザーフォームのボタン色変え たけし 06/4/30(日) 0:42 質問
【37332】Re:ユーザーフォームのボタン色変え neptune 06/4/30(日) 10:14 回答
【37333】Re:ユーザーフォームのボタン色変え たけし 06/4/30(日) 13:39 質問
【37335】Re:ユーザーフォームのボタン色変え kobasan 06/4/30(日) 17:33 発言
【37336】Re:ユーザーフォームのボタン色変え neptune 06/4/30(日) 18:25 回答
【37338】Re:ユーザーフォームのボタン色変え neptune 06/4/30(日) 20:42 回答
【37339】Re:ユーザーフォームのボタン色変え たけし 06/4/30(日) 21:02 お礼

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