ukrywanie wierszy
: wt maja 24, 2016 12:04 pm
Witam
Chciałbym zapytać czy ktoś z forumowiczów pomógłby mi napisać makro do ukrywania wierszy. przeszukałem forum i w tych wątkach które mogły by coś wnieść do mojego arkusza nic nie znalazłem.Tak jak radzę sobie z funkcjami to już z makrem nie bardzo.
Pracuję na arkuszu w którym mam do 200 zajętych wierszy i ok 15 kolumn, jest to mój plan produkcji samochodów i chodzi o to ,że chciałbym ukryć wiersze w których pojazd został już zrobiony, do tej pory zaznaczałem sobie kolorem jako formatowanie warunkowe. Myślę że jeżeli w kolumnie B wpiszę literkę "z" jako zrobiony to ukrywanie wierszy będzie czytelniejsze bo zostaną tylko te które aktualnie się produkują. z góry dziękuję za pomoc znalazłem w sieci takie makro ale to wyrzuca błąd składni BASIC oczekiwano CRLF
Sub HideRowsInCol()
Dim lastRow
lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Dim v_column
v_column = 2
For i = 1 To lastRow -- petla po wszystkich wierszach
If (StrComp(Cells(i, v_column).Value, "Z", vbTextCompare) = 0) Then -- tu modyfikujesz też warunek
Cells(i, v_column).EntireRow.Hidden = True
Else
Cells(i, v_column).EntireRow.Hidden = False
End If
Next i
End Sub
dziękuję za pomoc
Chciałbym zapytać czy ktoś z forumowiczów pomógłby mi napisać makro do ukrywania wierszy. przeszukałem forum i w tych wątkach które mogły by coś wnieść do mojego arkusza nic nie znalazłem.Tak jak radzę sobie z funkcjami to już z makrem nie bardzo.
Pracuję na arkuszu w którym mam do 200 zajętych wierszy i ok 15 kolumn, jest to mój plan produkcji samochodów i chodzi o to ,że chciałbym ukryć wiersze w których pojazd został już zrobiony, do tej pory zaznaczałem sobie kolorem jako formatowanie warunkowe. Myślę że jeżeli w kolumnie B wpiszę literkę "z" jako zrobiony to ukrywanie wierszy będzie czytelniejsze bo zostaną tylko te które aktualnie się produkują. z góry dziękuję za pomoc znalazłem w sieci takie makro ale to wyrzuca błąd składni BASIC oczekiwano CRLF
Sub HideRowsInCol()
Dim lastRow
lastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
Dim v_column
v_column = 2
For i = 1 To lastRow -- petla po wszystkich wierszach
If (StrComp(Cells(i, v_column).Value, "Z", vbTextCompare) = 0) Then -- tu modyfikujesz też warunek
Cells(i, v_column).EntireRow.Hidden = True
Else
Cells(i, v_column).EntireRow.Hidden = False
End If
Next i
End Sub
dziękuję za pomoc