VBA
. , .
VBA :
| () | ||
| Byte () | 0 255 | |
| Boolean () | True False | |
| Integer ( ) | 32768 32767 | |
| Long ( ) | 2147483648 2147483647 | |
| Single ( ) | 3,4+38 1,4 45 1,4-45 3,4+38 | |
| Double ( ) | -1,8+308 -4,9-324 4,9-324 1,8+308 | |
| Currency () | -922337203685477,5808 922337203685477,5807 | |
| Object () | ||
| String ( ) | 10+ | 0 ~ 2 |
| String ( ) | 0 ~ 65400 | |
| Variant ( ) | Double | |
| Variant ( ) | 22+ | (String) |
, , , .. VBA .
Dim. , Integer:
Dim N As Integer.
, Dim , . , , (. .61). (String) , . . 25 : Dim S As String *25.
Dim . : Dim X As New Worksheet.
New, , , Set.
, Variant. Option Explicit. , .. .
VBA , , , , . , . VBA :
|
|
|
1. 255 .
2. , : %, &,!,#, @, $.
3. , , .
4. , .
5. , VBA, . , . . , .
, VBA : Dim B(3,3) As Single; Dim A(12) As Integer.
33 (), . () 12 , (0), (11). , 0 . , Option Base 1. . To : Dim B (1 To 3,1 To 3) As Single; Dim A (1 To 12) As Integer.
, :
Dim B(1 To 2, 1 To 2) As Single B(1,1) = 2, B(1,2) = 4, B(2,1) = 1, B(2,2)=6.
, , . , .. , :
Const As Single = 0.2;
Const = .
VBA
VBA . :
1. , , .
2. , , , x > y
3. , , , Not x And y.
VBA .
| + | 3.8+4.3 | 8.1 | |
| - | 3.8-4.3 | -0.5 | |
| * | 2.5*1.2 | 3.0 | |
| / | 14/5 | 2.8 | |
| ^ | 3^2 | ||
| - | (20+3) | -23 | |
| \ | 14\5 | ||
| Mod | 14 MOD 5 |
( )
| = | 4=4 | |
| <> | 5<>6 | |
| > | 8>7 | |
| < | 3<6 | |
| >= | 9>=9 | |
| <= | 8<=9 |
|
|
|
: . . , : 5 = 6, 7> 8, 6< 3, 8>= 9.
, . : 1<> 2 , <> . VBA Like, .. [ 1] Like [ 2].
, , Is, ..[ 1] Is [ 2].
:
[1] And [2] ;
[1] Or [2] ;
[1] Not [2] .
And, Or Not
| A | B | A And B | A Or B | Not A | |
VBA . +, .. [1] + [2], , , &, .. [1] & [2].
VBA , .
| ^ | |
| - | |
| *,/ | |
| \ | |
| Mod | |
| +,- | |
| >, <, >=, <=, <>, = | |
| Not | |
| And | |
| Or | |
| Xor ( Or) | |
| Equ ( ) | |
| Imp ( . ) |
VBA
VBA VBA. , , , . : 1) ; 2) ; 3) .
, (=).
:
[ Let ] ( )= .
Let . , , , . , ,
=2
= +2
4.
Set. Set 1:3: Set =Range (1:3).
Set
Set ={[ New ] | Nothing }.
New ; Nothing , , ( , ).
()+( ) , . , :
1. .
2. .
3. 1024 .
:
|
|
|
Y=sin(Application.Pi()*x)+(1+x)^(1/2)/ _
(1+x^2)
Y=sin(Application.Pi()*x)+(1+x)^(1/2)/(1+x^2)
, , .. , . :
1) , ; 2) .
VBA :
- (¢), . , , ;
- Rem .
:
Dim a As Integer
¢
¢a
¢
Dim b As String ¢ b .
