VBA第13课作业题：VBA数组小试牛刀

play9091

這樣子應該就可以了吧！哈！沒有參加上課，純練手！！！

chenzhi_juan

1. 
   
2. Sub 按钮2_Click()
   
3. 
   
4. Dim arr1(1 To 17, 1 To 4), arr2(1 To 1000, 1 To 1)
   
5. 
   
6. Dim x As Integer, y As Integer, k As Integer
   
7. 
   
8. For x = 1 To 17
   
9. 
   
10.   For y = 1 To 4
    
11.   
    
12.       If Cells(x, y) < 0 Then
    
13.    
    
14.         arr1(x, y) = 0
    
15.         
    
16.         k = k + 1
    
17.         
    
18.         arr2(k, 1) = Cells(x, y)
    
19.         
    
20.         Else
    
21.         
    
22.         arr1(x, y) = Cells(x, y)
    
23.         
    
24.     End If
    
25.    
    
26. Next y
    
27. 
    
28. Next x
    
29. 
    
30. Range("g1:j17") = arr1
    
31. Range("m1:m" & k) = arr2
    
32. 
    
33. End Sub
    

复制代码

H19: chenzhi_juan

libenwen2011

看看作业，学习                       

yu20078

Sub 要求1()
Dim arr1, a, b
arr1 = [a1:d17]
For a = 1 To 17
    For b = 1 To 4
        If arr1(a, b) < 0 Then arr1(a, b) = 0
    Next b
Next a
[g1:j17] = arr1
End Sub

Sub 要求2()
Dim arr2, arr3, i, x, y, z
arr2 = [a1:d17]
i = WorksheetFunction.CountIf([a1:d17], "<0")
ReDim arr3(1 To i)
For x = 1 To 17
    For y = 1 To 4
        If arr2(x, y) < 0 Then
            z = z + 1
            arr3(z) = arr2(x, y)
        End If
    Next y
Next x
Range("m1").Resize(i) = WorksheetFunction.Transpose(arr3)
End Sub

风行天边789

校长辛苦了。谢谢！