Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: Анатолий (Киев)
Sub TestExcelFunc() On Error Resume Next Dim ExlApp As Object 'Excel.Application Set ExlApp = GetObject(, "Excel.Application") 'Если есть открытый Excel If Err.Number <> 0 Then Err.Clear Set ExlApp = CreateObject("Excel.Application") 'Иначе - создаем новый End If MsgBox ExlApp.WorksheetFunction.Round(1.125, 2) Set ExlApp = Nothing End Sub
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.