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

ник: pashulka
Предположим, что в ячейке "A1" содержатся параметры для процедуры myMacros, например : Текст;10 Тогда, в модуле этого листа, Вы можете расположить :

Private Sub CommandButton1_Click() 'MS Excel 2000 и старше     If Not IsEmpty([A1]) Then        vParams = Split([A1], ";")        If UBound(vParams) = 1 Then           If IsNumeric(vParams(1)) = True Then              myMacros CStr(vParams(0)), CLng(vParams(1))           End If        End If     Else        MsgBox "Ячейка не содержит информации", vbCritical, ""     End If End Sub Private Sub myMacros(iText As String, iCount As Long)     Dim iCounter As Long     For iCounter = 1 To iCount         MsgBox iText & iCounter, vbOKOnly, ""     Next End Sub

Если же Вы абсолютно уверены в правильности и корректности заполнения нужной ячейки, то можно использовать что-то вроде нижеопубликованного варианта :

Private Sub CommandButton1_Click() 'MS Excel 2000 и старше     myMacros Split([A1], ";") End Sub Private Sub myMacros(ParamArray Argument())     Dim iCounter As Long     For iCounter = 1 To CLng(Argument(0)(1))         MsgBox Argument(0)(0) & iCounter, vbOKOnly, ""     Next End Sub