как убрать из таблицы TextBox

Вход

Регистрация

Напомнить пароль

= Мир MS Excel/как убрать из таблицы TextBox - Мир MS Excel

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » как убрать из таблицы TextBox (Макросы/Sub)

как убрать из таблицы TextBox

zizip

Дата: Четверг, 10.09.2020, 19:30 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Прошу подсказать, как убрать из таблицы TextBox, сохранив при этом данные в ячейках.

К сообщению приложен файл: 3677429.xlsx (15.5 Kb)

Сообщение отредактировал zizip - Четверг, 10.09.2020, 19:31

Ответить

Pelena

Дата: Четверг, 10.09.2020, 20:24 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 19184

Репутация: 4420 ±

Замечаний: ±

Excel 365 & Mac Excel

Можно макросом
[vba]

Код

Sub www()
    Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        If sh.Type = msoTextBox Then Cells(sh.TopLeftCell.Row, sh.TopLeftCell.Column) = sh.TextFrame2.TextRange.Text
        sh.Delete
    Next sh
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

zizip

Дата: Четверг, 10.09.2020, 20:42 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Огромное спасибо!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » как убрать из таблицы TextBox (Макросы/Sub)

Страница 1 из 1
1