- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-10 15:26 ½s¿è
¦^´_ 13# Helain
Find ·j´Mªº±ø¥ó¦pªG¨S«·s³]©w ·|¨Ì·Ó¤W¦¸ªº·j´M±ø¥ó¨Ó´M§äªº
Set QrF = R_Profit.Find(a, , xlFormulas, xlWhole)
§A´M§äªº¬O¼Æ¦r »P ¤u§@ªí¤WÅã¥Ü¥Xªºªº¤å¦r(¼Æ¦r)¤£¤@¼Ë- 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
½Æ»s¥N½X |
|