: VBA

. , . .

ij , . - , , . . "".

. . , . . , . .

糺 - "". ' . 糺 - "".

: , . " " "". . '. , -. . .

̳

IJ

:" "

: "

. -2 . .

: . . ,. . . .

, 2000 .

.

1

1.1

3

1.2.

3-4

2.

2.1.

4-5

2.2

5-6

2.3

7

3.

.

3.1

7

3.2

.

8-9

3.3

.

9-10

3.4.

.

11

.

11

.

12

˲ Բ в 1.

2.

3.

1.

1.1 .

- .

.

'.

1.2.

. :

1

2

3

4 /

5

6

. :

1

2

3

4 /

5

6

7

8

9

. :

1

2

3

4

5

6

7 /

8 ,

9

10

11

12 "̳ "

13

. .

. . . ³ .

.

, . .

, , . . . .

䳿. , (. . ), , . . .

2.

2.1.

. :

1. ϳ

2. ϳ ( , )

3. ϳ , , .

4. ϳ ( 1)

5. .

1.

2.2 .

, . . . .

:

= .

:

= .

2.3 .

̳ :

Pentium 233

32 '

200

0,5

VGA 800600

:

Pentium II 366 /Celeron

64 '

2.5

1-2-4

SVGA 800600

1024768.

- , , .

3.

3.1.

Excel97

Visual Basic for Application. Excel97 :

1. . . . .

2. . . - . , .

3. . . - . , . .

4. . .

VBA , , , , , , . .

.

Microsoft Office.

3.2. .

( ) :

1. ²

2.

3. ²

4.

5.

6.

7.

8. Ͳ, , ̲

9. /

10. ֲ

11.

12. ,

13.

14.

15. IJ

16. - /- , /- , - . .

17. IJ

18. . в

19.

20.

21. ̲ Ͳ

22. ײ

23. ղ

24. Ҳ

25.

26.

-

3.

.

. , . .

1. ²

2.

3. .

4. ²

5.

6.

7.

8. Ͳ, , ̲

9. /

10. ֲ

11.

12. ,

13.

14.

15. IJ

г3.

16. - /- , /- , - . .

17. IJ

18.

19. ̲

20. . в

21. Ҳ

22. .

23. . ʲ

24. .

25. .

26. ղ

27.

28. -

г4.

. :

1.

2.

3.

4. ײ

5. ʲ

6. I- I-

7. II - II-

8. III- III-

9. IV- IV-

10. в

11.

12. в

13. ̲ в

14.

15. . ' .

16.

17.

18. . .

19. ²

20. ²

21. ²

22. ² Ѳ

23.

24.

ί ²

25. ղ

г5.

. . :

1.

2.

3.

4.

5. /

6.

7.

8. /

9.

10.

11. ̲ Ͳ

6.

5.3 .

.

SS = Worksheets(PP).Range("L" & .ListIndex + 1)"

3.4 .

. - . :

-

01/02/00

500

02/02/00

600

03/03/00

700

04/04/00

800

05/05/00

900

06/06/00

1000

07/07/00

1100

08/08/00

1200

01/02/00

100

02/02/00

10

03/03/00

15

04/04/00

16

05/05/00

17

08/08/00

18

08/09/00

19

01/02/00

1000

7995

.

. .

.

.

Excel -97.

, , . , .

, .

˳

1. "Microsoft OFFICE97 " . " " . - 1998 .

2. . " Microsoft Office " - " " . - 1999 .

3. " Visual Basic 5 " " BHV--" 1998 .

4. . . "Excel Windows 95 " " BHV--" 1998 .

5. . ³. "Microsoft Office Windows 95 " " BHV--" 1998 .

6. . ." IBM PC ." - : Գ , 1991.

7. . " Windows 95 " " BHV--" 1998 .

8. . , . . "Microsoft Office " " BHV--" 1998 .

.

Dim As String

Dim As String

Dim BOX

Dim ,

Dim 1 As String

Dim г

Private Sub ComboBox1_Change()

Windows( "볺" & Year(Date)).Activate

If ComboBox1.ListIndex = -1 Then

Exit Sub

End If

= ComboBox1.ListIndex

2.Visible = False

.Visible = False

.Visible = False

.Visible = True

If Len(Worksheets().)(Range("A1")) = 0 Then

ComboBox1.Visible = False

Windows( "볺" & Year(Date)).Activate

= Worksheets().Range("C1")

= Worksheets().Range("B1")

볺 = Worksheets().Range("A1")

= Worksheets().Range("D1")

= Worksheets().Range("E1")

= Worksheets().Range("f1")

1 = Worksheets().Range("g1")

= Worksheets().Range("H1")

ElseIf < 1

Windows( "볺" & Year(Date)).Activate

= (Worksheets().)(Range("C" & (ComboBox1.ListIndex + 1)))

= (Worksheets().)(Range("B" & (ComboBox1.ListIndex + 1)))

볺 = (Worksheets().)(Range("A" & (ComboBox1.ListIndex + 1)))

= (Worksheets().)(Range("D" & (ComboBox1.ListIndex + 1)))

= (Worksheets().)(Range("E" & (ComboBox1.ListIndex + 1)))

= Worksheets().Range("f" & (ComboBox1.ListIndex + 1))

1 = Worksheets().Range("g" & (ComboBox1.ListIndex + 1))

= Worksheets().Range("H" & (ComboBox1.ListIndex + 1))

Else

Windows( "볺" & Year(Date)).Activate

= (Worksheets().)(Range("C" & (ComboBox1.ListIndex + 1)))

= (Worksheets().)(Range("B" & (ComboBox1.ListIndex + 1)))

볺 = (Worksheets().)(Range("A" & (ComboBox1.ListIndex + 1)))

= (Worksheets().)(Range("D" & (ComboBox1.ListIndex + 1)))

= (Worksheets().)(Range("E" & (ComboBox1.ListIndex + 1)))

= Worksheets().Range("f" & (ComboBox1.ListIndex + 1))

1 = Worksheets().Range("g" & (ComboBox1.ListIndex + 1))

= Worksheets().Range("H" & (ComboBox1.ListIndex + 1))

End If

End Sub

Private Sub _Click()

Windows( "" & Year(Date)).Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows( "볺" & Year(Date)).Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows( ".xls").Activate

ActiveWorkbook.Save

ActiveWindow.Close

Application.Quit

'ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub

Private Sub UserForm_Activate()

Windows( ".xls").Activate

" , =: " & Worksheets("1").Range("E7") & _

" : " & Worksheets("1").Range("C7") & _

" /: " & Worksheets("1").Range("Q8") & _

" : " & Worksheets("1").Range("D8") & _

" : " & Worksheets("1").Range("P9")

= Worksheets("1").Range("A1")

Windows( "볺" & Year(Date)).Activate

ComboBox1.Clear

= True

X = 1

г = "Year(Date)

While Len(Worksheets().)(Range("A" & X)) < > 0

ComboBox1.AddItem (Worksheets().)(Range("A" & X))

X = X + 1

Wend

End Sub

Private Sub _Click()

If Dir( C:\Program Files\\" & (Year(Date) - 1) &. xls") = _

"" & (Year(Date) - 1) &. xls" Then

Workbooks.Open FileName:= "C:\Program Files\\" & (Year(Date) - 1)

Windows( "" & (Year(Date) - 1)).Activate

Worksheets().Select

г = Year(Date) - 1

Else

= MsgBox( " ",, BOX)

Exit Sub

End If

= True

End Sub

Private Sub _Click()

UserForm1.Hide

UserForm3.Show

End Sub

Private Sub _Click()

UserForm1.Hide

UserForm2.Show

End Sub

Private Sub _Click() ' 1

If IsDate() = True Then

= CDate() - 1

Else

End If

End Sub

Private Sub _Click() '

If IsDate() = True Then

= CDate() + 1

Else

End If

End Sub

Private Sub _Click() ' Excel

Windows( ".xls")."Activate

Application.Visible = True

UserForm1.Hide

ActiveWindow.SelectedSheets.PrintPreview

Application.Visible = False

UserForm1.Show

End Sub

Private Sub UserForm_Initialize()

If Dir( C:\Program Files\\" & Year(Date) &. xls") < > _

"볺" & "Year(Date) &. xls" Then

Workbooks.Open FileName:= "C:\Program Files\\" & (Year(Date) - 1)

Windows( "볺" & (Year(Date) - 1)).Activate

ActiveWorkbook.SaveAs FileName:= "C:\Program Files\\" & Year(Date)

Workbooks.Open FileName:= "C:\Program Files\\" & (Year(Date) - 1)

Windows( "" & (Year(Date) - 1)).Activate

ActiveWorkbook.SaveAs FileName:= "C:\Program Files\\" & Year(Date)

Workbooks.Open FileName:= "C:\Program Files\\.xls"

Windows(".xls").Activate

X = 1

Do While Len(Worksheets("1").)(Range("A" & X)) < > 0

X = X + 1

Loop

X = X - 1

Do While X < > 0

Windows( "볺" & Year(Date)).Activate

Worksheets(CStr(X)).Select

Worksheets(CStr(X)).Range( "L1:)(L65535").Select

Selection.ClearContents

Windows( "" & Year(Date)).Activate

Worksheets(CStr(X)).Select

Worksheets(CStr(X)).Columns( ":)(AG").Select

Selection.ClearContents

X = X - 1

Loop

Windows( "볺" & Year(Date)).Activate

ActiveWorkbook.Save

Windows( "" & Year(Date)).Activate

ActiveWorkbook.Save

Workbooks.Open FileName:= "C:\Program Files\\.xls"

Windows(".xls").Activate

Worksheets("").1

While Len(Worksheets( "").)(Range("A" & X)) < > 0

X = X + 1

Wend

'Worksheets( "").Range("A" & X) = CStr(Year(Date) - 1)

Worksheets( "").Range("A" & X) = CStr(Year(Date))

ActiveWorkbook.Save

Else

Workbooks.Open FileName:= "C:\Program Files\\" & Year(Date)

Workbooks.Open FileName:= "C:\Program Files\\" & Year(Date)

Workbooks.Open FileName:= "C:\Program Files\\.xls"

Workbooks.Open FileName:= "C:\Program Files\\.xls"

End If

г = Year(Date)

2.List = Array(1, 2, 3)

2 = 1

= Date

= True

ComboBox1.Visible = True

.Visible = False

Label1.Visible = True

.Visible = False

Label14.Visible = False

.Visible = False

.Visible = False

.Visible = False

2.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Caption = ": " & "Date

BOX = "

Windows( ".xls").Activate

= Worksheets("1").Range("a1")

Windows( "볺" & Year(Date)).Activate

X = 1

While Len(Worksheets().)(Range("A" & X)) < > 0

ComboBox1.AddItem (Worksheets().)(Range("A" & X))

X = X + 1

Wend

End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

Windows( "" & Year(Date)).Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows( "볺" & Year(Date)).Activate

ActiveWorkbook.Save

ActiveWindow.Close

Windows( ".xls").Activate

ActiveWorkbook.Save

ActiveWindow.Close

Application.Quit

'ActiveWorkbook.RunAutoMacros Which:=xlAutoClose

End Sub

Private Sub _Click()

Windows( "볺" & Year(Date)).Activate

If = False Then ' '

Exit Sub '

Else '

End If

X = 1

Do While X <.ListCount + 1

If 볺 = Worksheets().Range("A" & X) _

And = Worksheets().Range("b" & X) _

And = Worksheets().Range("c" & X) _

And = Worksheets().Range("d" & X) _

And = Worksheets().Range("e" & X) _

And = Worksheets().Range("f" & X) _

And = Worksheets().Range("H" & X) _

And 1 = Worksheets().Range("g" & ComboBox1.ListIndex + 1) _

Then

= "MsgBox( : " & 볺 & " ." _

& Chr(10) & " .,, "BOX)

Exit Sub

Else

X = X + 1

End If

Loop

Worksheets().Range("A" & (ComboBox1.ListIndex + 1)) = 볺

Worksheets().Range("b" & (ComboBox1.ListIndex + 1)) =

Worksheets().Range("c" & (ComboBox1.ListIndex + 1)) =

Worksheets().Range("d" & (ComboBox1.ListIndex + 1)) =

Worksheets().Range("e" & (ComboBox1.ListIndex + 1)) =

Worksheets().Range("f" & (ComboBox1.ListIndex + 1)) =

Worksheets().Range("g" & (ComboBox1.ListIndex + 1)) = 1

Worksheets().Range("H" & (ComboBox1.ListIndex + 1)) =

ActiveWorkbook.Save

= MsgBox( " 볺: " & 볺 & " 볺",, BOX)

볺.SetFocus

End Sub

Private Sub _Click()

Windows( "볺" & Year(Date)).Activate

If = False Then ' '

Exit Sub '

Else '

End If

X = 1

Do While X <1.ListCount + 1

If 볺 = Worksheets().Range("A" & X) _

And = Worksheets().Range("b" & X) _

And = Worksheets().Range("c" & X) _

And = Worksheets().Range("d" & X) _

And = Worksheets().Range("e" & X) _

And = Worksheets().Range("f" & X) _

And = Worksheets().Range("H" & X) _

Then

= "MsgBox( : " & 볺 & " ." _

& Chr(10) & " .,, "BOX)

Exit Sub

Else

X = X + 1

End If

Loop

X = 1

While Len(Worksheets().)(Range("A" & X)) < > 0

X = X + 1

Wend

Worksheets().Range("A" & X) = 볺

Worksheets().Range("b" & X) =

Worksheets().Range("c" & X) =

Worksheets().Range("d" & X) =

Worksheets().Range("e" & X) =

Worksheets().Range("f" & X) =

Worksheets().Range("g" & X) = 1

Worksheets().Range("H" & X) =

ComboBox1.Visible = True

ComboBox1.AddItem (Worksheets().)(Range("A" & (ComboBox1.ListCount + 1)))

ComboBox1.ListIndex = X - 1

ActiveWorkbook.Save

= MsgBox( " 볺: " & 볺 & " 볺",, BOX)

볺.SetFocus

End Sub

Private Sub _Click()

Windows( ".xls").Activate

If Len() = 0 Then

= MsgBox( " ...,, "BOX)

Exit Sub

Else

End If

If = False Then '

Exit Sub '

Else '

End If

'

ActiveWorkbook.Save

Windows( "" & Year(Date)).Activate

Worksheets().Range("A" & ) =

Worksheets().Range("c" & ) =

Worksheets().Range("d" & ) =

Worksheets().Range("b" & ) = 볺

Worksheets().Range("e" & ) =

Worksheets().Range("f" & ) =

Worksheets().Range("g" & ) =

Worksheets().Range("h" & ) =

Worksheets().Range("I" & ) =

Worksheets().Range("J" & ) =

Worksheets().Range("K" & ) = 1

Worksheets().Range("L" & ) =

Worksheets().Range("M" & ) = 1

Windows( ".xls").Activate

'

End Sub

Private Sub _Click()

If Year() < > г Then

= MsgBox( " " & г & " ",, BOX)

Exit Sub

End If

Windows( ".xls").Activate

If Len() = 0 Then

= MsgBox( " ...,, "BOX)

Exit Sub

Else

End If

If = False Then '

Exit Sub '

Else '

End If

'

ActiveWorkbook.Save

Windows( "" & г).Activate

Worksheets().Range("A" & ) =

Worksheets().Range("c" & ) =

Worksheets().Range("d" & ) =

Worksheets().Range("b" & ) = 볺

Worksheets().Range("e" & ) =

Worksheets().Range("f" & ) =

Worksheets().Range("g" & ) = CDbl()

Worksheets().Range("h" & ) =

Worksheets().Range("I" & ) =

Worksheets().Range("J" & ) =

Worksheets().Range("K" & ) = 1

Worksheets().Range("L" & ) =

Worksheets().Range("M" & ) = 1

ActiveWorkbook.Save

= MsgBox( " : " & & " ",, BOX)

볺.SetFocus

End Sub

Private Sub _Click()

= Date

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

If = False Then

Label16.Caption = " " _

& " "

Else

Label16.Caption = " "

End If

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ' ' ². !!!"

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ' ' . , ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " . . "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " " _

& " - "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " " _

& " - "

End Sub

Private Sub UserForm_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption =,

" "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption =, "' . . ."

End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " . , ."

End Sub

Private Sub Label14_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " "

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "' . , . . : 01,01,200 01/01/2000 01.01/00"

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ' . . ."

End Sub

Private Sub 1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "' . ." _

& " , " _

& " ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "' . . : " " """

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "' . . : " " . """

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "' . . ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ' . . : 28 2000 ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ' . . ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ' . . ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "' . . ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = "³ ."

End Sub

Private Sub _MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Label16.Caption = " ."

End Sub

Private Sub _Click()

If Year() < > Year(Date) Then

= MsgBox( " ' ' . г",, BOX)

.SetFocus

Exit Sub

End If

Windows( ".xls").Activate

If = False Then '

Exit Sub '

Else '

End If

If ComboBox1.ListIndex = -1 Then

= MsgBox( " : " & 볺 & " ",, BOX)

Exit Sub

Else

End If

Windows( "볺" & Year(Date)).Activate

If 볺 < > ComboBox1 _

Or < > Worksheets().Range("c" & ComboBox1.ListIndex + 1) _

Or < > Worksheets().Range("b" & ComboBox1.ListIndex + 1) _

Or < > Worksheets().Range("d" & ComboBox1.ListIndex + 1) _

Or < > Worksheets().Range("e" & ComboBox1.ListIndex + 1) _

Or < > Worksheets().Range("f" & ComboBox1.ListIndex + 1) _

Or < > Worksheets().Range("H" & ComboBox1.ListIndex + 1) _

Then

= MsgBox( " : " & 볺 & " ",, BOX)

Exit Sub

Else

End If

2.Visible = True

.Visible = True

'

ActiveWorkbook.Save

Windows( "" & Year(Date)).Activate

.Visible = False

.Visible = True

X = 1

While Len(Worksheets().)(Range("A" & X)) < > 0

X = X + 1

Wend

Worksheets().Select

Range("A" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets().Range("A" & X) = X

Range("g" & X).Select

Selection.NumberFormat = "#,##0"

Worksheets().Range("g" & X) = CDbl()

Worksheets().Range("c" & X) =

Worksheets().Range("d" & X) =

Worksheets().Range("b" & X) = 볺

Worksheets().Range("e" & X) =

Worksheets().Range("f" & X) =

Worksheets().Range("h" & X) =

Worksheets().Range("I" & X) =

Worksheets().Range("J" & X) =

Worksheets().Range("K" & X) = 1

Worksheets().Range("L" & X) =

Worksheets().Range("M" & X) = 1

Windows( ".xls").Activate

Worksheets("1").Range("O2") = X

Windows( "볺" & Year(Date)).Activate

Worksheets().Range("L" & ComboBox1.ListIndex + 1)."NumberFormat = @"

Worksheets().Range("L" & ComboBox1.ListIndex + 1) = _

Worksheets().Range("L" & ComboBox1.ListIndex + 1) + "" & X & "."

ActiveWorkbook.Save

Windows( "" & Year(Date)).Activate

ActiveWorkbook.Save

End Sub

Private Sub _Click()

If .Value = True Then

ComboBox1.Visible = False

.Visible = True

Label1.Visible = False

Label14.Visible = True

.Visible = True

.SetFocus

.Visible = True

.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Visible = True

2.Visible = True

.Visible = True

.Visible = True

.Visible = True

.Visible = True

.Visible = True

.Caption = " "

˳ = 0

= ""

= ""

볺 = ""

= ""

= ""

= ""

1 = ""

= ""

= ""

= ""

= ""

= ""

Else

If г < > Year(Date) Then

Windows( "" & г).Activate

ActiveWindow.Close

г = Year(Date)

Else

End If

= Date

= ""

= ""

볺 = ""

= ""

= ""

= ""

1 = ""

= ""

= ""

= ""

ComboBox1.ListIndex = True

.Visible = False

Label1.Visible = True

Label14.Visible = False

.Visible = False

.Visible = False

.Visible = True

.Visible = True

.Visible = True

.Visible = True

.Visible = False

ComboBox1.Visible = True

2.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Visible = False

.Caption = " "

End If

End Sub

Private Sub _Click()

Windows( ".xls").Activate

'

.Visible = False

2.Visible = False

End Sub

Private Sub _Change()

Windows( "" & г).Activate

If ˳ = 0 Then

Exit Sub

Else

볺 = Worksheets().Range("B" & ˳)

= Worksheets().Range("D" & (˳))

= Worksheets().Range("C" & (˳))

= Worksheets().Range("A" & (˳))

= Worksheets().Range("E" & (˳))

= Worksheets().Range("F" & (˳))

= Worksheets().Range("g" & ˳)

= Worksheets().Range("I" & ˳)

= Worksheets().Range("J" & ˳)

1 = Worksheets().Range("K" & ˳)

= Worksheets().Range("L" & ˳)

= Worksheets().Range("h" & ˳)

1 ' , ,

'

Windows( ".xls").Activate

'

End If

End Sub

Private Sub _Click()

Windows( "볺" & Year(Date)).Activate

If Len(ComboBox1) = 0 Then

= MsgBox( " ...,, "BOX)

Exit Sub

'ElseIf ComboBox1.ListIndex = -1 Then

End If

Dim

= ComboBox1

= MsgBox( " : " & a, vbYesNo, BOX)

If < > vbYes Then

Exit Sub

ElseIf Len(Worksheets().)(Range("L" & ComboBox1.ListIndex + 1)) < > 0 Then

= MsgBox( ", : " & _

& Chr(10) & "- . " _

& Chr(10) & " !!! " _

& Chr(10) & " !!!" & Chr(10) & Chr(10) & _

, vbCritical, BOX)

Exit Sub

End If

If ComboBox1.ListIndex = -1 Then

Exit Sub

Else

Windows( "볺" & Year(Date)).Activate

Worksheets().Select

Rows(ComboBox1.ListIndex + 1).Select

Selection.Delete Shift:=xlUp ' 볺

= ComboBox1

ComboBox1.RemoveItem (ComboBox1.ListIndex)

ActiveWorkbook.Save

= MsgBox( " : " & a,, BOX)

ComboBox1.ListIndex = -1

= ""

= ""

볺 = ""

= ""

= ""

= ""

1 = ""

= ""

= ""

= ""

= ""

End If

End Sub

Private Sub _Click()

Windows( "" & г).Activate

X = 1

While Len(Worksheets().)(Range("A" & (X))) < > 0

X = X + 1

Wend

.Value = X - 1

End Sub

Private Sub _Click()

If Len() = 0 Then

= MsgBox( " ",, BOX)

.SetFocus

Exit Sub

ElseIf > 0 And < Then

.Value =

= ""

.SetFocus

Else

= True

= MsgBox( " ... ",, BOX)

.SetFocus

Exit Sub

End If

If Len() = 0 Then

= True

= MsgBox( " ... ",, BOX)

.SetFocus

Else

End If

End Sub

Private Function TRIMF()

볺 = TRIM(볺)

= TRIM()

= TRIM()

= TRIM()

= TRIM()

= TRIM()

= TRIM()

= TRIM(³)

= TRIM()

= TRIM()

= TRIM()

1 = TRIM(1)

= TRIM()

End Function

Private Function () As String

TRIMF

If = False Then

= False

Exit Function

Else

= True

End If

End Function

Private Function () As String

TRIMF

If = False Then

= False

Exit Function

Else

End If

If Len(1) = 0 Then

MsgBox " ' ' "

1.SetFocus

= False

Exit Function

ElseIf IsDate() = False Then

MsgBox " ' ' "

.SetFocus

= False

Exit Function

ElseIf Len() = 0 Or = "0" Then

= MsgBox( " ' ' ",, BOX)

.SetFocus

= ""

= False

Exit Function

Else

= True

End If

End Function

Private Function () As String

If Len(볺) = 0 Then

= MsgBox( " 볺 ",, BOX)

.SetFocus

= False

Exit Function

ElseIf Len() = 0 Then

= MsgBox( " 볺 ",, BOX)

.SetFocus

= False

Exit Function

ElseIf Len() = 0 Then

= MsgBox( " / 볺 ",, BOX)

.SetFocus

= False

Exit Function

ElseIf Len() = 0 Then

= MsgBox( " 볺 ",, BOX)

.SetFocus

= False

Exit Function

Else

= True

End If

End Function

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

End Sub

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

If Mid(, 1, 1) = "0" Then

= ""

Else

End If

End Sub

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

End Sub

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

End Sub

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

End Sub

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

End Sub

Private Sub _KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (Not (Chr(KeyAscii) Like "[0-9]")) Then KeyAscii = 0

End Sub

Private Function () As String

Sheets("1").Select

If 2 = 1 Then

ActiveWorkbook.Save

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ElseIf 2 = 2 Then

Range( "A1:)(W28").Select

Selection.Copy

Range("A29").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:="True

Rows( 29:80"). Select

Selection.Delete Shift:=xlUp

ActiveWorkbook.Save

ElseIf 2 = 3 Then

Range( "A1:)(W28").Select

Selection.Copy

Range("A29").Select

ActiveSheet.Paste

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:="True

Rows( 29:80"). Select

Selection.Delete Shift:=xlUp

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

ActiveWorkbook.Save

End If

End Function

Private Function () As String

Windows( ".xls").Activate

= Format(, "Short Date")

Worksheets("1").Range("D13") =

Worksheets("1").Range("Q11") =

Worksheets("1").Range("E12") = 볺

Worksheets("1").Range("P14") =

Worksheets("1").Range("C12") =

Worksheets("1").Range("T7") = ( & "=")

Worksheets("1").Range("G4") = Format(, "d mmmm yyyy")

Worksheets("1").Range("L19") =

Worksheets("1").Range("V19") =

Worksheets("1").Range("B22") = 1

Worksheets("1").Range("O2") =

Worksheets("1").Range("V20") =

'

Worksheets("1")."Range("C27") = 1

End Function

Private Function () As String

If = True Then

1 = /"

ElseIf = True Then

1 = "/"

ElseIf = True Then

1 = ""

End If

End Function

Private Function 1() As String

If Worksheets()."Range("M" & ˳) = /" Then

= True

ElseIf Worksheets().Range("M" & ˳) = "/" Then

= True

ElseIf Worksheets().Range("M" & ˳) = "" Then

= True

End If

End Function