- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
14#
發表於 2011-11-10 15:25
| 只看該作者
本帖最後由 GBKEE 於 2011-11-10 15:26 編輯
回復 13# Helain
Find 搜尋的條件如果沒重新設定 會依照上次的搜尋條件來尋找的
Set QrF = R_Profit.Find(a, , xlFormulas, xlWhole)
你尋找的是數字 與 工作表上顯示出的的文字(數字)不一樣- Sub test_3()
- Dim R_Profit As Range 'R's 2nd profit table
- Dim M_Profit As Range 'M's 2nd profit table
- Dim M_MaxProfit As Range 'For different Qr, M's Max profit
- Set R_Profit = Range(Cells(20, 2), Cells(30, 12))
- Set M_Profit = Range(Cells(2, 2), Cells(12, 12))
- Set M_MaxProfit = Range(Cells(15, 2), Cells(15, 12))
- MsgBox Application.Max(R_Profit)
- Set QrF = R_Profit.Find(Application.Max(R_Profit), , xlFormulas, xlWhole)
- MsgBox QrF.Text
- If Not QrF Is Nothing Then
- R = QrF.row
- C = QrF.column
- End If
- End Sub
|
|
發表於 2011-11-10 14:29
| 
