Excel VBA VBA 2002
ii
CONTENTS 1 2 3 4
5 6 7 8 9
10
1 2 2 EXVBA2_2002 1-2 1-2.xls 12
Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS = Worksheets("sheet1") For i = 0 To 6 FstValue(i) = WS.Cells(1, i + 1) NextValue(i) = WS.Cells(2, i + 1) Next For i = 0 To 6 TtlValue(i) = FstValue(i) * NextValue(i) WS.Cells(3, i + 1) = TtlValue(i) WS.Cells(3, i + 1).Interior.ColorIndex = 6 Next End Sub 1 Dim UserName(3) As String 13
UserName(0) UserName(1) UserName(2) UserName(3) Dim UserName(9) As String 2 UserName(1) = "" MsgBox UserName(1) 3 For i = 0 To 6 MsgBox UserName(i) Next 14
4 Dim UserName(1, 4) As String UserName(0,2) = "" 5 15
6 Sub () Dim FstValue(6) As Integer Dim NextValue(6) As Integer Dim TtlValue(6) As Integer Dim i As Integer Set WS = Worksheets("sheet1") For i = 0 To 6 FstValue(i) = WS.Cells(1, i + 1) NextValue(i) = WS.Cells(2, i + 1) Next For i = 0 To 6 TtlValue(i) = FstValue(i) * NextValue(i) WS.Cells(3, i + 1) = TtlValue(i) WS.Cells(3, i + 1).Interior.ColorIndex = 6 Next 16
7 Dim Fruits As Variant Fruits = Array("","","","") Sub ArrayTest() Dim Fruits As Variant Fruits = Array("", "", "", "") For i = 0 To 3 Worksheets("sheet1").Cells(5, i + 1) = Fruits(i) Next End Sub 17
Q NumCount(0) = 0 NumCount(1) = 1 NumCount(2) = 2... NumCount(19) = 19 18
Option Base 1 Dim UserName(0 to 9) As String * 2 * 10 = 20 19