Excel VBA質問箱 IV

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

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


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

【54209】複数条件を1つのマクロで行なうには ともみ 08/2/29(金) 16:56 質問[未読]
【54210】Re:複数条件を1つのマクロで行なうには Jaka 08/2/29(金) 17:34 発言[未読]
【54236】Re:複数条件を1つのマクロで行なうには ともみ 08/3/1(土) 16:38 質問[未読]
【54240】Re:複数条件を1つのマクロで行なうには Mari 08/3/1(土) 21:40 回答[未読]

【54209】複数条件を1つのマクロで行なうには
質問  ともみ  - 08/2/29(金) 16:56 -

引用なし
パスワード
   1.E6に入力する数値が10.0以下(E6≦10.0)
2.E7に入力する数値が10.0以下(E7≦10.0)
3.J16≦E16×2.5

この3つの条件を
全て満たした場合にH20に・・・あいうえお
1つでも満たせなかった場合にはH20に・・・かきくけこ
と入力させたいのですが・・・

【54210】Re:複数条件を1つのマクロで行なうには
発言  Jaka  - 08/2/29(金) 17:34 -

引用なし
パスワード
   変える前に、良く解らないけど、これ?
でも、小数計算が入るとうまくいかないかも。

If Range("E6").Value <= 10 And Range("E7").Value <= 10 And _
  Range("J16").Value <= (Range("E16").Value * 2.5) Then
  Range("H20").Value = "あいうえお"
Else
  Range("H20").Value = "かきくけこ"
End If

【54236】Re:複数条件を1つのマクロで行なうには
質問  ともみ  - 08/3/1(土) 16:38 -

引用なし
パスワード
   条件を1つ忘れていました・・・
1.E6に入力する数値が10.0以下(E6≦10.0)
2.E7に入力する数値が10.0以下(E7≦10.0)
3.J16≦E16×2.5
4.E3≦2.4

この4つの条件を
全て満たした場合にH20に・・・あいうえお
1つでも満たせなかった場合にはH20に・・・かきくけこ
と入力させたいのですが・・・

【54240】Re:複数条件を1つのマクロで行なうには
回答  Mari  - 08/3/1(土) 21:40 -

引用なし
パスワード
   ▼ともみ さん:
>条件を1つ忘れていました・・・
継ぎ足せば良いだけでは。

If Range("E6").Value <= 10 And Range("E7").Value <= 10 And _
  Range("J16").Value <= (Range("E16").Value * 2.5) And _
  Range("E3").Value <= 2.4 Then
  Range("H20").Value = "あいうえお"
Else
  Range("H20").Value = "かきくけこ"
End If

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