Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.01.2019, 14:51   #1
Pavel1155
Пользователь
 
Регистрация: 14.01.2019
Сообщений: 12
По умолчанию Отчистить содержимое через макрос. Нужна помощь!!!

Всем привет! Нужна помощь!!!! Проблема такая, есть форма в которой в листбоксе данные из таблицы, по нажатию кнопки "Отчистить форму" должно очищаться содержимое колонки "Кол-во" в таблице.
Не могу ума дать этой функции.
Заранее спасибо за помощь!
Вложения
Тип файла: rar Книга2.rar (70.4 Кб, 7 просмотров)
Pavel1155 вне форума Ответить с цитированием
Старый 14.01.2019, 16:48   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

Код:
Private Sub CommandButton3_Click() ' Delete_gel Макрос Удаление столбца "Штук"
  Dim r
  r = Cells(Rows.Count, 69).End(xlUp).Row
  If r > 2 Then Range([bq3], Cells(r, 69)).ClearContents
End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 14.01.2019, 17:10   #3
Pavel1155
Пользователь
 
Регистрация: 14.01.2019
Сообщений: 12
Печаль Спасибо но теперь макрос не изменяет данные

Спасибо но теперь макрос не изменяет данные и отчищает колонку только когда находишься непосредственно на лите с таблицей
Pavel1155 вне форума Ответить с цитированием
Старый 14.01.2019, 17:14   #4
Pavel1155
Пользователь
 
Регистрация: 14.01.2019
Сообщений: 12
По умолчанию

Я извиняюсь, наверное не правильно вопрос задал. Листов документе будет много и форма работает из любого листа
Pavel1155 вне форума Ответить с цитированием
Старый 14.01.2019, 17:58   #5
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

пример как раз располагал к выводу что в книге МНОГО листов
Код:
Private Sub CommandButton3_Click() ' Delete_gel Макрос Удаление столбца "Штук"
  Dim r
  with worksheets(x)
    r = .Cells(.Rows.Count, 69).End(xlUp).Row
    If r > 2 Then Range(.[bq3], .Cells(r, 69)).ClearContents
  end with
End Sub
вместо x напишите № листа или его имя "в кавычках"
и... самостоятельно это было никак не поправить?
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 14.01.2019, 18:04   #6
Pavel1155
Пользователь
 
Регистрация: 14.01.2019
Сообщений: 12
По умолчанию

Большое спасибо! Просто первые дни знакомства с VBA)))
Pavel1155 вне форума Ответить с цитированием
Старый 14.01.2019, 18:15   #7
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

и меня тогда извините.
удачи!
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна помощь в удаленном соединении с usb портом через интернет bochakms HTML и CSS 0 04.11.2015 15:32
Нужна помощь!Функция будильника через компоненты DateTimePicker, MonthCalendar Raina97 Помощь студентам 12 11.11.2014 19:43
Нужна помощь в расшифровке через AS3 Flash netsecuritate Общие вопросы Web 1 29.06.2014 04:51
Нужна помощь с отправкой почты через Access Uram Microsoft Office Access 1 10.12.2013 15:25
срочно нужна помощь, через несколько часов край, сдать надо plasteed Помощь студентам 2 17.11.2013 19:12