Как удалить TextBox

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

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

Как удалить TextBox (Макросы/Sub)

Как удалить TextBox

Ldhimik

Дата: Четверг, 31.08.2017, 11:11 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

Не могу найти макрос для полного удаления TextBox
фаил выложить не могу размер большой из за TextBox

Ответить

iMrTidy

Дата: Четверг, 31.08.2017, 13:22 | Сообщение № 2

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

Ранг: Участник

Сообщений: 85

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

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

NO

Ldhimik, что значит полного?
Если TextBox, создан через дизайнер, то кодом его не удалить, но можно скрыть. Если же элемент создан кодом, то удалить можно так:
[vba]

Код

Option Explicit

Private Sub UserForm_Click()

Dim i As Integer

i = 0
While i < Me.Controls.Count
    If Me.Controls(i).Name = "txtText" Then
        Me.Controls.Remove i
    End If
    i = i + 1
Wend

End Sub

[/vba]

Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Сообщение отредактировал iMrTidy - Четверг, 31.08.2017, 13:22

Ответить

Ldhimik

Дата: Четверг, 31.08.2017, 15:25 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

Все нашел !!!
[vba]

Код

Sub DeleteAllTextBox()
Dim oSh As Shape
For Each oSh In ActiveSheet.Shapes
oSh.Delete
Next oSh
End Sub

[/vba]

Ответить

Ldhimik

Дата: Четверг, 31.08.2017, 15:26 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 44

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

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

Excel 2010

Тема закрыта

Ответить

AndreTM

Дата: Четверг, 31.08.2017, 17:13 | Сообщение № 5

Группа: Друзья

Ранг: Старожил

Сообщений: 1762

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

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

2003 & 2010

Видимо, это были не совсем "натуральные текстбоксы"...

Хотя да, ActiveX'ы - они такие, лезут, понимаешь ли, в коллецию шейпов

Skype: andre.tm.007
Donate: Qiwi: 9517375010

Сообщение отредактировал AndreTM - Четверг, 31.08.2017, 17:36

Ответить

KuklP

Дата: Четверг, 31.08.2017, 17:25 | Сообщение № 6

Группа: Проверенные

Ранг: Старожил

Сообщений: 2369

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

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

2003-2010

Почему? ActiveX TexBox удалится с листа таким макросом. Отож спешить не надо, iMrTidy

Цитата

3. Кратко, но ёмко опишите задачу в теле поста. ВСЕГДА прикладывайте файл-пример, кроме тех случаев, когда вопрос носит общий характер и не касается конкретно Вашего файла. Темы касающиеся конкретного файла, но без приложенного примера, будут закрываться или удаляться.

Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728

Ответить

iMrTidy

Дата: Четверг, 31.08.2017, 21:08 | Сообщение № 7

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

Ранг: Участник

Сообщений: 85

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

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

NO

KuklP, что сказать, рискнул с предположением, и риск не оправдался. С другой стороны, иногда складывается впечатление, что у людей все поисковые системы заблокированы, и вот только этот сайт и работает...

Вышенаписанное мной не является истиной, но лишь моя точка зрения, которая скорее всего ошибочна.

Ответить

K-SerJC

Дата: Пятница, 01.09.2017, 07:53 | Сообщение № 8

Группа: Проверенные

Ранг: Обитатель

Сообщений: 487

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

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

Excel 2013

Цитата iMrTidy, 31.08.2017 в 21:08, в сообщении № 7 ()

иногда складывается впечатление, что у людей все поисковые системы заблокированы

спросить и ждать ответ всегда легче, чем этот самый ответ искать самому...
почти народная мудрость :-)

Благими намерениями выстелена дорога в АД.

Ответить

Как удалить TextBox (Макросы/Sub)

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