Новые сообщения · Участники · Правила форума · Поиск · RSS
Страница 1 из 11
Модератор форума: DV68, Author 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Макрос на удаление из динпмической таблицы заданого кол-ва с (Удаление нескольких строк одновременно)
Макрос на удаление из динпмической таблицы заданого кол-ва с
ЮАДата: Вторник, 31.07.2012, 20:41 | Сообщение # 1
Группа: Проверенные
Сообщений: 12
Статус: Offline
Ребят, помогите плиз.
На листе3 имеется динамическая таблица. Из месяца в месяц она может менять свою длину.
В модуле макросов записан макрос DelRow, который удаляет одну строку, на которой находится курсор. А мне надо одновременно удалять сразу несколько строк. А точнее, все заполненные строки таблицы, кроме первой.
Для этой цели, я слямпичил специальную форму. А вот как ее замутить в существующий макрос, прикрепив его к кнопочке CommandButton1, не знаю.
Помогите пожалуйста, если вам не трудно
Заранее спасибо
Прикрепления: 9882400.rar(61Kb)
 
ABCДата: Вторник, 31.07.2012, 20:54 | Сообщение # 2
Группа: Проверенные
Сообщений: 28
Статус: Offline
Call DelRow_ОбластьРеестра
 
ЮАДата: Вторник, 31.07.2012, 22:13 | Сообщение # 3
Группа: Проверенные
Сообщений: 12
Статус: Offline
Не понял, что это даст? Кроме ошибки.
Мне же надо удалять через форму.и сразу несколько строк, кроме первой.


Сообщение отредактировал ЮА - Вторник, 31.07.2012, 22:15
 
ABCДата: Вторник, 31.07.2012, 23:00 | Сообщение # 4
Группа: Проверенные
Сообщений: 28
Статус: Offline
Code
Dim i&, s&, p&
s = ActiveCell.Row
For i = 1 To txtbRowKol
     If optbDown.Value = True Then
         s = ActiveCell.Row
     Else
         p = ActiveCell.Row - txtbRowKol
         Rows(p).EntireRow.Delete
     End If
Next
 
ЮАДата: Вторник, 31.07.2012, 23:39 | Сообщение # 5
Группа: Проверенные
Сообщений: 12
Статус: Offline
АВС, чейчас удаляет, но только над активной ячейкой. А надо чтобы и второй вариант (под активной ячейкой) тоже работал. На выбор пользователя. И только в пределах ОбластиРеестра. А если курсор стоит за этой облвстью, выдает отказ на удаление.
Прикрепления: 1739806.rar(62Kb)
 
ЮАДата: Пятница, 03.08.2012, 17:49 | Сообщение # 6
Группа: Проверенные
Сообщений: 12
Статус: Offline
Добрый день
Спейцы подправьте пожалуйста макрос Click , который должен удалять заданое количество строк одновременно. Причем, только в пределах ОбластьРеестра.
Мой работает, но очень коряво и с ошибками.
Прикрепления: 9188514.rar(63Kb)
 
Форум » ТЕМАТИЧЕСКИЕ » Excel - Готовые формулы » Макрос на удаление из динпмической таблицы заданого кол-ва с (Удаление нескольких строк одновременно)
Страница 1 из 11
Поиск:
  <script type="text/javascript">teasernet_blockid = 656993;teasernet_padid = 271069;</script><script type="text/javascript" src="http://bzlwe.com/07f6/bad6484c927/07.js"></script> 
Copyright MyCorp © 2017 Используются технологии uCoz