[[20170519143930]] 『複数の条件から特定のセルの値を返したいと思って』(マクロ初心者) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『複数の条件から特定のセルの値を返したいと思っていますが・・・』(マクロ初心者)

複数の条件付きのマクロを組みたいと思っておりますがどう作成していいものか
分からず質問させていただきます。

下記のような表があり

   A1

1  A類 「○」・「X」・「△」等の種別

2  B類 「0.05〜1.000」のランダムの数値
  
3  C類 「0.005〜0.1」のランダムの数値

例えば
A類が「×」の時でB類「0.1〜0.3」・C類「0.05〜0.2」のランダムな値でB類がC類の11%以上の場合はAA1のセル内容をAA10表示

A類が「×」の時でB類「0.1〜0.3」・C類「0.05〜0.2」のランダムな値でB類がC類の10%以下の場合はAA2のセル内容をAA10表示

   
ただしA類「×」の時でB類が0.05以下の場合のみ10%以上でも以下でもAA2のセル内容をAA10に表示

のようなマクロを組みたいと思っておりますがどのようにすればいいか
分かりません。
助けていただけると非常に助かるのでどうかよろしくお願いします。

< 使用 Excel:、使用 OS: >


Sub main()
'B類がC類の10.5%の場合はどうなるのか分かりませんが
    Dim A類, B類, C類
    A類 = Range("A1").Value
    B類 = Range("A2").Value
    C類 = Range("A3").Value
    If Application.WorksheetFunction.And(A類 = "×", B類 <= 0.05) Then Range("AA10").Value = Range("AA2").Value: Exit Sub
    If Application.WorksheetFunction.And(A類 = "×", B類 >= 0.1, B類 <= 0.3, C類 >= 0.05, C類 <= 0.2, B類 >= C類 * 0.11) Then
        Range("AA10").Value = Range("AA1").Value: Exit Sub
    End If
    If Application.WorksheetFunction.And(A類 = "×", B類 >= 0.1, B類 <= 0.3, C類 >= 0.05, C類 <= 0.2, B類 <= C類 * 0.1) Then
        Range("AA10").Value = Range("AA2").Value: Exit Sub
    End If
End Sub
(mm) 2017/05/19(金) 16:38

返信ありがとうございます。
これを参考にチャレンジしてみます。
またわからないことがあればよろしくお願いします。
(エクセル初心者) 2017/05/22(月) 11:47

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.