セルの内容（日付のところは文字列型（頭にアポストロフィ）で入れてる）
ID 名前 日付 イベント
1 名前1 2012年3月14日 Ａをした
2 名前2 2012年3月15日 Ｂをした
3 名前3 2012年3月16日 Ｃをした
4 名前4 2012年3月17日 Ｄをした
5 名前5 2012年3月18日 Ｅをした
6 名前6 2012年3月19日 Ｆをした

※Sheet1のマクロ
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With UserForm1
y = ActiveCell.Row
.TextBox1 = Cells(y, 1)
.TextBox2 = Cells(y, 2)
.TextBox3 = Cells(y, 3) + vbNewLine + Cells(y, 4)
End With
End Sub

フォーム(UserForm1)を作って下記コントロールを配置
TextBox,TextBox1,TextBox2,TextBox3(Multiline=true),CommandButton1

UserForm1のマクロ
Private Sub CommandButton1_Click()
Sheets(1).Range("A1").AutoFilter 2, "*" & UserForm1.TextBox.Text & "*"
End Sub

ファイル開くイベントとかボタン作って下記マクロでフォームを表示
UserForm1.Show vbModeless
聞いた限りではこんなのしか思い浮かばない