7483798772

'Procedura sortująca arkusz rosnąco

Sub Rosnąco()

'To jest komentarz

Range("C9:H18"). Select

Selection.Sort Keyl:=Range("C9"), Order 1 :=xlAsscending, Header: =x/Guess, OrderCustom:=l, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

'Procedura srtująca arkusz malejąco >****************************************

Sub Malejącoj)

'To jest komentarz

Range("C9:H 18"). Select

Selection.Sort Keyl:=Range("C9"), Order 1 :=xlDescending, Header: =xlGuess, OrderCustom:=l, MatchCase:=False, Orientation:=xlTopToBottom

End Sub

'Wyszukiwanie danych w arkuszu wg klucza umieszczonego w kolumnie C

Sub Szukaj()

‘Deklaracja zmiennej Dim Nazwisko As Yariant ‘Ciało procedury

On Error GoTo Komunikat

Nazwisko = InputBox("Podaj nazwisko studenta, którego chcesz znaleźć.", _ "Szukaj", Nazwisko)

If Nazwisko = "" Then Elsę

Range("C9 ").Select

Columns("C").Find(Nazwisko, after:=ActiveCell).Select Endlf Exit Sub Komunikat:

MsgBox "W Tabeli nie ma takiej osoby!!!"

End Sub