- ©«¤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 ©ó 2012-8-14 10:48 ½s¿è
¦^´_ 3# c_c_lai ]
Range(R)¡A¨ä¥Î·N¦ó¦b¡H
R="¥¤é" -> Range("¥¤é")
©w¸q"¥¤é" ªº½d³ò"A1:C10" => Range("A1:C10")
¦^´_ 4# h60327
¤TÓ¯Zªíªº½ü§Ç ³£¦³µù©ú½ü§Ç²Å¸¹
¨C¤ë¨î©w±Æ¯Zªí¥Ü³£¨Ì¨C¬q¯Zªí³Ì«á²Å¸¹¶}©l, À³¸Ó¤£»Ý²z·|¨C¤ëªº¬P´Á±Æ§Ç§a.
·í½ü§Ç¨ì©³®É,·|¦^¨ì²Ä¤@Óû¤u¶}©l½ü§Ç- Private Sub ±Æ¯Z(R As Range, Rng As Range)
- Dim X As Integer, xMatch As Integer, xRng As Range
- X = Application.CountA(Rng)
- If X = Rng.Count Then '¤w¬O³Ì«á±Æ¯Zû¤u
- Rng.Clear
- X = 0
- End If
- Rng.Cells(X + 1) = "¡·"
- Set xRng = Rng.Cells(X + 1).Offset(, -1)
- xMatch = Application.Match(xRng.Text, Range("¤Hû¸ê®Æ").Columns(3), 0)
- R.Offset(, 1).Resize(, 3) = Range("¤Hû¸ê®Æ").Rows(xMatch).Value
- End Sub
½Æ»s¥N½X |
|