Добрый вечер, форумчане! Прочитал правила и конкретного запрета по другим программам 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
Необходимо сделать изменение параметров текста в определенном месте. Какие переменные необходимо поменять ?
Не совсем понял логики. Нам нужен вывод самого текст бокса с данными, что из Immidiate. С Вашей стороны конструктива как таковой не увидел. Этот debug не производит вывода на экран никак. Это даже по сути лишняя строка, что можно убрать из кода и всё будет ок.
Цитата
Игорь написал: TextBox2.Value = TextBox2.Value & vbnewline & "X=" & X & ", F=" & F
Он не выводит т.к., обязательно должны быть Userform1. Вариант нечто подобного уже пробовал, но выводит он по прежнему исключительно одно значение x и f. Мой вариант был: UserForm1.TextBox2.Value = vbNewLine & "X=" & X & ", F=" & F З.Ы. Multiline = Enable
Доброго времени суток, коллеги! Есть необходимость разработать интерактивное приложение в самом 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