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

[µo°Ý] Ãö©ó¹wÄý¦C¦L©Îª½±µ¦C¦L

[µo°Ý] Ãö©ó¹wÄý¦C¦L©Îª½±µ¦C¦L

¹wÄý¦C¦L.rar (24.86 KB)

¥Ø«e¶i«×¡G¤Ä¿ï¹wÄý¦C¦L«á¡A·|¦Û°Ê¿ï¨ú³Ì«á¤@­Ó¤u§@ªí¥H¥~ªº¤u§@ªí
¶i¤J¹wÄý¦C¦L¡A¥÷¼Æ2
¦ý¬O³o³¡¤ÀµLªk¹ê²{¡A·j´M¤F¨S¦³µ²ªG
¥u·j´M¨ìª½±µ¦C¦L¡A¦ý¬O¤£ª¾¹D¦p¦ó¤U«ü¥O¡A½Ð°Ý¬O§_¦³«e½úª¾¹D¡AÁÂÁ¡I

¦^´_ 1# av8d


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P½d¨Ò,«á¾ÇÂǦ¹©«¾Ç²ß¦Û­qªí³æ
¦Û­qªí³æ¬O¥t¤@»â°ì¾Ç°Ý,ªì¾Çªº½m²ß½d¨Ò,½Ð«e½ú°Ñ¦Ò
ªí³æ±±¨î±o¤£¦n,½Ð¦U¦ì«e½ú«ü±Ð

¹wÄý¦C¦L_20231028.zip (31.95 KB)

ÂI¿ï®Ö¨ú¤è¶ô>¸õ¥Xªí³æ:


¿ï¨ú²M³æ Á`ªí ¶µ°µ¹wÄý¦C¦L:


¿ï¨ú²M³æ ¤u§@ªí1 ¶µ°µ¹wÄý¦C¦L:
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 2# Andy2483

¹wÄý¦C¦L_20231028(·s¼W).rar (32.31 KB)

¨ü¨ì«e½ú¦h¦¸´£Äâ»PÀ°§U¡A¸Ì­±¥]§t³\¦h¤¸¯À³£¬O§Ú»Ý­n¾Ç²ßªº¡A§Ú¤w§ï¼g¦¨¥i¥H½Æ¿ïªº¥\¯à(·PÁ«e½ú¤w¾Q¸ô)
§Æ±æ«e½ú¦³ªÅªº®É­Ô¯à¹L¥Ø¤Î´£ÂI¡A¸U¤À·PÁ¡C

TOP

¦^´_ 3# av8d


    ¥DÃD¬O­n¥þ³¡¦L (³Ì«á¤@­Ó¤u§@ªí¥H¥~ªº¤u§@ªí),©Ò¥Hªí³æ¤¤ªº½Æ¿ï¥\¯à¤£·|§ïÅÜ¥þ³¡¦Lªºµ²ªG
¦pªG ²M³æ¿ï¨úªº¤u§@ªí¦W ¤~»Ý­n¦L? »Ý­n¦A·r°u¤@¤U
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦^´_ 4# Andy2483

ÁÂÁ«e½ú´£¿ô¡Aªº½T¬O¦³¤@­Ó¤£¦L¡A¦]¬°­n·í¾Þ§@¥Îªº­¶­±(¥¼¨Ó·|¦³«Ü¦h«ö¶s)¡A¯¬¶¶¤ß¡C

TOP

¤£ºÞ³æ¿ï/½Æ¿ï/¥þ¿ï...­n°j°é°w¹ï¿ï¨ú¦C¦L, §_«h¨S·N¸q

TOP

¦^´_ 6# ­ã´£³¡ªL

ÁÂÁ­ã¤j¡A¥Ø«eµL¦Lªí¾÷¥i´ú¡A¦ý¬O«e½ú¦³¼g¦b¦C¦L«ö¶s¤¤
  1. Dim i%, j%
  2. If Val(TextBox1) = 0 Then MsgBox "½Ð¿é¤J¦C¦L¥÷¼Æ": Exit Sub
  3. Unload Me
  4. For j = 1 To Val(TextBox1)
  5.    For i = 1 To UBound(A)
  6.       Sheets(A(i)).PrintOut
  7.    Next
  8. Next
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-10-29 08:10 ½s¿è

¦^´_ 7# av8d
A¬O°}¦C¡]¤u§@ªí¦W¡^,¤£¬O²M³æ¿ï¨ú¶µ¥Ø¡Aµø»Ý¨D°µ­×§ï
«Øij°µ¨â­Óªí³æ¡G
1.¥ý½Æ¿ï©Î¥þ¿ï­n¦Lªº¤u§@ªí¦W ½T»{¡]¿Ã¹õ¤¤¶¡¡^
A°}¦C¸Ë³o¨Ç²M³æ¿ï¨úªº¤u§@ªí¦W

2.¦A¸õ¥X­n«á¾Ç2¼Ó¹wÄý¦C¦Lªí³æ¾Þ§@¡]¿Ã¹õ¥k¤U¡^
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

³æ¿ï/½Æ¿ï/¥þ¿ï...¨ä¹ê³£¦P¤@¥ó¨Æ
Xl0000070.rar (20.2 KB)

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2023-10-29 13:13 ½s¿è

¦^´_ 9# ­ã´£³¡ªL

­ì¨ÓÁÙ¯à¦h¿ï¤@¦¸¹wÄý¡AÅý§Ú©Ò¾Ç¤S§ó¶i¤@¨B¡A°}¦C¯uªº§Úªº®zÂI¡C
­ã¤j¼g±o«D±`²LÅã©öÀ´¡A¤×¨ä¬O³o­Ó¬O§Ú§¹¥þ·Q¤£¨ìªº
ListBox1.Selected(i) = CheckBox1.Value
SN = SN & "/" & ListBox1.List(i)
SR = Split(Mid(SN, 2), "/")
«Ü¦h¥©«ä¡AÁÂÁ­ã¤jªº¥Î¤ß¡A¸U¤À·PÁ¡I

TOP

        ÀR«ä¦Û¦b : ºÉ¦h¤Ö¥»¥÷¡A´N±o¦h¤Ö¥»¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD