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）の判断ですか？　であれば、
・ループでセル１つずつ判断する
・Max/Min などで列の代表値を決めて、その代表値を判断する
のどちらかだと思います。
【61821】Re:If〜Then
お礼  ﾄｷﾉﾊｼﾞﾒ  - 09/6/7(日) 11:56 -
引用なし
パスワード
   藤代様有難う御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3499 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free