Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир 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
 
Ответить
СообщениеПрошу подсказать, как убрать из таблицы TextBox, сохранив при этом данные в ячейках.

Автор - zizip
Дата добавления - 10.09.2020 в 19:30
Pelena Дата: Четверг, 10.09.2020, 20:24 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16631
Репутация: 3595 ±
Замечаний: ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеМожно макросом
[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]

Автор - Pelena
Дата добавления - 10.09.2020 в 20:24
zizip Дата: Четверг, 10.09.2020, 20:42 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Огромное спасибо!
 
Ответить
СообщениеОгромное спасибо!

Автор - zizip
Дата добавления - 10.09.2020 в 20:42
Мир MS Excel » Вопросы и решения » Вопросы по VBA » как убрать из таблицы TextBox (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!