Вызвать форму даты кликом по другой ячейке

[civic]

Помогите, пожалуйста, тут немного.
Кликая по одной ячейке удается вызвать окно, что и где нужно изменить, что бы работало?

Текст для ячейки C4

Модуль 1

Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value

End Sub

Private Sub UserForm_Activate1()
Calendar1.Value = Date
End Sub

Модуль 2

Sub ShowCalendar()
UserForm1.Show
End Sub

Текст в исходном коде листа

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Not Application.Intersect(Range("C4"), Target) Is Nothing Then
UserForm1.Show
End If
End Sub

Результат : В C4 клик= окно с выбором даты

А чтобы еще при этом же кликая на E4 отображалось такое же окно , как сделать?

[EducatedFool]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Range("C4, E4"), Target) Is Nothing Then
        UserForm1.Show
    End If
End Sub

[civic]

EducatedFool! Благодарен!

[civic]

а таймер для задания времени в эксель в VBA-проект как добавить через Toolbox, т.е. как он может называться?

[EducatedFool]

таймер никак не добавить - его надо реализовывать программно
(компонент таймер есть в VB - в VBA его, увы, нет)

[civic]

понятно, спасибо.
вот еще такой вопрос
есть одна надстройка в эксель - Historian client. Она и эксель понимает некоторую функцию, которая записывается как
wwQuery("название сервера", "SET QUOTED_IDENTIFIER OFF SELECT * FROM OPENQUERY(INSQL, " + """" + "SELECT " + "[" + Worksheets("Лист3").Cells(5, 4) + "]" + " FROM WideHistory WHERE wwRetrievalMode = 'delta' AND wwVersion = 'Latest' AND DateTime >= '20110503 13:45:29.000' AND DateTime <= '20110403 13:50:29.000' "")")

возможно я и не по адресу, но как ее нужно изменить, чтобы при вызове
Worksheets("название листа").Cells(9, 6) = wwQuery("название сервера", "SET QUOTED_IDENTIFIER OFF SELECT * FROM OPENQUERY(INSQL, " + """" + "SELECT " + "[" + Worksheets("Лист3").Cells(5, 4) + "]" + " FROM WideHistory WHERE wwRetrievalMode = 'delta' AND wwVersion = 'Latest' AND DateTime >= '20110503 13:45:29.000' AND DateTime <= '20110403 13:50:29.000' "")")

рядом с возвращенным значением выделенного выражения были дата и время его из бд.

То есть среди "SELECT " + "[" + Worksheets("Лист3").Cells(5, 4) + "]" куда и как нужно вставить DateTime так, чтобы сначала отбражалось значение а потом дата?

[Hugo121]

Я думаю, тут нужно код wwQuery() смотреть - есть ли такая возможность. Или написать функцию wwQueryDateTime().

[civic]

к сожалению лист с кодом wwquery в VBA запаролен...