ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выбрать последовательно столбцы по признаку?
3 сообщений из 3, страница 1 из 1
Как выбрать последовательно столбцы по признаку?
    #34932456
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
Ехель 2003.
есть таблица

I Цех1 I Цех6 I Цех3 I Цех2 I Цех1 I Цех1 I Цех2 I Цех4 I Цех4 I Цех1 I


Мне нужно выбрать Цех1 и Цех2

С помощью макроса
Код: 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.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
  Set videlenCEH1 = Range(Cells( 1 ,  1 ), Cells( 20 ,  100 )).Find(What:="CEH1", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False)
    If Not videlenCEH1 Is Nothing Then
    firstAddressCEH1 = videlenCEH1.Address
         Do
            strCEH1 = videlenCEH1.Row
            idCEH1 = videlenCEH1.Column
            Range(Cells( 1 , idCEH1), Cells( 50 , idCEH1)).Select
            Selection.Copy
            Sheets("sheet2").Select
            Cells( 1 , yach).Select
            ActiveSheet.Paste
            Sheets("sheet1").Select
            yach = yach +  1 
            schCEH1 = schCEH1 +  1 
         Set videlenCEH1 = Range(Cells( 1 ,  1 ), Cells( 20 ,  100 )).FindNext(videlenCEH1)
         Loop While videlenCEH1.Address <> firstAddressCEH1
    End If
    Set videlenCEH2 = Range(Cells( 2 ,  1 ), Cells( 20 ,  100 )).Find(What:="CEH2", LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False)
                If Not videlenCEH2 Is Nothing Then
                firstAddressCEH2 = videlenCEH2.Address
                Do
                    strCEH2 = videlenCEH2.Row
                    idCEH2 = videlenCEH2.Column
                    Range(Cells( 1 , idCEH2), Cells( 50 , idCEH2)).Select
                    Selection.Copy
                    Sheets("sheet2").Select
                    Cells( 1 , yach).Select
                    ActiveSheet.Paste
                    Sheets("sheet1").Select
                    yach = yach +  1 
                    schCEH2 = schCEH2 +  1 
                Set videlenCEH2 = Range(Cells( 2 ,  1 ), Cells( 20 , PravStPaketn)).FindNext(videlenCEH2)
            Loop While videlenCEH2.Address <> firstAddressCEH2
    End If
End Sub
я могу выбрать так (сначала столбцы с Цех1, потом с Цех2)

I Цех1 I Цех1 I Цех1 I Цех1 I Цех2 I Цех2 I

или вставив нижний цикл внутрь верхнего

I Цех1 I Цех2 I Цех2 I Цех1 I ...

А мне нужно

I Цех1 I Цех2 I Цех1 I Цех1 I Цех2 I Цех1 I

Никто не поможет?
Спасибо.
...
Рейтинг: 0 / 0
12.11.2007, 14:49
| Ответить | Цитировать | Написать  
Как выбрать последовательно столбцы по признаку?
    #34932672
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
если в первой строке назвнаия столбцов, то
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Public Sub test()
    Dim i As Integer
    Dim strCol As String
    Dim Col As String
    
    'бежим по первой строке и находим, где есть искомое значение
    For i =  1  To  20 
        If Cells( 1 , i) = "q" Or Cells( 1 , i) = "w" Then
            Col = Mid(Cells( 1 , i).Address,  2 ,  1 )
            strCol = strCol + "," + Col + ":" + Col
        End If
    Next i
    'копируем столбцы и переносим на новый лист
    If strCol <> "" Then
        Range(Mid(strCol,  2 ,  255 )).Select
        Selection.Copy
        Sheets("Лист2").Select
        ActiveSheet.Paste
    End If
    
End Sub

или не то?
I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
12.11.2007, 15:24
| Ответить | Цитировать | Написать  
Как выбрать последовательно столбцы по признаку?
    #34935720
vad-anatolij
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vad-anatolij
Гость
HandKot Col = Mid(Cells(1, i).Address, 2, 1)

Количество столбцов более 100, т. е. адрес ячейки может быть $EA$16.
Тогда в случае $E$16 мы получим "Е", а при $EA$16 другой результат, так?

А если я ищу одно слово в словосочетании? Т.е. в ячейке не одно слово "CEH1" а два?
Сопутствующие вопросы)).
...
Рейтинг: 0 / 0
13.11.2007, 15:28
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как выбрать последовательно столбцы по признаку?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2163092]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 87ms
get topic data:
 8ms
get first new msg:
 5ms
get forum data:
 2ms
get page messages:
 33ms
get tp. blocked users:
 1ms
others: 242ms
total:  408ms
созд. / загр.: 408ms
x
x
Закрыть


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