: VBA - twidler.ru
()
- - - VBA
:

VBA

: -
:
: 30.01.2014
: 137
: 19
:
:
(0)
: 757

ɠ

:

 

:

. -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.      

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

17.      

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.      

3.

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

17.      

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    .

.


-: :    = False And  = False And  = False _
  And  = False And  = False And  = False _
  And  = False And  = False And  = False _
  And  = False And  = False And  = False Then



 

 

 

 

 

 


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

 



-: :   Len(XX) = 0


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

a = 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 a < 0 Then

ComboBox1.ListIndex = a + 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") & _

" P/c : " & 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("A: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("").Select

X = 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 < ComboBox1.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 < ComboBox1.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 a

a = ComboBox1

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

If <> vbYes Then

Exit Sub

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

= MsgBox(", : " & a _

& 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 '

a = 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 < 65501 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

, : VBA
,
Excel, Access VBA
VBA
VBA
MS Access VBA
Excel VBA
VBA
VBA MS Excel
VBA
VBA

,