vba ·j´MÀx¦s®æ«á¡A¶K¤W¨ä¥LÄæ¦ì
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¥»©«³Ì«á¥Ñ c_c_lai ©ó 2016-5-17 20:02 ½s¿è
¦^´_ 1# snoopykay - Sub Ex()
- Dim sStr$, rest As Range
- Dim lTar As Range, rTar As Range
-
- Range("K2:L10").Clear
- sStr = InputBox("½Ð¿é¤Jn·j´Mªº¸ê®Æ", "´M§ä¸ê®Æ")
- Set lTar = Range("A:A").Find(sStr, LookIn:=xlValues)
-
- If Not lTar Is Nothing Then
- ' Set rest = lTar.Resize(1, 9)
- Set rTar = Cells(2, 11)
- ' rTar.Resize(9, 1) = Application.Transpose(rest) ' ¤W¤U¦æ¦P¸q
- rTar.Resize(9, 1) = Application.Transpose(lTar.Resize(1, 9))
- End If
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|