VBA использовать формулу из String
Формулировка задачи:
Как передать формулу из String
пример
Как это сделать?????
Решение задачи: «VBA использовать формулу из String»
textual
Листинг программы
Sub Test2() Dim a1 As Integer Dim a2 As Integer Dim a3 As Integer Dim b As String Dim objScript As Object Set objScript = CreateObject("MSScriptControl.ScriptControl") ' Вылетает ошибка Run-time error 429: ActiveX component can't create oject objScript.Language = "VBScript" b = "a1*a2" objScript.AddCode (b) 'Скорее всего здесь ошибка a1 = 2 a2 = 3 a3 = objScript.Run() 'Скорее всего здесь ошибка MsgBox (a3) End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д