[算表] 請教這種寫法出現了什么問題

作者: yyingx (bless)   2016-07-26 12:00:37
軟體:office
版本:2007
Sub test1()
Dim RNG As Range
Set RNG = Sheets("生產投料單").Columns(1).Find(what:="產品型號", LookIn:=xlV
alues, LookAt:=xlWhole)
RNG.Offset(2, 0) = 1
End Sub
作者: soyoso (我是耀宗)   2016-07-26 12:06:00
測試於a欄儲存格內有"產品型號"情況下,無報錯http://imgur.com/CnlQWli測試於a欄儲存格內以"產品型號 "情況下,則報錯http://imgur.com/upMyuqp在不全等於what下有萬用字元(*)或lookat為xlpart
作者: yyingx (bless)   2016-07-26 14:02:00
發現了一個問題,合并單元格的內容如何找到?
作者: soyoso (我是耀宗)   2016-07-26 14:14:00
如不是在第一列是可以找到的http://imgur.com/bEW9LZ1如包含第一列於range.find內searchdirection指定xlprevioushttp://imgur.com/PUgrBYS
作者: yyingx (bless)   2016-07-26 14:29:00
還有兩種情況,橫向合并A1:B1,另外一種情況是A1:B12
作者: soyoso (我是耀宗)   2016-07-26 14:41:00
將columns(1)改為columns("a:b")或[a:b]方式加上searchdirection指定

Links booklink

Contact Us: admin [ a t ] ucptt.com