End Sub. Dim Êëóá, Êëóáû() As StringSub Main() Dim Êëóá, Êëóáû() As String Dim ÊîëÊëóáîâ As Integer Ôàéë = "E:\Ôèòíåñ\Ôèòíåñ-êëóáû.xls"; ÎòêðûòàËèÊíèãà Ôàéë; If ÊíèãàÎòêðûòà = 1 Then Workbooks("Ôèòíåñ-êëóáû.xls").Activate ElseIf ÊíèãàÎòêðûòà = 0 Then Workbooks.Open FileName:=Ôàéë; Else MsgBox "Êíèãè íå ñóùåñòâóåò"; Exit Sub End If ' Ïðîâåðÿåì ñîñòîÿíèå èñõîäíîãî ôàéëà; ReDim Preserve Êëóáû(1) As String Êëóáû(1) = Trim(Cells(2, 1).Value) ÊîëÊëóáîâ = 1 ÍîìåðÑòðîêè = 3 While Trim(Cells(ÍîìåðÑòðîêè, 1).Value) <> ""; Êëóá = Trim(Cells(ÍîìåðÑòðîêè, 1).Value) For j = 1 To ÊîëÊëóáîâ; If Êëóá = Êëóáû(j) Then GoTo n2 Next j ÊîëÊëóáîâ = ÊîëÊëóáîâ + 1 ReDim Preserve Êëóáû(ÊîëÊëóáîâ) As String Êëóáû(ÊîëÊëóáîâ) = Trim(Cells(ÍîìåðÑòðîêè, 1).Value) n2: ÍîìåðÑòðîêè = ÍîìåðÑòðîêè + 1 Wend ' Ñîñòàâëÿåì ñïèñîê âñåõ äàííûõ êëóáîâ; For i = 1 To ÊîëÊëóáîâ; Êëóá = Êëóáû(i) k = i For j = i + 1 To ÊîëÊëóáîâ; If Êëóáû(j) >= Êëóá Then Else Êëóá = Êëóáû(j) Êëóáû(j) = Êëóáû(k) Êëóáû(k) = Êëóá; End If Next Next i ' Ñîðòèðóåì ñïèñîê êëóáîâ; frmForma.cboClubList.List = Êëóáû; frmForma.cboClubList.ListIndex = 0
|
