napisał: r_c postów: 38
umieszczony: 5 czerwca 2005 20:26
|
|
Option Explicit
Dim OstatniWiersz As Long, LicznikWierszy As Long, r As Long
Dim WierszRange As Range
Private Sub lstWiersze_DblClick(ByVal Cancel As _ MSForms.ReturnBoolean)
For r = 0 To lstWiersze.ListCount - 1
If lstWiersze.Selected(r) = True Then
Set WierszRange = ActiveSheet.Rows(lstWiersze.Value)
WierszRange.EntireRow.Hidden = True
End If
Next r
If Not WierszRange Is Nothing Then WierszRange.Select
Unload Me
Range("A1").Select
End Sub
Private Sub UserForm_Initialize()
OstatniWiersz = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
Application.ScreenUpdating = False
With Me.lstWiersze
.RowSource = ""
.Clear
End With
For LicznikWierszy = OstatniWiersz To 1 Step -1
If Application.WorksheetFunction.CountA(Rows(LicznikWierszy)) > 0 Then
If Rows(LicznikWierszy).EntireRow.Hidden = False Then
With Me.lstWiersze
.AddItem Rows(LicznikWierszy).Address
End With
End If
End If
Next LicznikWierszy
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
Być może nie jest to dokładnie o co Ci chodzi. Wydaje mi się jednak, że rezultat działania jest taki sam.
Kilka słow wyjaśnień.
W arkuszu umieszczono przycisk CommandButton1 do ładowania UserForm1, która zawiera " lstWiersze " czyli listbox-a.
Do listbox-a ładuje się wszystkie wiersze zakresu arkusza z pominięciem wierszy pustych i ukrytych (w celu przyspieszenia działania procedury).Wybrany wiersz w listbox-ie ukrywa się przez podwójne kliknięcie. To tyle.
r_c |
|
napisał: Gubernator postów: 17
umieszczony: 1 czerwca 2005 20:49
|
|
Witam,
Próbuję stworzyć makro, które będzie mi po każdorazowym kliknięciu na przycisk ukrywać jeden wiersz np.
naciskam przycisk = ukrywa mi cały wiersz 47 (i koniec działania)
naciskam przycisk po raz drugi = ukrywa mi wiersz 46 (i koniec dziłania)
naciskam przycisk po raz trzeci = ukrywa mi wiersz 45 (i koniec dziłania)
Czy ktoś mógłby mi pomóc w skonstruowaniu czegoś takiego, gdyż pętle które tworzę, nie zatrzymują sie po jednym wykonaniu i ukrywają mi wszystkie wiersze, zamiast robić to po kolei po naciśnięciu przycisku.
Dzięki za pomoc
Pozdrawiam
Gubernator |
|
wstecz 1 dalej wszystkich stron: 1
|