VBA в MS Ofice Word 2003

@NATANELLY · Регистрация: 28.11.2011

Author24 — интернет-сервис помощи студентам

Visual Basic

Private Sub Document_Open()
UserForm1.Show
Selection.TypeText Text:=System.ProfileString
End Sub
Private Sub CommandButton1_Click()
ex = TextBox1.Text
iy = TextBox2.Text
Func = Cosex + 2 * iy + 0.13 * (ex + iy * iy) ^ (1 / 3)
TextBox3.Text = Func
Selection.TypeText Text:="| " + TextBox3.Text + " |"
End Sub
Private Sub CommandButton2_Click()
UserForm1.Hide
End Sub

описание остальных свойств, например System.Application выводится на листе после результата вычисления, а вот этого свойства System.ProfileString нет, выдает ошибку. Что делать, как быть, помогите разобраться пожалуйста начинающему. Подскажите что-нибудь

@Казанский · 28.11.2011, 12:33

Сообщение от NATANELLY

описание остальных свойств, например System.Application выводится на листе после результата вычисления, а вот этого свойства System.ProfileString - нет, выдает ошибку. Что делать

Поставить курсор в слово ProfileString, нажать F1 и узнать, что у этого свойства есть обязательные аргументы.

Сообщение от NATANELLY

Func = Cosex + ...

Наверно, Func = Cos(ex) + ...
Против таких описок Option Explicit помогает.

@Казанский 15146 / 6419 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	28.11.2011, 12:33	2
	Сообщение от NATANELLY описание остальных свойств, например System.Application выводится на листе после результата вычисления, а вот этого свойства System.ProfileString - нет, выдает ошибку. Что делать Поставить курсор в слово ProfileString, нажать F1 и узнать, что у этого свойства есть обязательные аргументы. Сообщение от NATANELLY Func = Cosex + ... Наверно, Func = Cos(ex) + ... Против таких описок Option Explicit помогает. 0