- 1 -
ExcelVBA 10m (10m ) (10m ) 5 4 1 49 1974 54 1979 2 59 1984 3 1989 4 6 1994 8.3 km 839 10m 15 3km 4km 1 CD-ROM ExcelVBA Excel Excel - 2 -
1 100 100 10 1km 2-3 -
Excel VBA 3 100 100-4 -
4 VBA VBA 5-5 -
Sheet Excel Cells (2,3) Cells (2,3) 2 3 Interior ColorIndex 2 3 2 3 10 43 1 1 = 2 3 1 1 1 1 6 j - 6 -
7 For Next Next j j 1 100 100 j 1 k = Sheets(" ").Cells(1, j) + 1 Sheets(" ").Cells(1, j).interior.colorindex = _ Sheets(" ").Cells(k, 3).Interior.ColorIndex 1 1 1 k 1 1 Next j j 2 k = Sheets(" ").Cells(1, j) + 1 Sheets(" ").Cells(1, j).interior.colorindex = _ Sheets(" ").Cells(k, 3).Interior.ColorIndex 1 2 1 k 1 2 j 100 1-7 -
8 I 9-8 -
For i = 1 To 100 i 1 j 1 i 1 j 1 k = Sheets(" ").Cells(i, j) + 1 Sheets(" ").Cells(i, j).interior.colorindex = _ Sheets(" ").Cells(k, 3).Interior.ColorIndex Next j j 2 i 1 j 2 k = Sheets(" ").Cells(i, j) + 1 Sheets(" ").Cells(i, j).interior.colorindex = _ Sheets(" ").Cells(k, 3).Interior.ColorIndex Next j j 100 Next i For i = 1 To 100 i 2 j 1 i 2 j 1 k = Sheets(" ").Cells(i, j) + 1 Sheets(" ").Cells(i, j).interior.colorindex = _ Sheets(" ").Cells(k, 3).Interior.ColorIndex Next j j 100 Next i For i = 1 To 100 i 100-9 -
10 ExcelVBA VBA ColorIndex Pattern - 10 -
11 Microsoft Excel 1998 Excel GIS. 49 1998 1998 EXCEL97VBA SUPER MASTER - 11 -