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

¨Ì¤é´Á¤j¤p¦Û°Ê±Æ§Ç

¨Ì¤é´Á¤j¤p¦Û°Ê±Æ§Ç

½Ð°Ý­n¦p¦ó¨Ì·Ó¤é´Á¨ºÄæ¦ì°µ¦Û°Ê±Æ§Ç


·P¿E¤£ºÉ

¦^´_ 1# cowww

¥ý§â¤p¤u³æ¨ì¹s¥ó®Æ¸¹¦C¿ï¨ú

¦A¨ì¸ê®Æ>ÂI¿ï¿z¿ï

´N·|¶]¥X©¹¤Uªº½bÀYÂI¿ï¶i¥h ¿ï¾Ü±q³Ì¨ì³Ì·s±Æ§Ç

TOP

¦^´_ 2# s3526369

·PÁÂs3526369¤j¤jªº¦^ÂÐ

¦ý¬O¦ÑÁó­nªº¬OÀɮפU¸ü«á"¦Û°Ê"±Æ§Ç

TOP

¦^´_ 3# cowww


¦bThisWorkbook¸Ì­±¶K¤W¥H¤U¥N½X
  1. Private Sub Workbook_Open()
  2.     Range("A6:J6").Select
  3.     Selection.AutoFilter
  4.     ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Clear
  5.     ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort.SortFields.Add Key:=Range _
  6.         ("C6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  7.         xlSortNormal
  8.     With ActiveWorkbook.Worksheets("Sheet1").AutoFilter.Sort
  9.         .Header = xlYes
  10.         .MatchCase = False
  11.         .Orientation = xlTopToBottom
  12.         .SortMethod = xlPinYin
  13.         .Apply
  14.     End With
  15.     Selection.AutoFilter
  16. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ cowww ©ó 2021-7-9 17:51 ½s¿è

¦¨¥\¤F
«D±`·PÁÂs3526369¤j¤jªº¸Ñµª

¥u¬O¦ÑÁó§Æ±æ¥i¥H°µ"»¼´î"ªº±Æ§Ç
¤p§Ì¤£¤~¡A¤£ª¾¹D±q­þ­×§ï¡AÁÙ½Ðs3526369¤j¤j«ü¾É

TOP

¦^´_ 4# s3526369


©êºp
s3526369¤j¤j
¤p§Ì¬Ý¿ù¤F¡A¨Ã¨S¦³¦¨¥\¡A¥u¬O´ú¸Õªº¸ê®Æ¥»¨Ó´N¬O«ö¤é´Á±Æ§Ç¤U¨Ó

²{¦b¥X²{³o­Ó¿ù»~

TOP

¦^´_ 6# cowww
¶W¥X¬¡­¶Ã¯´N·|Åã¥Ü³o­Ó

TOP

¥»©«³Ì«á¥Ñ cowww ©ó 2021-7-12 09:28 ½s¿è

¦^´_ 7# s3526369

«D±`·PÁÂs3526369¤j¤jªº¦^´_


²§±`¬O®ø¥¢¤F¡A¦ý¤é´ÁµLªk¦Û°Ê±Æ§Ç

«D±`©êºp
¨ä¤¤¤@­ÓÀɮפӤj(À£ÁY«áÁÙ¬O¶W¹L1M)¡A¾É­PµLªkªþ¥óµ¹s3526369¤j¤j´ú¸Õ

TOP

¦^´_ 7# s3526369
ÀÉ®×¥H¤W¶Ç¡A½Ðs3526369¤j¤j¸Õ¸Õ¬Ý

¶×¤J¸ê®ÆTEST123.zip (317.29 KB)
­º¥ó.zip (254.18 KB)
MLD007.zip (890.41 KB)

TOP

¦^´_ 9# cowww

§A§âÀÉ®×±Hµ¹§Ú[email protected] ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD