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

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

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

¦^´_ 6# ikboy

¤£¹ï¡A§Úª½±µÁ¿§Ú­nªºµ²ªG
¨ä¹ê­ì¥»´N¬O­n§â©Ò¦³¬Û¦Pªº¦æ¼Ð¥Ü¥X¨Ó¡AµM«á¥[Á`°_¨Ó
§Ú¨S¦³­n©î¶}¥Lªº·N«ä
¨C¤@¦æ³£¬O¤@­Ó¹ï¾Ô¬ö¿ý(¦bªþ¥óCZ¦æ¦³¬P¶H)
©Ò¥H­n¤ñ¹ïªº¨ä¹ê¬O¡A¬O§_¦³A~CV³£ªø±o¤@¼Ëªº¦C(»Ý­n¥]§tCZ)¡A¦]¬°¤£¦P¬P¶H¤]·|¦³A~CV·Qªº¤@¼Ëªºª¬ºA¥X²{
¤£¹L¦]¬°ÁÙ¦³CW~CY¬O¤£·|¬Û¦Pªº­È¡A©Ò¥HµLªkª½±µ¤ñ¹ï
²{¦b§Ú¬O¤â°Ê§âA~AWªº¬D¿ï¥X¨Ó«á¡A¦A¥h¤@­Ó¤@­Ó§âAY~CU¿z¿ï¥X¨Ó¡A¤@¼Ëªº¦X¨Ö(³s¬P¶H³£¤@¼Ëªº³¡¤À)¡AµM«á³Ó³õ+1
©Ò¥H·Q­n§Ú¦b©T©wA~AW¿z¿ï±ø¥óªºª¬ªp¤U¡A¥h­«¸mAY~CUªº¿z¿ï±ø¥ó


ÁÙ¬O¬Ý¤£À´ªº³Â·Ð²¾¾r¼v¤ù
https://sendvid.com/kvj69nqz
¶W³s§Ë¤£¥X¨Ó¡A½Ð¦Û¤v½Æ»sºô§}¨ìºô§}¦C§a
¹ê»Ú¬O´N¬O­n³Ì«á´X¬í¨º­Ó°Ê§@¦Ó¤w
¥u¬O¤£¥uÂIªº¨º´X­Ó¡A¦Ó¬O«á¤è¥þ³¡³£ÂI¦¨¥þ³¡

TOP

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

¦^´_ 10# wei9133

A~L ­ì¥»ªº¸ê®Æ®æ¦¡­n«O¯d¶Ü?  ÁÙ¬O¥u«O¯d¿z¿ï«áªº?
M~Z ¤£°µ¥ô¦ó°Ê§@?
³o¼Ëªº¸Ü A~L ªº®æ¦¡¸ê®Æ·|§ïÅÜ µLªk´_­ì ¦]¬°¬O ¥ý§R°£   A~L ªº¸ê®Æ ¦b¶K¤W¿z¿ï«áªº¸ê®Æ  ¦pªG¬O¦b¦P¤@­Ó¬¡­¶Ã¯¸Ì
©ÎµÛ ª½±µ·s¼W¤@­Ó ·sªº ¤u§@ªí¦b§âµ²ªG¶K¤W ?
§Ú¬Ý¤@¤U ¼v¤ù¦n¤F >"<

TOP

¦^´_ 12# °a¤ªºµ
§A¦n
¦b³Ìªìªº»Ý¨D¤¤§Ú¨S¦³­n§R¥ô¦ó¸ê®Æ
§Ú¬O­n¤ñ¹ï¬O§_¦³¬Û¦Pªº¸ê®Æ(¦C)
¤~­n©T©w[¥ª|¥k]¤@Ã䪺¤w¿z¿ï±ø¥ó


À³¸Ó«ç»ò»¡¤~¯àÅý§A²z¸Ñ©O0.0a

A~L ­ì¥»ªº¸ê®Æ®æ¦¡­n«O¯d¶Ü?  ÁÙ¬O¥u«O¯d¿z¿ï«áªº?
M~Z ¤£°µ¥ô¦ó°Ê§@?


A~L¤w¸g¿z¿ï¹L¤F¡A³£¤£­n°Ê¥¦
M~Z¨C¤@­Ó³£§â¿z¿ï¿ï³æ©Ô¶}¨ÓÂI"¥þ³¡"
Microsoft_Excel_-_¹ï¾Ô²Î­p.xls-2020-10-08-00-41-45.png
2020-10-8 00:44


§Úı±o§Ú­Ì·¾³qªº°ÝÃDÀ³¸Ó¥X¦b³o­Ó"¥þ³¡"¤W­±...

·PÁ§Aªá®É¶¡À°§Ú·Q¸Ñ¨M¤è®× m(_ _)m

TOP

¦^´_ 13# wei9133

¼Ó¥D»Ý¨Dªº¿z¿ï¼Ò¦¡¦b¦P¤@sheet¬OµLªk°õ¦æªº(ikboy¤w¸g»¡©ú¤F)
¦pªG¥u¬O­n­pºâ¦U¬P¶H³Ó²v/±Ñ§½«Øij¥i¥Î¤ñ¹ïªº
¥u¬OµLªk¬Ý¥X³o2¦U°Ï¶ô(A~AW)¤º¸ê®Æªº¬ÛÃö©Ê&³Ó²v/±Ñ§½­pºâ¤è¦¡??

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-10-8 12:31 ½s¿è

¦^´_ 13# wei9133
³o¤£¬O¥Î¿z¿ï ¦Ó¬O¥Î¤ñ¹ïªº¤è¦¡  
§A¬Ý¤@¤U¬O¤£¬O³o¼Ë?
  1. Public Sub ¤ñ¹ï½m²ß()
  2.     Application.ScreenUpdating = False
  3.     Dim A, B, i, k
  4.     k = 1
  5.     E = 345
  6.     For X = 1 To Cells(1, 1).End(xlDown).Row
  7.         A = Range(Cells(X, 49), Cells(X, 1))
  8.         B = Range(Cells(X, 99), Cells(X, 51))
  9.         
  10.         For i = 1 To UBound(B, 2)
  11.         If A(1, k) = "" Then A(1, k) = "-"
  12.         If B(1, i) = "" Then B(1, i) = "-"
  13.              f = f & A(1, k)
  14.              r = r & B(1, i)
  15.             If k <= UBound(A, 2) Then k = k + 1
  16.         Next i
  17.         
  18.         k = 1
  19.         
  20.         If f = r Then
  21.            Cells(E, 1).Resize(1, 104) = Cells(X, 1).Resize(1, 104).Value
  22.            E = E + 1
  23.         End If
  24.         
  25.         f = "": r = ""
  26.     Next X
  27.     Application.ScreenUpdating = True
  28. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-10-8 23:21 ½s¿è

¦^´_ 13# wei9133

³o¬O­×§ï¹Lªº  ¶¶§Ç¬O 1~49 »P 51~99 ¬Û¦P  ³Ó²v=1 -> ¿ý»sªº±Æ§Ç->¿ý»sªº§R°£­«½Æ
¿ý»sªº§R°£­«½Æ¦³ÂI©Ç©Çªº ¤£¹LÁÙ¬O¥i¥H¥Î §Ú§ä¤£¨ì­ì¦] §R°£«á ®æ¦¡ÁÙ¬O·|¦s¦b¦ý¼Æ­È¤å¦r¤w³Q§R°£
­×§ï½d³ò«á §R°£ªº¦C¦ì¤£·|©¹¤W¸É >"< «á¨Ó¤S§ï¦^¨Ó...¤£ª¾¹D¬°¬Æ»ò..¨þ
¼v¤ù¬Ý°_¨Ó¬O³o¼Ë ¤£ª¾¹D¬O¤£¬O§A­nªº §Ú¤]¬O¶¶«K½m²ß
  
javascript:;

zz1008.rar (53.2 KB)

TOP

¦^´_ 14# jcchiang

¨ä¹ê§Ú¹ê»Ú¤W´N¬O¤ñ¹ï¡A¤£¹L¬O¤H¤u¤ñ¹ï
©Ò¥H¤~·|·Q­n©T©w¤@Ã䪺¿z¿ï«á±ø¥ó¡A±N¥t¥~¥bÃä¥þ³¡ÂI¦^­ì©l¥¼³Q¿z¿ïªºª¬ºA
³o¼Ë¤è«K¬Ý¥t¤@Ãä¬O§_¦³¤@¼Ëªº²Õ¦X
³o±i¹Ïªí¸Ì­±Åã¥Ü¤£¥X±Ñ§½¡A¦]¬°±Ñ§½¬O¬ö¿ýªº®É­Ôµo²{¿é¤F¤â°Ê¶ñ¤Wªº
©Ò¥H¹ê»Ú¤ñ¹ï¥Ø¼ÐÀ³¸Ó¬O
A~CV³£ªø±o¤@¼Ò¤@¼Ë¥BCZ¤]¤@¼Ëªº³¡¤À
A~CV¤À§OÀ³¹ï³Ó±Ñ¤èªº¥X³õ¤Hª«¡A¦ÓCZ¬O¬P¶H(³o­Ó°Ñ¼ÆÂù¤è¦@¥Î)
A~AW¬O±Ñ¤è²Õ¦X¡AAY~CU¬O±Ñ¤è²Õ¦X
AX¸òCV³o¨â®æ¥X¾Ô¤H¼Æ¬O³Ó±Ñ¤èªº¥X¾Ô¤H¼Æ¡A¥H½T«O¥¼²Î­p¿ù»~
(¥¿±`¬°5¡A­Y¿ù¤F¦³¥Î®æ¦¡¤Æ¼Ð¥X¥Hµo²{¿é¤J¿ù»~)

¥Ø«e§Ú¤H¤u²Î­pªº¬yµ{¬O
¥ý©T©w¥ªÃ䪺¿z¿ï±ø¥ó¡A³o¼Ë¿z¿ï¥X¨Óªº±Ñ¤è¨¤¦â´N³Q©T©w¤F (¤Ï¤§´N¬O©T©w³Ó¤è¿z¿ï±ø¥ó¦A¥h¬D¿ï±Ñ¤è¨¤¦â)
¦A±q¥kÃä¬D¿ï±ø¥ó¿z¿ï¡Aµo²{¨â±øªøªº¤@¼Ò¤@¼Ëªº(A~CV & CZ)¡A½T»{¤@¤U³Æµù(CX)ªºÃC¦â¶¥¯Å
(¦³¥i¯àA~CV³£¤@¼Ë¦ýZC¬O¤£¦Pªº)
Microsoft_Excel_-_¹ï¾Ô²Î­p_-_½Æ»s.xls-2020-10-09-00-24-04.png
2020-10-9 00:27

(²{¦b¬Ý°_¨Óµu¬O¦]¬°ÁôÂäF¤¤¶¡ªº³¡¤À)
µM«á§â³o´X±ø¤@¼Ëªº³Ó³õ(CW)±Ñ³õ(CY)¥[°_¨Ó¶ñ¨ì­n¯d¤Uªº¨º¤@±øªº³Ó³õ(CW)±Ñ³õ(CY)Äæ¦ì
(³o­Ó®É­Ô§Ú·|¬Ý¤@¤U³Æµù¨M©w­n¯d­þ¤@±ø)
µM«á§â¯d¤U¤§¥~ªº¨ä¥L±ø§R°£¡C

TOP

¦^´_ 16# °a¤ªºµ
§Ú¨ä¹ê¤]¨S¬ÝÀ´§AªºªF¦è¡A¥u¦³¤@­Ó¬¡­¶Ã¯ªºªF¦è«ç»òÅܦ¨¨â­Ó¤F
¦Ó¥B§Ú°õ¦æ¥¦ÁÙ³ø¿ù¤F
Microsoft_Visual_Basic_-_zz1008.xls_[°õ¦æ¤¤]_-_[Modul-2020-10-09-00-34-33.png
2020-10-9 00:40

Microsoft_Visual_Basic_-_zz1008.xls_[¤¤Â_]_-_[Module-2020-10-09-00-34-41.png
2020-10-9 00:40


§Ú­n¤ñ¹ïªº©l²×¦b¤@­Ó¬¡­¶Ã¯¸Ì
¥Ø«e¬O¤H¤u¬D¿ïA~CV³£ªø±o¤@¼Ò¤@¼Ë¥BCZ¤]¤@¼Ëªº³¡¤À
µM«á¥[Á`±Ñ³õ¸ò³Ó³õ¼Æ¶ñ¤J¨ä¤¤¤@¦Cªº¸Ó®æ¤¤¯d¦s
³Ñ¤U§R°£

TOP

¥»©«³Ì«á¥Ñ wei9133 ©ó 2020-10-9 01:16 ½s¿è

¦^´_ 17# wei9133

§Ú§â§Ú¨ãÅ骺¾Þ§@¿ý¦¨¼v¤ù¤F¡A¬Ý¤@¤U©Î³\¯àÀ´?

https://sendvid.com/suu270r2

¨ä¤¤¾ãÄ檽±µ¿z¿ï¦¨V©ÎWªº³¡¤À¦]¬°§Ú¤w¸g¿ý¦¨¥¨¶°©Ò¥H¨S¦³¥h©Ô¤U©Ô¦¡¿ï³æ
  1. Sub ¿z¿ï¬°V() '^U
  2. Dim i As Integer
  3. i = ActiveCell.Column 'Àò¨úÄæ¦ì­È
  4. Cells(1, i).Select
  5.     Selection.AutoFilter Field:=i, Criteria1:="V"
  6.     '±N¸Ó®æ¿z¿ï¬°"V"
  7. End Sub
  8. Sub ¿z¿ï¬°W() '^I
  9. Dim i As Integer
  10. i = ActiveCell.Column 'Àò¨úÄæ¦ì­È
  11. Cells(1, i).Select
  12.     Selection.AutoFilter Field:=i, Criteria1:="W"
  13.     '±N¸Ó®æ¿z¿ï¬°"W"
  14. End Sub
  15. Sub ¿z¿ï¬°ªÅ®æ() '^B
  16. Dim i As Integer
  17. i = ActiveCell.Column 'Àò¨úÄæ¦ì­È
  18. Cells(1, i).Select
  19.     Selection.AutoFilter Field:=i, Criteria1:="="
  20.     '±N¸Ó®æ¿z¿ï¬°"ªÅ®æ"
  21. End Sub
  22. Sub ¿z¿ï¬°«DªÅ®æ() 'O
  23. Dim i As Integer
  24. i = ActiveCell.Column 'Àò¨úÄæ¦ì­È
  25. Cells(1, i).Select
  26.     Selection.AutoFilter Field:=i, Criteria1:="<>"
  27.     '±N¸Ó®æ¿z¿ï¬°"«DªÅ®æ"
  28. End Sub

  29. Sub ¿z¿ï¬°¥þ¿ï() '^+Q
  30. Dim i As Integer
  31. i = ActiveCell.Column 'Àò¨úÄæ¦ì­È
  32. Cells(1, i).Select
  33.     Selection.AutoFilter Field:=i ' Criteria1:="<>" ¡A¬Ý°_¨Ó¨S¦³µ¹«á­±³o¦ê«ü©w­È´N¬O¥þ³¡¤F
  34.     '±N¸Ó®æ¿z¿ï¬°"¥þ³¡"
  35. End Sub
½Æ»s¥N½X
¤@¶}©l§Ú»Ý­nªº¥\¯à»Ý¨D¨ä¹ê¬O³o­Ó
¦b§Ú¿ï§¹¬Y¤@Ã䤧«á¡A§â¥t¤@Ãä¥þ³¡¥Ñ¿z¿ï¤U©Ô¦¡¿ï³æ¿ï¦^"¥þ¿ï"

https://sendvid.com/3ifimegq

©Ò¥H¤~·|¥X²{³oºØªF¦è
  1. sub ¿z¿ï«áºÝ  ()
  2. Sub ¿z¿ï«áºÝ()
  3. Dim var_min, var_max, i, j, s As Integer
  4. var_min = 51  '«á¥b¬q°_
  5. var_max = 99  '«á¥b¬q¨´
  6. For j = var_min To var_max
  7. j = j + 1
  8. Cells(1, j).Select
  9. Selection.AutoFilter Field:=j
  10. Next j
  11. End Sub
½Æ»s¥N½X
¦ý¬O³o²Õ¥N½X¦n¹³¨S¥Î¡A©Ò¥H¤~·|¨Ó°Ý

TOP

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

¦^´_ 19# wei9133

§A­n¥ý§â ¤u§@ªí2 §R°£ ¦A·s¼W¤@­Ó ¤u§@ªí2¦b°õ¦æ     ¤u§@ªí2 ¬O½Æ»sªº¤º®e §Ú¨S¦³°Ê¤u§@ªí1ªº¤º®e  °õ¦æ Module1
  1. Public Sub ¦h¦C¤ñ¹ï½m²ß()
  2.     Sheets(2).Select
  3.     Rows("2:2").Select
  4.     ActiveWindow.FreezePanes = False 'Ãö³¬­áµ²µøµ¡
  5.     Application.ScreenUpdating = False
  6.     Call ¥¨¶°1 '¿ý»sªº±Æ§Ç
  7.     k = 1

  8.     For X = Cells(1, 1).End(xlDown).Row To 2 Step -1
  9.         A = Range(Cells(X, 49), Cells(X, 1)) '§â1~49¤º®e ©ñ¨ì°}¦C
  10.         B = Range(Cells(X, 99), Cells(X, 51)) '§â51~99¤º®e ©ñ¨ì°}¦C
  11.         
  12.         For I = 1 To UBound(B, 2) '¦êÁp "-" ¸¹¤è«K¤ñ¹ï
  13.             If A(1, k) = "" Then A(1, k) = "-"
  14.             If B(1, I) = "" Then B(1, I) = "-"
  15.             f = f & A(1, k)
  16.             r = r & B(1, I)
  17.             If k <= UBound(A, 2) Then k = k + 1
  18.         Next I
  19.         
  20.         k = 1
  21.         
  22.         If f = r And f <> "-" Then '­Y1~49 »P 51~99 ¬Û¦P ´N¦b ³Ó²vÄæ¦ì ¿é¤J"1"¨Ã¤Ï¶À¦â
  23.             Cells(X, 101) = "1"
  24.             Cells(X, 101).Interior.Color = RGB(255, 255, 0)
  25.         End If
  26.         
  27.         f = "": r = ""
  28.     Next X

  29.     Call ¥¨¶°2 '¿ý»sªº§R°£­«½Æ
  30.     Application.ScreenUpdating = True
  31.     Rows("2:2").Select
  32.     ActiveWindow.FreezePanes = True  '¶}±Ò­áµ²µøµ¡


  33. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD