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

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

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


¬ã¨s¤F¤@¤U¡A¦³­Ó¦a¤è·Q½Ð±Ð­ã¤j¡A
For Each A In SR
    Sheets(A & "").PrintOut Copies:=PG
Next

³o¬qªº""ªº·N«ä¡A·PÁ­ã¤j©âªÅ¸ÑÃD¡A§Ú¤]·|¦bºô¤W«ùÄò§äµª®×ªº¡C

TOP

¦^´_ 11# av8d


A µLªk«ü©w"«¬ºA" , ¥[ & "", §YÅܦ¨"¤å¦r«¬ºA", »P cstr(A) ¬Û¦P,
¤u§@ªí"¦WºÙ"¶·±j¨î¬°¤å¥», §_«hµLªk¥¿½T¹B¦æ, ÁöµM split ¥X¨Óªº¥»¨­´N¬O¤å¦r«¬ºA, ¦ýÁÙ¬OÂÔ·V!!!

sheets(1),  sheets("1"), ¬O¤£¦P·N«ä~~

TOP

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

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


    ­ì¨Ó¦p¦¹¡A¨ü¯q¨}¦h¡A¸U¤À·PÁÂ~©Ò¥H¨Ï¥Î""¬O¬°¤F·Ç½T¦C¦L¥H¤u§@ªí¦WºÙªº­¶­±¡A
    ­ã¤jªº¼gªkºâ¬O¹ï©ó¤£¾Õªø°}¦Cªº§Ú«Ü¯à¬ÝÀ´¡A°}¦C¥i¥H²µu¼¶¼gªºªø«×¡A³o¬O§Ú¤£¨¬¥²¶·¥h¶i­×ªº¡C

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-11-3 09:46 ½s¿è

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


    ÁÂÁ«e½ú«ü¾É,«á¾Ç¾Ç²ßµ²ªG»P¤ß±oµù¸Ñ¦p¤U,½Ð«e½ú¦A«ü¾É

«ö¶s¸õ¥X¦Û­qªí³æ:


¥þ³¡¿ï¨ú:


¹wÄý:



ªí³æ¼Ò²Õ:
Dim SN$, SR
'¡ô«Å§iÅܼÆ:SN¬O¼Ò²Õ¦r¦êÅܼÆ,SR¬O³q¥Î«¬ÅܼÆ
Private Sub CheckBox1_Click()
Dim i%
'¡ô«Å§ii¬Oµu¾ã¼ÆÅܼÆ
For i = 0 To ListBox1.ListCount - 1
'¡ô³]¶¶°j°é!i±q0 ¨ì²M³æ¼Æ¶q-1
    ListBox1.Selected(i) = CheckBox1.Value
    '¡ô¥O²M³æ¿ï¨ú²M³æi¯Á¤Þ¸¹¶µ¥Ø
Next i
End Sub

'¹wÄý
Private Sub CommandButton1_Click()
Call ¿ï¨ú¤u§@ªí¸s²Õ: If SN = "" Then Exit Sub
'¡ô¥O°õ¦æ°Æµ{¦¡ ¿ï¨ú¤u§@ªí¸s²Õ
'¡ô¦pªGSNÅܼƬOªÅ¦r¤¸!´Nµ²§ôµ{§Ç°õ¦æ

UserForm1.Hide
'¡ô¥Oªí³æÁôÂÃ
Sheets(SR).PrintPreview
'¡ô¥OSR°}¦C(¤u§@ªí¦W) °õ¦æ¹wÄý,¶°¤¤¦b¦P¤@­Ó¹wÄý¥\¯à°µ¤À­¶¹wÄý,
'¥H·Æ¹«ºu°Ê(©Î«ö¤U¤@­¶)¬d¾\,¥HESCÁä(©Î«öÃö³¬¹wÄý)µ²§ô¹wÄý

UserForm1.Show 0
End Sub

'¦C¦L
Private Sub CommandButton2_Click()
Dim A, PG%
'¡ô«Å§iA¬O³q¥Î«¬ÅܼÆ,PG¬Oµu¾ã¼ÆÅܼÆ
Call ¿ï¨ú¤u§@ªí¸s²Õ: If SN = "" Then Exit Sub
'¡ô¥O°õ¦æ°Æµ{¦¡ ¿ï¨ú¤u§@ªí¸s²Õ
'¡ô¦pªGSNÅܼƬOªÅ¦r¤¸!´Nµ²§ôµ{§Ç°õ¦æ

PG = Val(TextBox1)
'¡ô¥OPG³oµu¾ã¼ÆÅܼƬO ¿é¤Jµ¡¿é¤J¤å¦rÂà¤Æªº¼Æ­È
If PG = 0 Then MsgBox "½Ð¿é¤J¦C¦L¥÷¼Æ!  ": Exit Sub
'¡ô¦pªGPGÅܼƬO0!´N¸õ¥X´£µøµ¡ "½Ð¿é¤J¦C¦L¥÷¼Æ!  "
For Each A In SR
'¡ô³]³v¶µ°j°é!¥OAÅܼƬO SR°}¦C¸Ìªº¤@°}¦C­È
    Sheets(A & "").PrintOut Copies:=PG
    '¡ô¥O¤u§@ªí(AÅܼÆÂà¤Æ¬°¤å¦rªº¤u§@ªí¦W)¦C¦L PGÅÜ¼Æ ¥÷¼Æ
Next
Unload Me
End Sub

Sub ¿ï¨ú¤u§@ªí¸s²Õ()
Dim i%
'¡ô«Å§ii¬Oµu¾ã¼ÆÅܼÆ
SN = "": SR = ""
'¡ô¥OSN³o¼Ò²Õ¦r¦êÅܼƬO ªÅ¦r¤¸,¥OSR³o¼Ò²Õ³q¥ÎÅܼƬO ªÅ¦r¤¸
For i = 0 To ListBox1.ListCount - 1
'¡ô³]¶¶°j°é!i±q0 ¨ì²M³æ¼Æ¶q-1
    If ListBox1.Selected(i) = True Then SN = SN & "/" & ListBox1.List(i)
    '¡ô¦pªG²M³æªºi¯Á¤Þ¸¹¶µ³Q¿ï¨ú!´N¥OSNÅܼƳs±µ "/" ¦A³s±µ¸Ó³Q¿ï¨ú¶µ¥Ø,
    '¦¨¬°·s¦r¦ê

Next i
If SN = "" Then MsgBox "©|¥¼¿ï¨ú¶µ¥Ø!  ": Exit Sub
'¡ô¦pªGSNÅܼƬO ªÅ¦r¤¸!´N¸õ¥X´£¥Üµ¡ "©|¥¼¿ï¨ú¶µ¥Ø!  ",µ²§ôµ{§Ç°õ¦æ
SR = Split(Mid(SN, 2), "/")
'¡ô¥O¥H"/"¦r¤¸¤À³Î(SNÅܼƨú²Ä2¦r¶}©lªº¥k¤è¦r¦ê),
'¥OSR³o¼Ò²ÕÅܸ˲±¤@ºû°}¦C

End Sub


¤@¯ë¼Ò²Õ:
Sub ¦C¦Lªí³æ()
Dim xS As Worksheet, S$
'¡ô«Å§ixSÅܼƬO¤u§@ªíÅܼÆ,SÅܼƬO¦r¦êÅܼÆ
For Each xS In Sheets
'¡ô³]³v¶µ°j°é!¥OxSÅܼƬO¥»¬¡­¶Ã¯ªº¤@¤u§@ªí
   If xS.Name <> "¨t²ÎÀÉ" Then S = S & "/" & xS.Name
   '¡ô¦pªGxSÅܼÆ(¤u§@ªí)¦W¤£¬O "¨t²ÎÀÉ"¦r¦ê!
   '´N¥OSÅܼƬO ¦Û¨­³s±µ"/",¦A³s±µ xSÅܼÆ(¤u§@ªí)¦Wªº²Õ¦X·s¦r¦ê

Next
With UserForm1
'¡ô¥H¤U¬OÃö©ó ¦Û­qªí³æ(¦W:UserForm1)ªºµ{§Ç
   .StartUpPosition = 0
   '¡ô¥Oªí³æÅã¥Üªì©l¦ì¸m¬O ¥¼«ü©wªì©l³]©w
   https://learn.microsoft.com/zh-t ... upposition-property
   .Top = Application.Top + 100
   '¡ô¥Oªí³æÅã¥Ü¦ì¸m¤U²¾
   https://learn.microsoft.com/zh-t ... cel.application.top
   .Left = Application.Left + Application.Width - .Width - 20
   '¡ô¥Oªí³æÅã¥Ü¦ì¸m¦A¥k²¾
   https://learn.microsoft.com/zh-t ... el.application.left
   https://learn.microsoft.com/zh-t ... l.application.width
   With .ListBox1
   '¡ô¥H¤U¬OÃö©ó²M³æªºµ{§Ç
        .Clear
        '¡ô¥O²M°£
        .List = Split(Mid(S, 2), "/")
        '¡ô¥O¥H°}¦C­È(¥H"/"¦r¤¸¤À³Î(SÅܼƨú²Ä2¦r¶}©lªº¥k¤è¦r¦ê))±a¤J²M³æ¤¤
        .MultiSelect = fmMultiSelectMulti
        '¡ô¥O²M³æ½Æ¿ï
   End With
   .Show 0
   '¡ô¥OÅã¥Ü²M³æ (¤£Âê©w)
   .CheckBox1 = False
   '¡ô¥O®Ö¨ú¤è¶ô¬O ¬°«D¿ï¨úª¬ºA
   .TextBox1.SetFocus
   '¡ô¥O´å¼Ð¸m©ó¿é¤Jµ¡¤¤
   .TextBox1 = 1
   '¡ô¥O¿é¤Jµ¡¤¤Åã¥Ü 1
End With
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2023-10-30 21:04 ½s¿è

¦^´_ 14# Andy2483


    ÁÂÁ«e½úªº¥Î¤ß¡A³oµù¸Ñ§Ú¨ü¥ÎµL½a¡AÅý§Úªºª¾ÃÑ»â°ì§ó¶i¤@¨B(µ´¹ï¤£¤î¤@¨B)¡A
    ³o¨Ç¶W¯Å¸Ô²Óªºµù¸Ñ¡AÅý­ì¥»ÃjÃjÀ´À´ªº§Ú¡A§ó¬°ºë¶i³\¦h¡A¥Ñ°J·PÁ¡I
    «e½úªº³·¤¤°e¬´¯uªº¬O«D±`·PÁ¡C

TOP

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ß±N½d¨ÒÀ³¥Î©ó¨Ã±ÆÅã¥Ü,½m²ß¤è®×¦p¤U:
20231103_1.zip (26.09 KB)

«ö¶s¸õ¥X¦Û­qªí³æ:


«ö¨Ã±Æ:
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2023-11-4 16:01 ½s¿è

¦^´_ 16# Andy2483

«e½ú±z¦n¡A§Ú­è¦n¦³¥Î¨ì¡A³æ¯Â¨Ï¥Î¤U¡A¤£ª¾¹D¿ù¦b­þ¸Ì¡AÁٽЫe½ú´£¥Ü¡AÁÂÁÂ

««ª½¨Ã±ÆÅã¥Ü.rar (16.33 KB)

¶}±Ò¬¡­¶Ã¯1®É¡A·|¦Û°Ê¶}±Ò¬¡­¶Ã¯2¡A¨Ã±N¨â­Ó¬¡­¶Ã¯««ª½¨Ã±ÆÅã¥Ü¡C
¦ý¬O««ª½¨Ã±ÆÅã¥Ü¨Ã¨S¦³¦¨¥\¡C(¹w­p§Æ±æ¬¡­¶Ã¯1¦b¥ªÃä¡A¬¡­¶Ã¯2¦b¥kÃä)

TOP

¥»©«³Ì«á¥Ñ Andy2483 ©ó 2023-11-5 05:00 ½s¿è

¦^´_ 17# av8d
«á¾Ç½m²ßªº¤è®×¬O¦P¤@­Ó¬¡­¶Ã¯ ¤£¦P¤u§@ªíªº¨Ã±ÆÅã¥Ü¡A«á¾Ç¤]·Q¾Ç³o¤è­±ªºª¾ÃÑ
¨Ã±ÆÅã¥Üªº»Ý¨D»P¦¹¥DÃD¤£¦P
«Øij«e½ú¥t¶}·s¸ÜÃD½Ð±Ð«e½ú­Ì
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2023-11-4 23:28 ½s¿è

¦^´_ 18# Andy2483

¤w¥t¥~µo°Ý¡A¨Ã«ùÄò¦b´M§äµª®×¤¤¡A
«e½úºë¯q¨Dºëªº¾Ç²ß¤è¦¡¡AÅý§Ú±q¤¤¨ü¯qµL½a¡A¥Ñ°J·PÁ±zªº¤À¨É¡I

112/11/4 23:27 ¤w¸Ñµª(¥N½X¦p¤U)
  1. Application.Windows.Arrange ArrangeStyle:=xlArrangeStyleTiled
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ av8d ©ó 2024-5-4 03:09 ½s¿è

¦^´_ 14# Andy2483

«e½ú±z¦n¡A¦A¦¸¥´ÂZ¡A¤£ª¾¬O§_¯à¦³¦Û°Ê¤À­¶ªº¥\¯à¡A¤]´N¬O¤@¥÷¤@¥÷¦L

¤Wºô§ä´Mªº¤èªk¬O.PrintOut Copies:=PG , Collate:=True
¥X³B¡Ghttps://learn.microsoft.com/zh-t ... cel.sheets.printout

¦ý¬O¨S¦³®ÄªG

§Ú¹Á¸Õ¬Ý¬Ý¥Î
For i = 1 to PG
      .PrintOut
Next

TOP

        ÀR«ä¦Û¦b : ª¾ÃÑ­n¥Î¤ßÅé·|¡A¤~¯àÅܦ¨¦Û¤vªº´¼¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD