- 帖子
- 13
- 主題
- 4
- 精華
- 0
- 積分
- 18
- 點名
- 0
- 作業系統
- OSX10.8
- 軟體版本
- excel2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-3-14
- 最後登錄
- 2018-3-16
|
vba 語法請教
想請問為什麼這個程式碼能找出工作表裡的資料有幾列？
實在有點看不懂他的運作方式，謝謝- Function findx(ByVal objsheet As Worksheet)
- x = 0
- Do While True
- kk = ""
- For l = 1 To 10
- For k = 1 To 30
- If IsError(objsheet.Cells(x + l, k)) = False Then
- kk = kk & objsheet.Cells(x + l, k)
- End If
- Next
- Next
- If kk = "" Then Exit Do
- x = x + 1
- Loop
- findx = x
- End Function
|
|
發表於 2013-7-14 11:54
| 
