Пока всё равно ничего непонятно. Куда, в какую строку вставлять

Question

Пока всё равно ничего непонятно. Куда, в какую строку вставлять

в макрос вот это "Смола" & Chr(10) & "Петр"?
Макрос пока вот такой -
Sub проба()
Dim fig As Shape, s$
s = "Смола " & InputBox("Введите имя")
On Error GoTo Er1
For Each fig In Worksheets("Лист1").Shapes
If s = fig.TextFrame2.TextRange Then
fig.Select
Exit Sub
End If
Next fig
Er1:
MsgBox "Такого нет"
End Sub

0

05.08.2023

1 ответов

10 просмотров

Roman Rimlynin · Accepted Answer

Roman Rimlynin

s = "Смола " & Chr(10) & InputBox("Введите имя")

0

05.08.2023

Похожие чаты

Пока всё равно ничего непонятно. Куда, в какую строку вставлять

1 ответов

Похожие вопросы