Excel関数で複数条件検索して値があれば○

質問

• Excelの関数を使用して複数条件を検索し、値があれば○を表示する方法について教えてください。
• シートAは貸出台帳で、シートBは返却台帳です。特定のコードが返却台帳に存在する場合に、貸出台帳に○を表示したいです。
• 返却台帳には以前返却された履歴がありますが、貸出した日付以降のコードのみを検索する方法を教えてください。

回答No.7

Wendy02

回答に直接は答えていませんが、こちらのアイデアとして、一考してもよいかと思います。関数は関数としても、まず、シートを別々にするのは管理上良くないと思います。私が作るなら、最低でも、以下のようにすると思います。

　A　　　　B　　　C　　　　D
貸出日　コード　返却日　返却確認
1/1　　　AA　　　1/2　
1/2　　　BB　　　　　　　　　×
1/3　　　AA　　　　　　　　　×
1/4　　　AC　　　　　　　　　×
1/5　　　AD　　　　　　　　　×
1/6　　　AE　　　　　　　　　×

D2 ～の数式
=IF(AND(B2<>"",C2="",TODAY()-A2>10),"×","")

つまり、貸出日から、10日経ったら、×　にする。

大事なのは、この後です。
フィルタオプションを使います。レイアウトは、もう少し工夫したほうがよいですが、簡易データベースにしました。例えば、AA を入れれば、返却確認がないものが出てきます。

　F　　　　　G　　　　　　H
貸出日　　　コード　　　返却日
<=40595　　　AA　　　　　　=

貸出日の数式
="<="&TODAY()

コード
AA　　←変更・入力するのはここだけ

返却日
="="
--------
手作業では面倒なので、ちょっとしたマクロを作りました。

Alt + F11 --> 挿入　-->標準モジュール

手入力は大変ですから、ボタンは、以下は、フォームのボタンにしましたので、標準モジュールです。

Sub ボタン1_Click()
　'フィルタオプションのマクロ
　Dim rng As Range
　With ActiveSheet
　　If .FilterMode = True Then
　　　.ShowAllData
　　End If
　　Set rng = .Range("A1", Cells(Rows.Count, 1).End(xlUp).Offset(, 3))
　　rng.AdvancedFilter _
　　Action:=xlFilterInPlace, _
　　CriteriaRange:=.Range("F1:H2"), _
　　Unique:=False
　　If Application.Subtotal(3, rng.Columns(1).Offset(1)) = 0 Then
　　　MsgBox "該当データがありません。", vbInformation
　　　.ShowAllData
　　End If
　End With
End Sub
Sub ボタン2_Click()
'全画面表示
　 With ActiveSheet
　 If .FilterMode = True Then
　　　.ShowAllData
　 End If
　 End With
End Sub