Hsieh

¦^´_ 1# dechiuan999

­Y­n¨Ï¥ÎAPI¨ç¼Æ¨ú±oºû¼Æ½Ð°Ñ¦Ò
¨Ï¥ÎAPI¨ú±o°}¦Cºû«×
¤£µM¥i§Q¥Î¿ù»~½X¨ÓÅçÃÒºû«×

1. Sub nn()
   
2. Dim ay(2, 2, 3)
   
3. MsgBox checkarray(ay)
   
4. ar = Array(1, 2, 3, 4, 5)
   
5. ar = Application.Transpose(ar)
   
6. MsgBox checkarray(ar)
   
7. ar = Application.Transpose(ar)
   
8. MsgBox checkarray(ar)
   
9. End Sub
   
10. Function checkarray(Myar As Variant)
    
11. On Error Resume Next
    
12. i = 1
    
13. Do Until Err.Number = 9
    
14. n = LBound(Myar, i)
    
15. If Err.Number = 0 Then i = i + 1
    
16. Loop
    
17. checkarray = i - 1
    
18. End Function

½Æ»s¥N½X