Добрый вечер, форумчане! Прочитал правила и конкретного запрета по другим программам Microsoft Office не увидел. Собственно говоря сама проблема. Есть макрос, что меняет текст в Word'е на разные цвета.
макрос
Sub color() Static i As Long Set myRange = ActiveDocument.Paragraphs(1).Range For i = 1 To myRange.End Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.Font.color = i * 6000 Selection.MoveRight unit:=wdCharacter, Count:=1, Extend:=wdMode Next End Sub
Необходимо сделать изменение параметров текста в определенном месте. Какие переменные необходимо поменять ?
Доброго времени суток, коллеги! Есть необходимость разработать интерактивное приложение в самом VBA. Оно простое на просчёт массивов. Однако, столкнулся с некой проблемой которую решить своими силами не могу банально из-за отсутствия знаний оного. Скажу сразу, что код абсолютно рабочий и багов или ошибок при компиляции нет. Собственно говоря сама проблема: На изображении №1 со стрелочкой можно увидеть, что выводится конкретно одно значение, а на изображении №2 в самом окне Immediate содержится их куда явнее, чем 1 строка. Собственно говоря каким образом сделать так, чтобы весь текст из Immediate изображения №2 был отоброжен в Textbox изображения №1 ?
Скрытый текст
Код вычисления массива
Код
Sub lr9()
Dim X As Single, dX As Single
Dim F As Double
Const Y = 2.1: X = 0.3
dX = UserForm1.TextBox1.Value
'dX = Val(InputBox("Значение шага изменения аргумента:", "Ввод dX"))
Debug.Print "Результат:"
Debug.Print "Для шага dX=" & dX
10 If (X < 0.9) Then
F = X ^ Y + Y ^ X
ElseIf (X >= 0.9 And X <= 1.5) Then
F = X * Y
Else
F = Abs(2 * X - Y)
End If
UserForm1.TextBox2.Value = F
Debug.Print "X=" & X, "F=" & F
X = X + dX
If X <= 2 Then GoTo 10
End Sub[/SPOILER][SPOILER=][B][FONT="Arial Black", Gadget][SIZE=13pt]Код кнопок UserForm
[/SIZE][/FONT][/B][B][FONT="Arial Black", Gadget][SIZE=13pt]
[/SIZE][/FONT][/B]Private Sub CommandButton1_Click()
lr9
End Sub
Private Sub CommandButton2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
End Sub
Private Sub CommandButton3_Click()
UserForm1.Hide
End Sub
Private Sub CommandButton4_Click()
Application.Quit
End Sub