- 帖子
- 41
- 主題
- 12
- 精華
- 0
- 積分
- 71
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2011-8-30
- 最後登錄
- 2012-8-25
|
抱歉, 我QrF還是讀不到資料ㄝ
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))
Set QrF = R_Profit.Find(Application.Max(R_Profit), , , xlWhole)
If Not QrF Is Nothing Then
A = QrF.Row
B = QrF.Column
End If
End Sub |
|
發表於 2011-11-8 13:18
| 
