- ©«¤l
- 41
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 71
- ÂI¦W
- 0
- §@·~¨t²Î
- Window 7
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-8-30
- ³Ì«áµn¿ý
- 2012-8-25
|
©êºp, §ÚQrFÁÙ¬OŪ¤£¨ì¸ê®Æ£®
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 |
|