Форумы HiProg.com - MS ACCESS, VBA, VB

ник: pashulka
Виктор, Если это допустимо, то можно создать процедуру без параметров и анализировать данные уже непосредственно в этой процедуре. В качестве примера используется событие Worksheet_BeforeDoubleClick которое вызывается двойным кликом мышки и которое необходимо разместить в модуле нужного рабочего листа.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)     If Target.Address = "$A$1" Then 'MS Excel 2000 и старше         If Not IsEmpty(Target) Then            Dim iText As String, vParams As Variant            Dim iCounter As Long, iCount As Long ''            vParams = Split(Target, ";")            If UBound(vParams) = 1 Then               If IsNumeric(vParams(1)) = True Then                  iText = CStr(vParams(0))                  iCount = CLng(vParams(1))                  For iCounter = 1 To iCount                      MsgBox iText & iCounter, vbOKOnly, ""                  Next               End If            End If         Else            MsgBox "Ячейка не содержит информации", vbCritical, ""         End If     End If End Sub