複数のセルを判定して、入力値を決めるマクロ

質問

エクセルで下記の様なマクロを組みたいのですが、どのようにすればよいでしょうか。

まず、下記のようにセルが４つあります。

　－－－－－－－－－－－－－－－－－－－－－－－
｜　　１　　｜　　２　　｜　　３　　｜　　４　　｜
　－－－－－－－－－－－－－－－－－－－－－－－

セル１，２，３にはＡ，Ｂ，Ｃの文字が手動で入力されます。
（全てＡという場合もあり、重複可です）
セル１，２，３に入力された文字を判定してセル４にｓ，ａ，ｂ，ｃという文字を自動的に表示させたいのです。

セル４に表示させる為の条件は、

セル１がＡの場合

セＣ　ｂｂｂ
ルＢ　ａｂｂ　←ここがセル４に表示される文字です
２Ａ　ｓａｂ

　　　ＡＢＣ
　　　セル３

セル１がＢの場合
　・
　・
　・

といった感じです。

回答No.5

imogasi · ベストアンサー

E1：F22に表を作る
H列は評価記号（s,a,b,cのどれか）をセットする。
ルールが質問から割り出せなかったので、済みません便宜的に数字にした。
（E列）（F列）
AAA 1
BBB 2
CCC 3
ABA 4
BAA 5
AAB 6
ACA 7
CAA 8
AAC 9
BAB 10
ABB 11
BBA 12
BCB 13
CBB 14
BBC 15
CAC 16
ACC 17
CCA 18
CBC 19
BCC 20
CCB 21
ABC　　　22
組み合わせはこれ以外はないと思いますがチェックよろしく。
（関数式）
D1に=IF(OR(A1="",B1="",C1=""),"",VLOOKUP(A1&B1&C1,$E$1:$F$22,2,FALSE))
といれ、入力予定行まで複写する。

回答No.8

papayuka

ご質問がマクロって事で、ユーザー定義関数で考えてみました。
セルD1 に =Hantei(A1,B1,C1) って感じで使います。

既に回答が出ているように、シートに対比テーブルを作れば既存の
VLOOKUP関数で問題なく出来ますので、自分で書いておいて何ですが
はっきり言ってお薦めしません。、、、（^^；

Function Hantei(r1 As Range, r2 As Range, r3 As Range) As String
Dim s, list(2, 2), i As Integer, j As Integer, cnt As Integer
'Application.Volatile　'自動再計算をするか
On Error GoTo ER:
　Select Case UCase(r1.Value)
　Case "A"
　　s = Array("S", "A", "B", "A", "B", "B", "B", "B", "B")
　Case "B"
　　s = Array("A", "B", "B", "A", "B", "C", "B", "C", "C")
　Case "C"
　　s = Array("B", "C", "C", "B", "C", "C", "C", "C", "C")
　End Select

　cnt = 0
　For i = 0 To 2
　　　For j = 0 To 2
　　　　 list(i, j) = s(cnt)
　　　　 cnt = cnt + 1
　　　Next j
　Next i

　i = Asc(UCase(r2.Value)) - 65
　j = Asc(UCase(r3.Value)) - 65
　Hantei = list(i, j)
　Exit Function
ER:
End Function

回答No.7

snoopy64

補足ありがとうございます。

Sheet2に以下のテーブルを作成します。
A列　B列
AAA　S
AAB　A
AAC　B
ABA　A
ABB　B
ABC　B
ACA　B
ACB　B
ACC　B
BAA　A
BAB　B
BAC　B
BBA　A
BBB　B
BBC　C
BCA　B
BCB　C
BCC　C
CAA　B
CAB　C
CAC　C
CBA　B
CBB　C
CBC　C
CCA　C
CCB　C
CCC　C

で、セル４（Sheet1のD1とします）に、
=VLOOKUP(A1&B1&C1,Sheet2!$A:$B,2,0)
こんな感じでイケるのではないでしょうか。

頑張ってくださいヽ(^。^)ノ

回答No.6

BLUEPIXY

例えば、セル１，２，３，４がA1,B1,C1,D1の時で
セル１がＡの場合
=INDEX({"B","B","B";"A","B","B";"S","A","B"},FIND(B1,"CBA"),FIND(C1,"ABC"))
の様にそのままに近い感じで書けます。
あとは、セル１を使って
=CHOOSE(FIND(A1,"ABC"),Ａの場合,Ｂの場合,Ｃの場合)
と組み合わせて書けばいいですね。
見苦しくなるのでわけて書きました。

回答No.4

maruru01

こんにちは。maruru01です。

やはり、数式で出来ますが、規則性がないなら、どこかに一覧表を作成して、それを参照するのがいいと思います。
何か規則性、例えば、
Aが3つ→"s"
Aが2つ、Bが1つ→"a"
・・・
という風にあれば、それを元に数式を組み立てられます。
その場合は、全部の組み合わせを提示して下さい。

回答No.3

パんだ パンだ（@Josquin）

＃１さんが書いておられるとおり、マクロじゃなくて、関数でできます。
条件がわかりませんので、ご希望のものかどうかわかりません。

=IF(AND(A1="A",B1="A",C1="A"), "s", IF(OR(AND(A1="A",B1="A",C1="B"), AND(A1="A",B1="B",C1="A"),AND(A1="B",B1="A",C1="A")),"a",IF(OR(A1="A",B1="A",C1="A"),"b","c"))

回答No.2

BLUEPIXY

条件がよくわからないんですけど

回答No.1

snoopy64

法則が見えないんですけど・・・
要するに、場合分けの式をセル４に書きたいんですよね?
場合分けに使える関数の一つに「IF」があります。
=IF(条件,真の場合,負の場合)
って感じです。例えば
=IF(A1="A","Aです","Aじゃないです")
というふうに使います。
頑張ってくださいヽ(^。^)ノ

補足

条件はマトリックスで書いたつもりだったんですが、
分かりにくかったようですね。スイマセン。
条件の所だけもう一度書くと
セル１がＡの場合
　　　　－－－－－
　　Ｃ｜Ｂ｜Ｂ｜Ｂ｜
セ　　｜－－－－－｜
ル　Ｂ｜Ａ｜Ｂ｜Ｂ｜
２　　｜－－－－－｜
　　Ａ｜Ｓ｜Ａ｜Ｂ｜
　　　　－－－－－
　　　　Ａ　Ｂ　Ｃ
　　　　　セル３

セル１がＢの場合
　　　　－－－－－
　　Ｃ｜Ｂ｜Ｃ｜Ｃ｜
セ　　｜－－－－－｜
ル　Ｂ｜Ａ｜Ｂ｜Ｃ｜
２　　｜－－－－－｜
　　Ａ｜Ａ｜Ｂ｜Ｂ｜
　　　　－－－－－
　　　　Ａ　Ｂ　Ｃ
　　　　　セル３

セル１がＣの場合
　　　　－－－－－
　　Ｃ｜Ｃ｜Ｃ｜Ｃ｜
セ　　｜－－－－－｜
ル　Ｂ｜Ｂ｜Ｃ｜Ｃ｜
２　　｜－－－－－｜
　　Ａ｜Ｂ｜Ｃ｜Ｃ｜
　　　　－－－－－
　　　　Ａ　Ｂ　Ｃ
　　　　　セル３
となります。
例を出すと、セル１にＡ，２にＢ，３にＡが入力されると
上記マトリックスから、セル４にはＡが自動で入力されることになります。