ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exsel VBA
3 сообщений из 3, страница 1 из 1
Exsel VBA
    #38441272
wiktor591
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wiktor591
Участник
Добрый день, коллеги!

Подскажите пожалуйста.

Хочу чтоб по запуску макроса он переключил на определенный лист. И там от ячейки где написано текст Тест1 до ячейки Тест2 он посчитал строки и скрыл их.

Спасибо заранее

"TEST1" до "TEST2"

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub Test()
    Dim m As Long, n As Long, wsh As Worksheet
    
    Set wsh = ActiveSheet
    
    For m = wsh.UsedRange.Row + wsh.UsedRange.Rows.Count - 1 To 1 Step -1
        If wsh.Rows(m).Text = "TEST1" Then Else Exit For
    Next
    Debug.Print m
    
    For n = wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1 To 1 Step -1
        If wsh.Columns(n).Text = "TEST2" Then Else Exit For
    Next
    Debug.Print n
    
    Set wsh = Nothing
End Sub
...
Рейтинг: 0 / 0
25.10.2013, 14:00
| Ответить | Цитировать | Написать  
Exsel VBA
    #38441298
wiktor591
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
wiktor591
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub Test()
    Dim m As Long, n As Long, wsh As Worksheet
    
    Worksheets("Лист").Select
    
    Set wsh = ActiveSheet
    
    For m = wsh.UsedRange.Row + wsh.UsedRange.Rows.Count - 1 To 1 Step -1
        If wsh.Rows(m).Text = "ÁÅÇ ÌÅÍÅÄÆÅÐÀ" Then Else Exit For
    Next
    Debug.Print m
    
    For n = wsh.UsedRange.Column + wsh.UsedRange.Columns.Count - 1 To 1 Step -1
        If wsh.Columns(n).Text = "Èòîãî ÁÅÇ ÌÅÍÅÄÆÅÐÀ" Then Else Exit For
    Next
    Debug.Print n
    
    Set wsh = Nothing

End Sub



Теперь вопрос, а как скрыть выделенный диапазон строк?
...
Рейтинг: 0 / 0
25.10.2013, 14:11
| Ответить | Цитировать | Написать  
Exsel VBA
    #38448300
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
wiktor591,

Добавьте переменные StartRow, EndRow.
И в условии
If wsh.Rows(m).Text = "TEST1" Then
StartRow=m
exit for
end if
...
Дальше думаю уже разберетесь.
...
Рейтинг: 0 / 0
31.10.2013, 13:43
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Exsel VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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