作者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/cn.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