End Sub. Private Sub cboMetroList_Change()Private Sub cboMetroList_Change() ÊîëÇàïèñåé = 0 ÍîìåðÑòðîêè = 2 Ñòàíöèÿ2 = cboMetroList.Value Êëóá2 = cboClubList.Value While Trim(Cells(ÍîìåðÑòðîêè, 1).Value) <> ""; If cboClubList.Value = Trim(Cells(ÍîìåðÑòðîêè, 1).Value) Then If Trim(Cells(ÍîìåðÑòðîêè, 2).Value) = cboMetroList.Value Then ÊîëÇàïèñåé = ÊîëÇàïèñåé + 1 End If End If ÍîìåðÑòðîêè = ÍîìåðÑòðîêè + 1 Wend ' Óçíàåì êîë ïåðåíîñûìûõ çàïèñåé; ReDim Preserve OurTable(ÊîëÇàïèñåé) ÍîìåðÑòðîêè = 2 j = 1 While Trim(Cells(ÍîìåðÑòðîêè, 1).Value) <> ""; If Trim(Cells(ÍîìåðÑòðîêè, 1).Value) = cboClubList.Value Then If Trim(Cells(ÍîìåðÑòðîêè, 2).Value) = cboMetroList.Value Then OurTable(j).Day = Trim(Cells(ÍîìåðÑòðîêè, 6).Value) OurTable(j).Time = Trim(Cells(ÍîìåðÑòðîêè, 5).Value) OurTable(j).Class = Trim(Cells(ÍîìåðÑòðîêè, 3).Value) OurTable(j).Look = Trim(Cells(ÍîìåðÑòðîêè, 4).Value) j = j + 1 End If End If ÍîìåðÑòðîêè = ÍîìåðÑòðîêè + 1 Wend ' Çàïèñûâàåì â íàø òèï äàííûõ, äàííûå óäîëåòâîðÿþùèå óñëîâèÿ...
|
