- ©«¤l
- 471
- ¥DÃD
- 121
- ºëµØ
- 0
- ¿n¤À
- 579
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN10
- ³nÅ骩¥»
- OFFICE2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-4-16
- ³Ì«áµn¿ý
- 2023-1-17
|
¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-4-29 22:23 ½s¿è
¦^´_ 3# luhpro
§Ú¦³¿ý»s¥X¨Ó,¦ýµLªk«ü©w«ö¶s¨Ï¥Î »¡¨S¦³«ü©wª«¥ó
¥t³o¥i¥HÂIÀ»¤U¥h¥X²{·j´M®Ø®Ø¶Ü?
¬õ¦r³¡¤À½Ð°Ýn¦p¦ó¹F¦¨ÂIÀ»¤U¥h¨Ì§Ú¿é¤J¤å¦r¨Ó´M§ä©O?
¦]²{¦bÅܦ¨¹w³]¥u¯à§ä1
'
Range("H17").Select
Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
End Sub |
|