- ©«¤l
- 233
- ¥DÃD
- 53
- ºëµØ
- 0
- ¿n¤À
- 292
- ÂI¦W
- 0
- §@·~¨t²Î
- WinXp
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-1-6
- ³Ì«áµn¿ý
- 2024-3-8
|
¥»©«³Ì«á¥Ñ jackson7015 ©ó 2014-5-8 09:09 ½s¿è
¦^´_ 10# GBKEE
·PÁÂGBKEEª©¤jªºÀ°¦£
¥i¥H¥¿±`¹B§@¤F
¦Û¤v©Ò»Ýnªº³¡¤À¬O¤U±ªº¨º¨Çµ{¦¡½X¡A§R°£¤F¨Ç¤£»Ýnªº³¡¤À
vbªºµ{¦¡½X³£¤£·|½s¼g¡A³£¥u·|¤@¨Ç²³æªº¤@¯ë°Ï½s¼g
·PÁª©¤jªºµL¤ß¥I¥X
·Q¦A½Ð°Ýª©¤jMsgBoxªº°ÝÃD
¦pªG§Ú·Q¦b¤U¦Cªºµ{¦¡½X¤¤´¡¤J¤@«h"¬d¸ß¤¤"ªºMsgBox¡A¦ý¬O·|¦b·j´Mµ²§ô«á¡AMsgBoxµøµ¡·|¦Û°Ê®ø°£
¨ººØMsgBox»yªk¸Ó«ç»ò½s¼g ?
¬d¸ß¤F¯¸¤W¸ê®Æ¡A§ä¤£¤Ó¨ìMsgBox¦Û°Êµ²§ôªº¬ÛÃö¸ê®Æ- Sub ¬d¸ß¸ê®Æ()
- Dim F As Range, AD As String, Rng As Range, xRng As Range
- Set xRng = Sheets("¬d¸ß¥Îªí³æ").[A5]
- With Sheets("ºî¦X¸ê®Æ®w").UsedRange
- Set F = .Find(xRng, LOOKAT:=xlPart)
- If Not F Is Nothing Then AD = F.Address
- Do While Not F Is Nothing
- If Rng Is Nothing Then
- Set Rng = .Rows(F.Row)
- Else
- Set Rng = Union(Rng, .Rows(F.Row))
- End If
- Set F = .FindNext(F)
- If F.Address = AD Then Exit Do
- Loop
- End With
- If Not Rng Is Nothing Then
- Rng.Copy xRng.Offset(, 1)
- MsgBox "¬d¸ßµ²§ô"
- Else
- xRng.Offset(, 1).Resize(, 50) = ""
- End If
- End Sub
½Æ»s¥N½X |
|