| 230115 | |
| .230115.04.00 [1] 00 [2] |
| : | 78 |
230115 , , .
:
─ , , :
. .
VBA .
VBA. VBA.
VBA. .
, .
VBA. .
.
MS Office.
VBA. MS Word.
VBA. MS Excel.
VBA. MS Excel. . .
. .
─ .
─ , , .
─ , , .
() . , (, , , , , , , , , ).
. [1].
:
1. , ;
2. ;
3. .
, .
. , , -, . 2 3 . .
|
|
|
:
─ , .. , ;
─ , , ;
─ , , , ;
─ () .
1. 3
2. 3
3. 3
4. 3
5. 3
6. 3
7. 3
8. 3
1
VBA. /.
1. :
1.1. / Visual Basic for Application.
2. :
2.1. .
2.2. IBM PC/XT.
2.3. MS Office.
2.4. Visual Basic for Application.
3. :
3.1. (. ).
3.2. , . [2], [3] . .
3.3. () . . .
3.4. . .
4. :
4.1. .
4.2. .
4.3. .
4.4. .
4.5. .
4.6. .
5. :
5.1. ? VBA, .
5.2. ?
5.3. ?
5.4. .
5.5. .
5.6. InputBox.
5.7. MsgBox.
.
Visual Basic for Application Microsoft Office, Word, Excel . VBA , Modules (). V . . Project (). :
|
|
|
, . , , , ‑ Open;
, . ;
VBA, , , , ;
(), () .
, .
Insert => Module (UserForm, Class Module), . dul1, . , (Word, Excel) , ModuleN, N . , , 1.xls, Excel Module1. , Excel Module1 , . 1.xls, Module2.
, File => Import File, . , , . , File => Export File
:
1) , , dul1;
2) Remove ();
3) Yes () No (), .
Microsoft Visual Basic. , , , , , V.
, Word Excel, VBA . :
, Visual Basic.
Alt+F11.
, . VBA 1.
1 VBA
| Array | |
| Boolean | True () False () |
| Byte | 0 255 |
| Currency | . -922 337 203 685 477,5808 922 337 203 685 477,5807 |
| Date | . : 01.01.0100 . 31.12.9999 . : 00:00:00 23:59:59 |
| Decimal | |
| Double | . : -1,79769313486232+308 -4,94065645841247-324. : 4,94065645841247-324 1,79769313486232+308 |
| Integer | -32 768 32 767 |
| Long | -2 147 483 648 2 147 483 647 |
| Object | |
| Single | . -3,402823+38 1,401298-45. 1,401298-45 3,402823+38 |
| String ( ) | 0 , , 2 |
| String ( ) | 0 ~65 000 |
| Variant | , . . |
| . |
|
|
|
VBA 2 :
- VBA , - VBA ( ).
- .
, :
─ ;
─ ;
─ .
Dim :
Dim <> [As <>]
:
- ;
- VBA .
Option Explicit. ( Declarations). , (type definition character). Basic.
VBA . . - , .
. Const.
:
Const <> [As <>] = <1>
:
;
.
:
Const intPersonCount As Integer = 100
Const maxLen% = 50
VBA . . . , , Microsoft Office : xl(Excel), wd(Word), ac(Access), pp(Power Point), ol(Outlook), vb(VBA).
VBA :
|
|
|
─ ( ) ;
─ ;
─ .
2
| + | [1] + [2] | |
| - | [1] - [2] | |
| - | - [1] | ( ) |
| * | [1] * [2] | |
| / | [1] / [2] | |
| \ | [1] \ [2] | |
| Mod | [1] Mod [2] | |
| ^ | [1] ^ [2] |
3
| < | [1] < [2] | |
| > | [1] > [2] | |
| <= | [1] <= [2] | |
| >= | [1] >= [2] | |
| <> | [1] <> [2] | |
| = | [1] = [2] | |
| Is | [1] Is [2] | , |
| Like | [1] Like [2] |
4
| And | [1] And [2] | () |
| Or | [1] Or [2] | () |
| Xor | [1] Xor [2] | Or ( Ȼ) |
| Not | Not [1] | () |
| Imp | [1] Imp [2] | |
| Eqv | [1] Eqv [2] |
5
| & | [1] & [2] | ( ). [1] + [2] |
("") , . :
[Let] <> = <>
:
Let - , ;
<> , ( ) ;
<> , , .
:
Place="d:\windows\system"
File="GameTree.Exe"
Student_Card(100).Group=33
Set:
Set < > = [New] <> | Nothing
:
New ( ), ;
Nothing ( ), , .
Set MyRange 1:1.
Set MyRange = Range("A1:B1")
() . . 6 .
6 VBA
| ^ | |
| - ( ) | |
| *, / | |
| \ | |
| Mod | |
| +, - | |
| >, <, >=, <=, <>, = | |
| Not | |
| And | |
| Or | |
| Xor | |
| Eqv | |
| Imp |
, , , ( 1).
1. , ,
Private R As Single '
Public D As Single, S As Single, P As Single ', ,
Const PI = 3.14 ' PI ( VBA)
Sub sample1()
Dim res As String
R = 20
D = 2 * R '
S = PI * R ^ 2 '
P = D * PI '
'
res = " " & CStr(R) & " " & CStr(D) &
_ ", - " & CStr(P) & ", - " & CStr(S)
Debug.Print res '
|
|
|
End Sub
