作者o1o3o1o31030 (主席)
看板Office
標題[算表] VBA 回傳行數與列數的自訂函數
時間Wed Jun 7 19:20:41 2017
軟體:Excel
版本:2013
我想自製一個回傳行數和列數的自訂函數
如下，但是一直視value錯誤，想請教版友究竟是哪裡出問題?
Public Function sel(Mat)
Dim A()
r = UBound(Mat, 1)
c = UBound(Mat, 2)
ReDim A(1 To 2)
A(1) = r
A(2) = c
sel = A
End Function
感謝!
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 223.136.46.36
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1496834444.A.64D.html
1F：→ soyoso: Mat要帶入什麼，範圍？ 06/07 19:46
2F：→ soyoso: 範圍的話有rows.count和columns.count可用 06/07 19:50
3F：→ o1o3o1o31030: Mat是選取一個範圍 06/07 20:05
4F：→ o1o3o1o31030: 可以了 感謝S大 06/07 20:16
5F：→ soyoso: 那應可以回文的方式取得範圍欄列數 06/07 20:16
6F：→ soyoso: ^^ 06/07 20:16
7F：→ o1o3o1o31030: 再請教S大 我想要它像一般陣列函數一樣 06/07 20:21
8F：→ o1o3o1o31030: 不小心框到空白格的話會顯示 value開如何設定呢? 06/07 20:22
Dim A()
Dim aa
For Each aa In Mat
If aa = "" Then Mat = "#Value"
Next
r = Mat.Rows.Count
c = Mat.Columns.Count
ReDim A(1 To 2)
A(1) = r
A(2) = c
sel = A
※ 編輯: o1o3o1o31030 (223.136.46.36), 06/07/2017 20:23:52
9F：→ o1o3o1o31030: 好像又失敗了orz 06/07 20:24
10F：→ soyoso: 迴圈自訂函數名稱接"#Value"字串，再exit function 06/07 20:33
11F：→ o1o3o1o31030: 喔喔!原來是這樣!!感謝S大!!!! 06/10 01:37