vba 語法請教

01300607

想請問為什麼這個程式碼能找出工作表裡的資料有幾列？
實在有點看不懂他的運作方式，謝謝

1. Function findx(ByVal objsheet As Worksheet)
   
2.      x = 0
   
3.      Do While True
   
4.         kk = ""
   
5.         For l = 1 To 10
   
6.             For k = 1 To 30
   
7.                 If IsError(objsheet.Cells(x + l, k)) = False Then
   
8.                     kk = kk & objsheet.Cells(x + l, k)
   
9.                 End If
   
10.             Next
    
11.         Next
    
12.         If kk = "" Then Exit Do
    
13.         x = x + 1
    
14.     Loop
    
15.     findx = x
    
16. End Function

複製代碼

GBKEE

回復 1# 01300607

1. '傳回最後有資料儲存格列號: 資料在 1欗-30欗,第1列開始到10列 超過第10列後續有資料的儲存格,所間隔的列數不可大於10列.
   
2. Function findx(ByVal objsheet As Worksheet) As Long   '函數型態 : Long (長整數)
   
3.               'ByVal 選擇性引數。表示以傳值的方式來傳遞引數。
   
4.               'objsheet(參數) As(型態)  Worksheet(工作表物件)
   
5.     Dim x As Integer, L As Integer, k As Integer, kk As String
   
6.     x = 0
   
7.     Do   'While True : 這條件是預設,可不寫
   
8.         kk = ""             '資串歸零
   
9.         For L = 1 To 10     'L: 列號 (1-10)
   
10.             For k = 1 To 30 'k: 欗號 (1-30)
    
11.                 'objsheet.Cells(x + L, k) -> objsheet.Cells( X+列號L , 欗號 )
    
12.                 If IsError(objsheet.Cells(x + L, k)) = False Then       '不為錯誤值:條件成立
    
13.                   'IsError 函數  傳回 Boolean 值，用來指出運算式是否為一個錯誤值。
    
14.                     kk = kk & objsheet.Cells(x + L, k)      '累加[不為錯誤值存格]的內容
    
15.                 End If
    
16.             Next
    
17.         Next
    
18.         '跑完 objsheet.Cells(x + 1, 1) 到 objsheet.Cells(x + 10, 30) 的範圍
    
19.         If kk = "" Then Exit Do                               '跑完的範圍內沒有資料:離開迴圈
    
20.         x = x + 1                                             '紀錄有資料的次數 => 最後有資料的列號列號
    
21.     Loop
    
22.     findx = x
    
23. End Function

複製代碼

01300607

太詳細的講解了，謝謝板主
謝謝