.


:




:

































 

 

 

 


VBA.. -11 () / SUB / /

-11 ()

  1. / SUB / /.
  2. Public Private VBA?
  3. Excel. .
  4. . Int.
  5. . Function . .
  6. VBA
  7. . Range.
  8. . IsNill
  9. . RC .

Height

VBA.

  1. . , r
  2. 21 Δr =3 .
  3. . Interior, Color, ColorIndex, Pattern?
  4. . VBA?
  5. . .

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.

  1. VBA
  2. , ?

 

 



<== | ==>
| . .
:


: 2017-01-21; !; : 332 |


:

:

.
==> ...

1313 - | 1261 -


© 2015-2024 lektsii.org - -

: 0.018 .