Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.67/6: Рейтинг темы: голосов - 6, средняя оценка - 4.67
5 / 5 / 0
Регистрация: 13.12.2009
Сообщений: 206

удаление строк

24.08.2013, 20:18. Показов 1291. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
мне надо удалить строки. Посмотрел как это делает сам excel через макрос:

Visual Basic
1
2
3
4
5
6
Sub delete1()
 
    Rows("A1:A100").Select
    Selection.Delete Shift:=xlUp
    
End Sub
но мне нужно переменные запихать вместо A1 и A100, пишу тогда так:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub delete1()
Dim start_for_delete, last_string_for_delete as Long
start_for_delete = 153
last_string_for_delete = 213
 
    Rows("start_for_delete:last_string_for_delete").Select
    Selection.Delete Shift:=xlUp
    
End Sub
Выдает ошибку Run-time error '13': Type mismatch

Я не особо шарю в синтаксисе, уже обозвал их и Integer и Variant всё без толку...
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
24.08.2013, 20:18
Ответы с готовыми решениями:

Удаление строк
Подскажите пожалуйста, почему у меня не удаляет строки. Вот код: Sub DeleteNullValues() Dim i As Integer For i = 15 To 94 If...

Удаление строк
Здравствуйте! Подскажите в чем может быть проблема. Делаю макрос чтобы он удалял строки в которых присутствует знак "-" Он...

Автоматическое удаление строк
Нужно Сделать автоматическое удаления строк. Оставивиnm Поля Учебный план,Факультет,Кафедра,Дисциплина,Специальность,Экзамены,Зачёты с...

2
2061 / 490 / 134
Регистрация: 13.11.2008
Сообщений: 934
24.08.2013, 20:26
Visual Basic
1
Rows(start_for_delete & ":" & last_string_for_delete).Delete Shift:=xlUp
или
Visual Basic
1
Range(Cells(start_for_delete,1),Cells(last_string_for_delete,1)).Entirerow.Delete
Переменные необходимо объявлять как Long:
Visual Basic
1
Dim start_for_delete As Long, last_string_for_delete As Long
1
5 / 5 / 0
Регистрация: 13.12.2009
Сообщений: 206
24.08.2013, 20:28  [ТС]
Цитата Сообщение от Iater Посмотреть сообщение
Rows("A1:A100").Select
пардон, ошибся, конечно Rows("1:100").Select
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
24.08.2013, 20:28
Помогаю со студенческими работами здесь

Удаление строк по условию
Народ, помогите ускорить процесс: For i = 10000 To 1 Step -1 If Cells(i, 2) = "" Then Range(Cells(i, 1), Cells(i,...

Удаление строк по условию
Доброго времени суток! Подскажите пожалуйста, как удалить в нужном столбце при условии что значение ячейки равно например...

Удаление непустых строк
Private Sub CommandButton4_Click() If Application.Intersect(ActiveCell, ActiveSheet.UsedRange) Is Nothing _ Or...

Удаление строк по условию
Имеется таблица, в которой необходимо удалить строки по следующему условию: удалить те строки, в которых ячейка в столбце I - пустая. ...

Удаление строк по условию
Здравствуйте Помогите с макросом, с помощью которого можно удалить все строки таблицы, кроме тех, в которых есть определенный текст,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru