複数の条件によって表示させたい

質問

図のように結果を関数で表示させたい。

A列（正社員と嘱託の場合）BセルとDセルが一致していて、CセルとEセルも一致している場合は「前後○」と表示させたい。
A列（正社員と嘱託の場合）BセルとDセルが一致していて、CセルとEセルも不一致している場合は「後×」と表示させたい。
A列（正社員と嘱託の場合）BセルとDセルが不一致していて、CセルとEセルも一致している場合は「前×」と表示させたい。
A列（正社員と嘱託の場合）BセルとCセルがDセルが一致していて、Eセルが空欄の場合は○と表示させたい。
A列（パート）の場合はBセル、Cセル Dセル,Eセルが空欄でも〇

回答No.1

NuboChan · ベストアンサー

条件から出力される結果と参考画像の結果で
4行目と９行目が「前×」はおかしくないですか？

参考のVBAです。

Sub Compared()
Dim i As Long

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

Select Case Cells(i, "A")
Case "パート"
Cells(i, "F") = "○"

Case "正社員"
If Cells(i, "B") = Cells(i, "D") And Cells(i, "C") = Cells(i, "E") Then Cells(i, "F") = "前後○"
If Cells(i, "B") = Cells(i, "D") And Cells(i, "C") <> Cells(i, "E") Then Cells(i, "F") = "後×"
If Cells(i, "B") <> Cells(i, "D") And Cells(i, "C") = Cells(i, "E") Then Cells(i, "F") = "前×"
If Cells(i, "B") = Cells(i, "C") And Cells(i, "C") = Cells(i, "D") And Cells(i, "E") = "" Then Cells(i, "F") = "○"

Case "嘱託"
If Cells(i, "B") = Cells(i, "D") And Cells(i, "C") = Cells(i, "E") Then Cells(i, "F") = "前後○"
If Cells(i, "B") = Cells(i, "D") And Cells(i, "C") <> Cells(i, "E") Then Cells(i, "F") = "後×"
If Cells(i, "B") <> Cells(i, "D") And Cells(i, "C") = Cells(i, "E") Then Cells(i, "F") = "前×"
If Cells(i, "B") = Cells(i, "C") And Cells(i, "C") = Cells(i, "D") And Cells(i, "E") = "" Then Cells(i, "F") = "○"
End Select
Next
End Sub

お礼

ありがとうございます。 作動できましたが、おっしゃる通り4と9行がおかしいですね。質問の内容が間違っておりました。 新たに再度質問させてください。

Powered by GRATICA