powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
7 сообщений из 7, страница 1 из 1
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32735901
Milk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
Переменная , объявленная ниже
Dim m_iNumberRow As Integer
содержит номер строки Лист1
Как её ( строку ) удалить?
Выражение 

m_iNumberRow.Delete – ОШИБОЧНО

СПАСИБО
...
Рейтинг: 0 / 0
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32735913
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Workbook.Sheets(i).Delete - наверное как-то так?!

Код: plaintext
 .  http://sql.ru/]mahoune  
...
Рейтинг: 0 / 0
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32735979
raur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
List1.строка.clear(delete)
...
Рейтинг: 0 / 0
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32736020
Milk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
worksheets("Наро-Фоминск").20.Delete
Workbook.Sheets("Береж").Delete

PS: оба НЕПРАВИЛЬНЫ

СПАСИБО
...
Рейтинг: 0 / 0
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32736321
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ну а самому по наводке посмотреть влом!!!

Вот щас ведь пойду, потрачу драгоценное время, найду и ....

Код: plaintext
 .  http://sql.ru/]mahoune  
...
Рейтинг: 0 / 0
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32736354
Фотография mahoune
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
WorkSheets("Лист1").Rows(i).Delete


И кусок примера из HELP по EXCEL:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
 --Example 
 --This example deletes row three on Sheet1. 

Worksheets("Sheet1").Rows( 3 ).Delete
		
 --This example deletes rows in the current region on worksheet one where the 
 -- value of cell one in the row is the same as the value in cell one in the previous row. 

For Each rw In Worksheets( 1 ).Cells( 1 ,  1 ).CurrentRegion.Rows
    this = rw.Cells( 1 ,  1 ).Value
    If this = last Then rw.Delete
    last = this
Next
		
 --This example displays the number of rows in the selection on Sheet1. 
 --If more than one area is selected, the example loops through each area. 

Worksheets("Sheet1").Activate
areaCount = Selection.Areas.Count
If areaCount <=  1  Then
    MsgBox "The selection contains " & _
        Selection.Rows.Count & " rows."
Else
    i =  1 
    For Each a In Selection.Areas
        MsgBox "Area " & i & " of the selection contains " & _
            a.Rows.Count & " rows."
        i = i +  1 
    Next a
End If

Код: plaintext
 .  http://sql.ru/]mahoune  
...
Рейтинг: 0 / 0
VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
    #32739181
Milk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
mahoune ,

БОЛЬШОЕ СПАСИБО
PS: после обеда вчера не был на работе,
некогда было ответить.

Код: plaintext
1.
правильный ответ 
Rows(m_iNumberRow).Delete

я получил раньше и Ваш ответ позже протестирую.

Я извиняюсь за потраченное Вами время по моей причине

и БЛАГОДАРЮ Вас , КРЕПКОГО ЗДОРОВЬЯ ВАМ.
...
Рейтинг: 0 / 0
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / VBA , Excel УДАЛЕНИЕ СТРОКИ из Лист1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]