ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] vbaªº¿z¿ï¥\¯à (¨ú®ø³¡¤À¿z¿ï)

[µo°Ý] vbaªº¿z¿ï¥\¯à (¨ú®ø³¡¤À¿z¿ï)

¦p¦ó¨ú®ø³¡¤À¤w³Q¿z¿ïªº¿ï¶µ
¿z¿ïÁ`¦@¤À¦¨«e«á°Ï¬q¡A¤À§O¬O1~49 & 51~99¡A50ªº¦ì¸m¬O¤¤¶¡¤À®æ
»Ý¨D¬O¦b¤£¼vÅT51~99³Q¿z¿ïªº³¡¤À¡A±N1~49¥þ³¡§ï¬°"¥þ³¡"´N¬O­ì©l¥¼¿z¿ïªºª¬ºA¡A¤Ï¤§¥çµM¡C

sub ¿z¿ï«eºÝ  ()
Dim var_min, var_max,i, j, s As Integer
var_min = 1  '«e¥b¬q°_
var_max = 49 '«e¥b¬q¨´
For i = var_min To var_max
i = i + 1
Selection.AutoFilter Field:=i
Next i
End Sub

sub ¿z¿ï«áºÝ  ()
Dim var_min, var_max,i, j, s As Integer
var_min = 51  '«á¥b¬q°_
var_max = 99  '«á¥b¬q¨´
For i = var_min To var_max
i = i + 1
Selection.AutoFilter Field:=i
Next i
End Sub
¥Ñ¿ý»s¥i¥H±o¨ì¡A¤@¯ëªº¿z¿ï«ü¥O¬O
Selection.AutoFilter Field:=5, Criteria1:="W" '±N²Ä5Äæ¿z¿ï¬°W
¦ý¬O¿ï¾Ü¨ú®ø¸ÓÄæ¦ìªº¿z¿ï¡A¿ï¾Ü¥þ³¡«h¥u·|¬O
Selection.AutoFilter Field:=i
'±q¿ý»s¬Ý°_¨Ó¨S¦³µ¹«á­±³o¦ê«ü©w­È´N¬O¥þ³¡¤F
'±N¸Ó®æ¿z¿ï¬°"¥þ³¡"


©Ò¥H¦³¤F¤W­±ªºµ{¦¡½X¡A¦ý¬Ý°_¨Ó¬O¨S¦³®ÄªGªº¡C
·Q½Ð°Ý¨ú®ø¿z¿ïªº«ü¥O¬O? (Criteria1:= ?)
ÁÙ¦³¦pªG¤£¥Î°j°é¦³ª½±µ¿ï¨ú½d³òªº¤èªk¶Ü?
©Î¬O¥u¯à¥Î°j°é¡A¦³¥Î¤å¦r¦Ó«DÄæ¦ì¼Æªº¤èªk?
¹³¥Ø«e1~49¨ä¹ê¬OA~AX¡A51~99¨ä¹ê¬OAY~CU
¥i¥Hª½±µ«ü©w¤å¦r¤U¥h°j°é¶Ü?
²¦³ºª½±µ¬Ý¨ìªº¬O¤å¦r¡A¤ñ¦A¥h´«ºâ¼Æ¦rª½Æ[¡C

¦P¤@­¶¤º­nÅã¥Ü¨âªO¶ô¿z¿ï, ­n¥ÎListObjects, ¼Ó¥D³Ì¦n±N¼ÒÀÀ®ÄªGªþ¥ó¤W¸ü¤W¨Ó¡C

TOP

¥»©«³Ì«á¥Ñ wei9133 ©ó 2020-10-6 20:28 ½s¿è

¦^´_ 2# ikboy

¦pªþ¥ó
    ¹ï¾Ô²Î­p - ½Æ»s - ½Æ»s.rar (35.99 KB)

ÁÙ¦³¡A§Ñ¤FÁ¿¡Aª©¥»¬O excel2003
³Â·Ð¤F!
§Ú¬O¨S¬ÝÀ´§A»¡ªº¡A§Ú¬O·Q¤£°Ê¤w³Q¿z¿ïªº³¡¤À(«ü©w½d³ò)
±N¥t¥~³Ñ¤Uªº³Q¿z¿ï³¡¤À¥þ³¡­«¸m¬°¥þ³¡ª¬ºA(¥¼³Q¿z¿ï¹Lªºª¬ºA)

TOP

¨S¬Ý¨ì§A­n¨Dªº®ÄªG, ½Ð¤â°Ê¼ÒÀÀ¤W¨Ó¡C

TOP

¥»©«³Ì«á¥Ñ wei9133 ©ó 2020-10-7 00:13 ½s¿è

¦^´_ 4# ikboy
Microsoft_Excel_-_TEST.xls-2020-10-06-23-57-45.png
2020-10-7 00:04

ªþ¥ó¥k¥bÃä¤w¿z¿ï¡A·Q¦b¤£°Ê¨ì¥k¥bÃä¤w¿z¿ïªº±ø¥ó
±N¥ª¥bÃä³Q¿z¿ïªº±ø¥ó­«¸m¬°¥þ³¡
TEST.rar (32.89 KB)


A ¤w¿z¿ï V
B ¤w¿z¿ï W
F ¤w¿z¿ï ªÅ®æ
W ¤w¿z¿ï W
X ¤w¿z¿ï ªÅ®æ

¤Ï¤è¦V¥çµM (¥ª¥b¿ï¨úª¬ªp¤U¡A¥k¥bÃä¥þ³¡­«¸m¬°­ì©l¥¼¿z¿ïª¬ºA)

;===============================================
Microsoft_Excel_-_TEST.xls-2020-10-07-00-04-46.png
2020-10-7 00:09

Microsoft_Excel_-_TEST.xls-2020-10-07-00-06-35.png
2020-10-7 00:09

¤W­±³o­ÓAY~CU­n¿z¿ïªº¤w¸g½T©w¤F
´N¬O­n§âA~AWªº¥þ³¡­«¸m¬°¥¼¿z¿ïª¬ºA
Microsoft_Excel_-_TEST.xls-2020-10-07-00-10-21.png
2020-10-7 00:13

Microsoft_Excel_-_TEST.xls-2020-10-07-00-10-41.png
2020-10-7 00:13

TOP

¦b¦P¤@­¶¤Î¬Û¦P¦æ±NA-AW¦C, AY-CU¦Cµø¬°¨â­Ó¤£¦PªO¶ô§@¿z¿ï³B²z¬O¤£¦æªº, ²³æªºÁ|¨Ò: A2¿z¿ï«á¬OÅã¥Ü¸ê®Æ,AY2¿z¿ï«á¬O¤£Åã¥Ü¸ê®Æ, ¨º²Ä2¦æ¨ì©³­nÅã¥Ü©ÎÁôÂÃ!!
§é°J¿ìªk¤À­¶, ¨Ã±Æ¡Cªþ¥ó§Ú¤â°Ê°µªº, ¬Ý¬Ý³o«ä¸ô¦æ¤£¡C

zz.zip (74.09 KB)

TOP

¦^´_ 6# ikboy
½Ð°Ý§Aªº·N«ä¬O ¿z¿ï«áªºµ²ªG¦A¿z¿ï¤@¦¸©ÎµÛ§ó¦h¦¸¶Ü?

TOP

¦^´_  ikboy
½Ð°Ý§Aªº·N«ä¬O ¿z¿ï«áªºµ²ªG¦A¿z¿ï¤@¦¸©ÎµÛ§ó¦h¦¸¶Ü?
°a¤ªºµ µoªí©ó 2020-10-7 12:28



    ½Ð¬Ý¼Ó¥D¦b5#¦^ÂÐ, ¥Ñ¨ä¬OA~AW »PAY~CU¨º¬q,§A·|©ú¥Õ¤F¡C

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-10-7 14:15 ½s¿è

¦^´_ 1# wei9133

¨Ã±ÆÅã¥Ü¶Ü?
  1. Sub ««ª½¨Ã±ÆÅã¥Ü¥[¿z¿ï()
  2.     Application.ScreenUpdating = False
  3.     ActiveWindow.NewWindow '¶}±Ò¦h­Ó¬Û¦P¤u§@ï
  4.     Windows.Arrange ArrangeStyle:=xlVertical '««ª½¨Ã±ÆÅã¥Ü
  5.    
  6.     Windows("zz.xls:1").Activate '¤Á´«¨ì¤u§@ªí2
  7.     Sheets(2).Cells(51, 1).AutoFilter '¿z¿ï¤u§@ªí2
  8.     Sheets(2).Select 'ÂI¿ï¤u§@ªí2

  9.     Windows("zz.xls:2").Activate '¤Á´«¨ì¤u§@ªí1
  10.     Sheets(1).Cells(1, 1).AutoFilter '¿z¿ï¤u§@ªí1
  11.     Application.ScreenUpdating = True
  12. End Sub
½Æ»s¥N½X

TOP

¦^´_ 9# °a¤ªºµ
§A¦n¡A§Ú¨S¦³´ú¸Õ§Aªº¥¨¶°
¤£¹L¬Ý´Nª¾¹D¤£¹ï¡A¦]¬°ªF¦è¬O¦b¦P¤@­Ó¬¡­¶Ã¯¸Ì
¥u¬O¤À¦¨«e­±¸ò«á­±¦Ó¤w
¸Ô²Ó¥i¥H¬Ý¬Ý¤W­±ªºªþ¥ó
À³¸Ó³o¼ËÁ¿
°²³]¦³A~ZÄæ (¹ê»Ú¤W§ó¦h)
§âA~L¥þ³¡¿z¿ï¦n¤F
­n§âM~Zªº¿z¿ï±ø¥ó¥þ³¡²MªÅ¬°¹w³]
¤j·§´N¥u¬O³o¼Ë¦Ó¤w

TOP

        ÀR«ä¦Û¦b : ­n§åµû§O¤H®É¡A¥ý·Q·Q¦Û¤v¬O§_§¹¬üµL¯Ê¡C
ªð¦^¦Cªí ¤W¤@¥DÃD