- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦] "«e14¤Ñªº¤ñ¸û¯S§O¡A¥²¶·n¦³3¤Ñ§t¥H¤Wªº°²¤é¡A¦p¤»¡B¤é¡B¤@³s°²¡A
¤~·|¦©°£, ¦pªG¨S¦³¤T¤Ñ¥H¤W¡A«h¤»¤é¤Î°²¤é«h¤£¦©°£¡C"
ªºÃö«Y, §Ú·Q¨ì¥Î "¤é¬W" ¨Ó³B²z, "¤é¬W" ¨ú¦Û
http://forum.twbts.com/thread-11971-1-1.html
¨Ï¥Î«e½Ð¥ý®Ö¹ï, ¦]¸Ó "³s°²" «Y®Ú¾Ú¤½®a¾÷Ãö¦Óq, ¨p¤H¾÷ºc¥i¯àn×¥¿¡C
¤@¡B«Ø¥ß »²§UÄæ "xx" ¤Î "yy"
1. ´¡¤JÄæB¤ÎÄæC
2. ±NÄæA½Æ»s¨ìÄæB¤ÎÄæC
3. ±NÄæB¤ÎÄæC ¼ÐÃD§ï¬° xx ¤Î yy
4. §R°£ÄæB©Ò¦³°²¤éÀx¦s®æ(¤U¤èÀx¦s®æ¤W²¾)
(¥i¤â°Ê©Î°õ¦æ¤U¦CVBA Code)
Sub §R°£°²¤é()
Dim I As Integer
Sheets("Sheet2").Activate
For I = 460 To 2 Step -1
If Cells(I, 2).Font.ColorIndex = 3 Or Cells(I, 2).Font.ColorIndex = 5 Then
Cells(I, 2).Delete Shift:=xlUp
End If
Next
End Sub
5. (¤â°Ê)±N ÄæC ©Ò¦³³sÄò3¤Ñ¥H¤Wªº
Àx¦s®æ¥þ³¡§R°£(¤U¤èÀx¦s®æ¤W²¾)
¤G¡B«Ø¥ß¦WºÙ "¤W½u¤é","xx","yy"
1. ¿ï¨ú "A1:C428"
2. «ö Ctrl + Shift + F3
3. ¤Ä¿ï[³»ºÝ¦C](¨ä¾l¤£¥i¿ï)
¤T¡B±N ÄæB¤ÎÄæC °Å¤U ¶K¤W¨ì Äæx¤ÎÄæy
¥|¡B¿é¤J¤½¦¡
[B17]¤½¦¡, ¦V¤U©Ô
=IF(ISERROR(MATCH(¤W½u¤é,xx,0)),"",INDIRECT("X"&MATCH(¤W½u¤é,xx,0)-2))
[C17]¤½¦¡, ¦V¤U©Ô
=IF(ISERROR(MATCH(¤W½u¤é,xx,0)),"",INDIRECT("X"&MATCH(¤W½u¤é,xx,0)-5))
[D17]¤½¦¡, ¦V¤U©Ô
=IF(ISERROR(MATCH(¤W½u¤é,yy,0)),"",INDIRECT("Y"&MATCH(¤W½u¤é,yy,0)-13))
|
|