[算表] VBA函數.find錯誤訊息

[o1o3o1o31030 (主席)]

軟體: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://www.ptt.cc/bbs/Office/M.1489762721.A.A52.html
→ soyoso: 測試原文巨集，並無出現錯誤 https://i.imgur.com/nBWvClG
→ soyoso: 亦或原po實際巨集還有其他的部分呢？
→ soyoso: 如果c16:z16為日期格式的話則是會出現原文的錯誤訊息
→ soyoso: https://i.imgur.com/oe7bCKt
→ soyoso: 如c16:z16為日期格式而出現的錯誤的話，請將x宣告為date
→ soyoso: 應可執行https://i.imgur.com/VaijXbW
→ o1o3o1o31030: 疑?? 奇怪，確實沒有其他部分，格式為無限小數
→ o1o3o1o31030: 還是excel版本? 我是2013
→ soyoso: 提供檔案測試應會比較清楚
→ o1o3o1o31030: ! 我鎖定工作表了!
→ o1o3o1o31030: 好像也不適，我另外開一個像S大的就OK
→ o1o3o1o31030: 但是我套在我要用的檔案上就不行，上面的格子是用
→ o1o3o1o31030: 函數算的
※ 編輯: o1o3o1o31030 (1.164.137.2), 03/18/2017 01:08:20
→ o1o3o1o31030: http://imgur.com/a/JqWWl
→ o1o3o1o31030: http://imgur.com/a/1Ilfp
→ o1o3o1o31030: 列數是16沒錯，我截圖不小心切到
→ o1o3o1o31030: 還是跟我有開啟其他增益集有關
→ soyoso: https://i.imgur.com/Ubeccu2 以工作表函數match試試
→ soyoso: 連結內儲存格的值測試上是用公式算出的
→ o1o3o1o31030: 行!但.find真的奇怪找不出理由
→ soyoso: 以range.numberformat及format調整，range.find應可使用
→ soyoso: https://i.imgur.com/R4T2Ut7
→ o1o3o1o31030: 還是一樣QQ同樣的錯誤訊息在同樣一行
→ soyoso: 將參數lookin設為xlvalues試試
→ waiter337: 或者乾脆放棄find ,直接用迴圈逐行比對
→ waiter337: 我在find之前遇到相同問題是日期部份,還有format部份
推 waiter337: #1OUZWpJ4 這是之前s大回我的,但內容應該不同,只是延伸
→ waiter337: 閱讀