- ©«¤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 08:22 ½s¿è
¦^´_ 6# Helain
½Ð¥ô·N¿é¤J "aaaaaaa"
RMax_Row = Cells.Find("aa", , xlValues, xlPart).Row
RMax_Row = Cells.Find("aa", , xlFormulas, xlPart).Row ¦³§ä¨ì:³o¨âµ{¦¡½X¨S¿ù»~
RMax_Row = Cells.Find("aa", , xlValues, xlWhole).Row
RMax_Row = Cells.Find("aa", , xlFormulas, xlWhole).Row ¨S¦³§ä¨ì:³o¨âµ{¦¡½X·|¿ù»~ °}¦C¯Á¤Þ¶W¥X½d³ò
½Ð¤£n¥Î¤W±ªº»yªk ¥¿½Tªº¼gªk¦p¤U
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
Set R_Max = R_Profit.Find(What:=Rmax,LookIn:= xlFormulas,LookAt:= xlWhole)
Set R_Max = R_Profit.Find(LookIn:=xlFormulas, LookAt:=xlWhole, What:=Rmax)
¥þ³¡¦³«ü©ú°Ñ¼Æ¥i¥ô·N©ñ¸m°Ñ¼Æªº¦ì¸m ¦ý¤£¥i¥H °ÑÂøµÛ¦³«ü©ú°Ñ¼Æ ¤Î¨S«ü©úªº°Ñ¼Æ
Set R_Max = R_Profit.Find(Rmax, , xlValues, xlWhole)
Set R_Max = R_Profit.Find(Rmax, , xlFormulas, xlWhole)
¦p½T©w ¥ý«eªº·j´M¤£¬Oµù¸Ñ LookIn:=xlComments ¥i¥Î
Set R_Max = R_Profit.Find(Rmax, , , xlWhole)
If Not R_Max Is Nothing Then
R_MaxRow = R_Max.Row
R_Maxcolumn = R_Max.Column
End If |
|