Ĺadny brzuch
Chcę wyczyścić kilka komórek (od a1 do a10) i napisałem taki kod:
Sub Czysc() Arkusze = Array("s14", "s15", "s28", "42", "62", "alb", "euro", "chamsi", "chambp", "tessi", "tesbp", "kaufluk", "kaufbp", "chammm", "czysta2", "czysta3", "czysta4", "czysta5") Load Okno Okno.ListaArkuszy.List = Arkusze Okno.Show If Okno Then Select Case Okno Case PrzyciskOK Dim WybranyArkusz As String WybranyArkusz = ListaArkuszy_ItemCheck Dim i As Integer For i = 1 To 10 Worksheets(WybranyArkusz).Cells(i, 1) = "" Next i Case PrzyciskAnuluj End Select End If Unload Okno End Sub
Jednak wyskakuje błąd "type mismatch" i zaznacza się "Select case". (forma jest) Jestem początkujący. Proszę o pomoc
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Sub Czysc() Arkusze = Array("s14", "s15", "s28", "42", "62", "alb", "euro", "chamsi", "chambp", "tessi", "tesbp", "kaufluk", "kaufbp", "chammm", "czysta2", "czysta3", "czysta4", "czysta5") Load Okno Okno.ListaArkuszy.List = Arkusze Okno.Show If Okno Then Select Case Okno Case PrzyciskOK Dim WybranyArkusz As String WybranyArkusz = ListaArkuszy_ItemCheck Dim i As Integer For i = 1 To 10 Worksheets(WybranyArkusz).Cells(i, 1) = "" Next i Case PrzyciskAnuluj End Select End If Unload Okno End Sub
Jednak wyskakuje błąd "type mismatch" i zaznacza się "Select case". (forma jest) Jestem początkujący. Proszę o pomoc