Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4822 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【54209】複数条件を１つのマクロで行なうには ともみ 08/2/29(金) 16:56 質問[未読]
【54210】Re:複数条件を１つのマクロで行なうには Jaka 08/2/29(金) 17:34 発言[未読]
【54236】Re:複数条件を１つのマクロで行なうには ともみ 08/3/1(土) 16:38 質問[未読]
【54240】Re:複数条件を１つのマクロで行なうには Mari 08/3/1(土) 21:40 回答[未読]
【54209】複数条件を１つのマクロで行なうには
質問  ともみ  - 08/2/29(金) 16:56 -
引用なし
パスワード
   1.Ｅ6に入力する数値が10.0以下（Ｅ6≦10.0）
2.Ｅ7に入力する数値が10.0以下（Ｅ7≦10.0）
3.Ｊ16≦Ｅ16×2.5

この３つの条件を
全て満たした場合にＨ20に・・・あいうえお
1つでも満たせなかった場合にはＨ20に・・・かきくけこ
と入力させたいのですが・・・
【54210】Re:複数条件を１つのマクロで行なうには
発言  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("Ｈ20").Value = "あいうえお"
Else
　 Range("Ｈ20").Value = "かきくけこ"
End If
【54236】Re:複数条件を１つのマクロで行なうには
質問  ともみ  - 08/3/1(土) 16:38 -
引用なし
パスワード
   条件を1つ忘れていました・・・
1.Ｅ6に入力する数値が10.0以下（Ｅ6≦10.0）
2.Ｅ7に入力する数値が10.0以下（Ｅ7≦10.0）
3.Ｊ16≦Ｅ16×2.5
4.Ｅ3≦2.4

この４つの条件を
全て満たした場合にＨ20に・・・あいうえお
1つでも満たせなかった場合にはＨ20に・・・かきくけこ
と入力させたいのですが・・・
【54240】Re:複数条件を１つのマクロで行なうには
回答  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("Ｈ20").Value = "あいうえお"
Else
　 Range("Ｈ20").Value = "かきくけこ"
End If
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4822 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free