PTT數位生活區 / Office

[算表] VBA 回傳行數與列數的自訂函數

看板Office作者 (主席)時間8年前 (2017/06/07 19:20), 8年前編輯推噓0(0推 0噓 11→)
留言11則, 2人參與, 最新討論串1/1
軟體: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://www.ptt.cc/bbs/Office/M.1496834444.A.64D.html
→
06/07 19:46, , 1F
Mat要帶入什麼，範圍？
06/07 19:46, 1F
→
06/07 19:50, , 2F
範圍的話有rows.count和columns.count可用
06/07 19:50, 2F
→
06/07 20:05, , 3F
Mat是選取一個範圍
06/07 20:05, 3F
→
06/07 20:16, , 4F
可以了 感謝S大
06/07 20:16, 4F
→
06/07 20:16, , 5F
那應可以回文的方式取得範圍欄列數
06/07 20:16, 5F
→
06/07 20:16, , 6F
^^
06/07 20:16, 6F
→
06/07 20:21, , 7F
再請教S大 我想要它像一般陣列函數一樣
06/07 20:21, 7F
→
06/07 20:22, , 8F
不小心框到空白格的話會顯示 value開如何設定呢?
06/07 20:22, 8F
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
→
06/07 20:24, , 9F
好像又失敗了orz
06/07 20:24, 9F
→
06/07 20:33, , 10F
迴圈自訂函數名稱接"#Value"字串，再exit function
06/07 20:33, 10F
→
06/10 01:37, , 11F
喔喔!原來是這樣!!感謝S大!!!!
06/10 01:37, 11F
‣ 更多 o1o3o1o31030 的文章
文章代碼(AID): #1PD-6CPD (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 o1o3o1o31030 的文章
文章代碼(AID): #1PD-6CPD (Office)