作者o1o3o1o31030 (主席)
看板Office
标题[算表] VBA函数.find错误讯息
时间Fri Mar 17 22:58:38 2017
软体:excel
版本:2013
x = WorksheetFunction.Max(Range("C16", Cells(16, 26)))
c = Range("C16", Cells(16, 26)).Find(x).Column
MsgBox (c)
我想找出该列最大值在哪一栏
一直出现未设定物件或WITH区域变数的错误代码
或是我有其他发法可以执行呢?
谢谢各位
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 61.65.54.155
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1489762721.A.A52.html
2F：→ soyoso: 亦或原po实际巨集还有其他的部分呢？ 03/17 23:17
3F：→ soyoso: 如果c16:z16为日期格式的话则是会出现原文的错误讯息 03/17 23:27
5F：→ soyoso: 如c16:z16为日期格式而出现的错误的话，请将x宣告为date 03/17 23:29
7F：→ o1o3o1o31030: 疑?? 奇怪，确实没有其他部分，格式为无限小数 03/18 00:46
8F：→ o1o3o1o31030: 还是excel版本? 我是2013 03/18 00:48
9F：→ soyoso: 提供档案测试应会比较清楚 03/18 00:50
10F：→ o1o3o1o31030: ! 我锁定工作表了! 03/18 00:58
11F：→ o1o3o1o31030: 好像也不适，我另外开一个像S大的就OK 03/18 01:02
12F：→ o1o3o1o31030: 但是我套在我要用的档案上就不行，上面的格子是用 03/18 01:03
13F：→ o1o3o1o31030: 函数算的 03/18 01:08
※ 编辑: o1o3o1o31030 (1.164.137.2), 03/18/2017 01:08:20
16F：→ o1o3o1o31030: 列数是16没错，我截图不小心切到 03/18 01:12
17F：→ o1o3o1o31030: 还是跟我有开启其他增益集有关 03/18 01:13
19F：→ soyoso: 连结内储存格的值测试上是用公式算出的 03/18 01:23
20F：→ o1o3o1o31030: 行!但.find真的奇怪找不出理由 03/18 01:38
21F：→ soyoso: 以range.numberformat及format调整，range.find应可使用 03/18 01:52
23F：→ o1o3o1o31030: 还是一样QQ同样的错误讯息在同样一行 03/18 02:18
24F：→ soyoso: 将参数lookin设为xlvalues试试 03/18 10:23
25F：→ waiter337: 或者乾脆放弃find ,直接用回圈逐行比对 03/18 20:58
26F：→ waiter337: 我在find之前遇到相同问题是日期部份,还有format部份 03/18 20:59
27F：推 waiter337: #1OUZWpJ4 这是之前s大回我的,但内容应该不同,只是延伸 03/18 21:05
28F：→ waiter337: 阅读 03/18 21:05