-11 ()
- / SUB / /.
- Public Private VBA?
- Excel. .
- . Int.
- . Function . .
- VBA
- . Range.
- . IsNill
- . RC .
Height
VBA.
- . , r
- 21 Δr =3 .
- . Interior, Color, ColorIndex, Pattern?
- . VBA?
- . .
16.
Private Sub Test()
Dim MyNumber
MyNumber = Int(99.8) '
MyNumber = Fix(99.2) ' .
MyNumber = Int(-99.8) ' .
MyNumber = Fix(-99.8) ' .
MyNumber = Int(-99.2) ' .
MyNumber = Fix(-99.2) ' .
End Sub
16 (1,-6,2,44,0,11,-50,0)
17 .
18
19
20 (1,-6,2,44,0,11,-50,0)
21 (0,6.7,9,0,11.2,3.0) 0.
22. VBA
23 8 , . (-40, 50)
24. ,
Cells(1, 1).Select
Cells(1, 1).Interior.ColorIndex = 3
Range("A2").Interior.ColorIndex = 5
25 1 (10,-17,3,2,-0,3,-55,-50,1,19),
26 2. VBA
27 3. Boolean, ,
28 4. Range("A2").Borders.Weight = xlThin
29 1 (4,-12,1,6,11)
30 2. ( ) VBA
31 3. (TextBox).
32 4 Cells(4, 1).Borders.Weight = xlThick
33 1 (4,-12,1,6,11)
34 2. .
35 3. (OptionButton)
36. :
Sub Test()
|
|
If IsNumeric(Range("A1")) = True Then
1. Range("B1") = ""
Else
Range("B1") = " "
End If
End Sub
36.
10 ,
(-100, 100)
37 (0, 1, 2, 10, 7, 7.5, 9), , =7.5
38. SUB Function
39. ASCII %.
40. Excel , .
41
42. 9 , VBA, ?
43. VBA.
44 (5,-2,0,-7,0,77)
45. Caption Name
46. . ..
47. ForeColor
48. . SUB
49 .
50. , .
51. Top.
52 . FUNCTION $1=8,25
53. RANDOMIZE. .
54. . VBA
55. IsNill
56 . SUB 1=10,4
57. 4. 2- , .
58. Rnd
59. If Then Else End If. .
60. (0,10-90,32, 0,51)
61 BackColor BackStyle
62.
Sub Test()
Dim MyValue
MyValue = Int((6 * Rnd) + 1)
End Sub
63. ASCII 132 .
64. (10,5,3,22,178,-140,11), , = 2
66. ASCII &.
67. Range("A1:F1").MergeCells = True
68. WordWrap
69. IsEmpty
70. ( )
71. R(0,-5,3,2,12,-78,-10,11,12), = - 3
72. IsError
73. :
74.
- VBA
- , ?
|
|