Excel VBA質問箱 IV

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

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


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

【61778】If〜Then トキノハジメ 09/6/3(水) 13:48 質問[未読]
【61791】Re:If〜Then 藤代千尋 09/6/4(木) 14:33 回答[未読]
【61821】Re:If〜Then トキノハジメ 09/6/7(日) 11:56 お礼[未読]

【61778】If〜Then
質問  トキノハジメ  - 09/6/3(水) 13:48 -

引用なし
パスワード
   If Range("C2").Value < 52 Then
  Wihe Range("C27:T27")
    .Formula ="= If(C4="""",0,IF(C4 < 55,1,0))"
  End With
End If

If Range("C").Value > 51.1 < 51.9 の場合はどのようにすればよいか教えてさい

よろしくお願いいたします。

If Range("C").Value > 53 Then

もあります。
 

【61791】Re:If〜Then
回答  藤代千尋  - 09/6/4(木) 14:33 -

引用なし
パスワード
   51.1 超過、かつ、51.9 未満であれば、以下。

  If (51.1 < Range("C2").Value) And (Range("C2").Value < 51.9) Then

> If Range("C").Value > 53 Then

並列条件なら、If ... ElseIf ... です。

  If (51.1 < Range("C2").Value) And (Range("C2").Value < 51.9) Then
    ...
  ElseIf 53 < Range("C2").Value Then
    ...
  End If

同じ値を複数評価するなら Select Case の方が良いでしょう。
  Select Case Range("C2").Value
    Case Is <= 51.1:  ... '' 51.1 以下
    Case Is < 51.9:   ... '' 51.1 超過、51.9 未満※A
    Case Is <= 53:   ... '' 51.9 以上、53 未満
    Case Is > 53:    ... '' 53.0 超過※B
  End Select
  ※A/B がこの投稿で指定された範囲。それ以外は隙間を埋めるためのもの。


ちょっと気になったのが、これ。

> Range("C").Value

セル(C2)ではなく列(C)の判断ですか? であれば、
・ループでセル1つずつ判断する
・Max/Min などで列の代表値を決めて、その代表値を判断する
のどちらかだと思います。

【61821】Re:If〜Then
お礼  トキノハジメ  - 09/6/7(日) 11:56 -

引用なし
パスワード
   藤代様有難う御座いました。

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