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

[o1o3o1o31030 (主席)]

軟體: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
→ soyoso: Mat要帶入什麼，範圍？
→ soyoso: 範圍的話有rows.count和columns.count可用
→ o1o3o1o31030: Mat是選取一個範圍
→ o1o3o1o31030: 可以了  感謝S大
→ soyoso: 那應可以回文的方式取得範圍欄列數
→ soyoso: ^^
→ o1o3o1o31030: 再請教S大  我想要它像一般陣列函數一樣
→ o1o3o1o31030: 不小心框到空白格的話會顯示  value開如何設定呢?
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
→ o1o3o1o31030: 好像又失敗了orz
→ soyoso: 迴圈自訂函數名稱接"#Value"字串，再exit function
→ o1o3o1o31030: 喔喔!原來是這樣!!感謝S大!!!!