VBAのイベントプロシージャを使った以下の様な方法は如何でしょうか。
質問者様の御質問文には、どの情報がどのセル番号のセルに入力されているのかという事が説明されており線ので、仮の話として、下記の様なレイアウトとなっているものと仮定して話を進める事に致します。
・「作業1」等の各種の作業名が入力されているセル範囲の中で、一番上のセルがある行が28行目
・「店舗A」等の各種の店舗名が入力されているセル範囲の中で、一番左にあるセルがAB3セル
・「ステータス」と入力されているセル範囲の中で、一番左にあるセルがAB4セル
・表の右上の方にある「順調」、「遅延」、「完了」と入力されているセルは、HX3セル、HY3セル、HZ3セル
上記の仮定が正しいものとした場合、次の様な操作を行って、そのシート上の特定のセル範囲内にあるセルに対して、カウントされた数が表示されているセルをダブルクリックすると、該当する店舗名が表示される様にするためのイベントプロシージャを設定されると良いと思います。
まず、Excelウインドウの[開発]タブをクリックして下さい。
次に、「コード」グループの中にある[Visual Basic]ボタンをクリックして下さい。
すると「Microsoft Visual Basic for Applications 」ウィンドウが開きますので、その中の左の方にある「プロジェクト-VBAProject」という囲みの中に並んでいるシート名の中から、御質問にある一覧表が存在するシートの名前を選択してダブルクリックして下さい。(本件の場合はVBAを設定するのは、標準モジュールの中にではなく、ワークシートの方にですので、間違えない様にして下さい)
次に、「Microsoft Visual Basic for Applications 」ウィンドウの右側の大きな囲みの上にある2個の表示欄の内、左側の方に「Worksheet」と表示されている事を確認して下さい。
次に、「Microsoft Visual Basic for Applications 」ウィンドウの右側の大きな囲みの中に、以下の様なVBAの構文を入力して下さい。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim ClickRowF, CountSubR, StatusRangeR, ShopRangeR As Long
Dim myMsg As Integer
Dim CountRange, RangI As Range
Dim ClickColumnF, ClickColumnL, CountRangeFC, CountRangeLC, ShopRangeFC, _
Results As String
Dim CountSub As Variant
'ダブルクリックするセルが存在している列範囲の内の最初の列
ClickColumnF = "HX"
'ダブルクリックするセルが存在している列範囲の内の最後の列
ClickColumnL = "HZ"
'ダブルクリックするセルが存在している最初の行
ClickRowF = 28
'「順調」、「遅延」、「完了」等の検索すべき文字列が入力されている行(ダブルクリックするセルの真上)
CountSubR = 3
If Target.Column >= Columns(ClickColumnF).Column And Target.Column <= Columns(ClickColumnL).Column _
And Target.Row >= ClickRowF And IsNumeric(Target.Value) And Target.Value >= 0 Then
If Target.Value >= 1 And Int(Target.Value) = Target.Value And Cells(CountSubR, Target.Column).Value <> "" Then
'「ステータス」と入力されているセルが存在している列範囲の内の最初の列
CountRangeFC = "AB"
'「ステータス」と入力されているセルが存在している列範囲の内の最後の列
CountRangeLC = "HW"
'「ステータス」と入力されている行
StatusRangeR = 4
'店名が入力されている列範囲の内の最初の列
ShopRangeFC = "AB"
'店名が入力されている行
ShopRangeR = 3
Set CountRange = Range(CountRangeFC & Target.Row & ":" & CountRangeLC & Target.Row)
CountSub = Cells(CountSubR, Target.Column).Value
Results = "ステータスが「" & CountSub & "」となっている店舗には" _
& Chr(13) & "以下のものがあります。" & Chr(13)
For Each RangI In CountRange
If RangI.Value = CountSub And Cells(StatusRangeR, RangI.Column).Value = "ステータス" Then
Results = Results & Chr(13) & Cells(ShopRangeR, RangI.Column + _
Columns(ShopRangeFC).Column - Columns(CountRangeFC).Column).Value
End If
Next RangI
myMsg = MsgBox(Results, vbOKOnly + vbInformation, "該当店舗")
End If
End If
SendKeys "{ESC}"
End Sub
以上で準備は完了で、後はHX列~HZ列の28行目以下にある、カウント結果が表示されているセルをダブルクリックしますと、該当する店舗が表示されたBoxが現れます。(但し、カウント結果が0になっているセルをダブルクリックした場合に関しては、表示すべき店舗名が存在しませんので、Boxは現れません)
【参考URL】
エクセルExcel大事典 VBAマクロ イベントプロシージャ Open Target Cancel EnableEvents Volatile
http://home.att.ne.jp/zeta/gen/excel/c04p59.htm