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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
как убрать из таблицы 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
Группа: Админы
Ранг: Местный житель
Сообщений: 19404
Репутация: 4555 ±
Замечаний: ±

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
 
Ответить
СообщениеМожно макросом
[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
  • Страница 1 из 1
  • 1
Поиск:

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