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

[µo°Ý] ¦p¦ó¨Ì¾ÚÀx¦s®æ¨ç¼Æ§PÂ_¦C¦L½d³ò?

¦^´_ 10# GBKEE

·PÁÂGBKEEª©¥D¦^ÂÐ

ªþÀɸê®Æ¦b²Ä44¦C¶}©lÁÙ¦³¸ê®Æ¡A¦@¨ì791¦C
¦]¨CÁp¨S¦³¼ÐµùÁp¸¹¡A©Ò¥H­n¦b³Ì«áÄæ¦ì¼ÐµùÁp¸¹¡A¦@­p¤­Áp
¦b¨Ì¾Ú²¼¼Æ¸ê®Æ¨Ó¨M©w¦C¦L¥÷¼Æ¡A¨C¥÷¤­Áp

³Ì«áªþ¤W·sªº®æ¦¡¡A¤@¼Ë¬O²Ä44¦C¶}©l¦³®æ¦¡
¥¼¨ì´Á¤ä²¼5Áp¼Ð·Ç.rar (468.37 KB)

TOP

¦^´_ 11# jackson7015


¸Õ¸Õ¬Ý

    Ex.rar (120.47 KB)
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 12# GBKEE

·PÁÂGBKEEª©¥DÀ°¦£
´ú¸Õ6.7¦¸«á¡A¬Ò¥i¥¿±`¹B§@

¤£¹L1.2¦¸·|µo¥Í¤½¦¡¨S¦³±a¤Jªº±¡ªp¡A¤º®e·|¥X²{000000ªºª¬ªp
¬ã¨s¤F¤@¤Uµ{¦¡ªº³¡¤À¡A¦n¹³¤£¦n±a¤J¹wÄý¦C¦Lªº³¡¤À

   ¦A¦¸·PÁ¤j¤jªºÀ°¦£:D

TOP

¦^´_ 13# jackson7015
[¹wÄý¦C¦L] ¥iÃö³¬¥¦©Î¬O¿ï¾Ü¦L¦C,¦ýµLªk¶Ç¦^°Ñ¼Æ¨Ñµ{¦¡§@¤¤Â_¦L¦C©ÎÄ~Äò¦L¦Cªº§PÂ_.

¥B¨Ï¥Î:¨Ï¥Îµøµ¡ªºÀ˵ø¼Ò¦¡¤Á´«¬°¤À­¶²Å¸¹¹wÄý ¸Õ¸Õ¬Ý
  1. Sub Ex()
  2.     Dim Rng As Range, Ar(1 To 5), i As Integer, x As Integer
  3.     With Sheets("¥¼¨ì´Á¤ä²¼¼Ð·Ç")
  4.         If .Range("B3") = 0 Then
  5.             MsgBox "¨S¦³¸ê®Æ¥i¦L¦C ?"
  6.             Exit Sub
  7.         End If
  8.         ActiveWindow.View = xlPageBreakPreview  '¨Ï¥Î¤¤µøµ¡ªºÀ˵ø¼Ò¦¡¤Á´«¬°¤À­¶²Å¸¹¹wÄý
  9.         Ar(1) = "²Ä¤@Áp"
  10.         Ar(2) = "²Ä¤GÁp"
  11.         Ar(3) = "²Ä¤TÁp"
  12.         Ar(4) = "²Ä¥|Áp"
  13.         Ar(5) = "²Ä¤­Áp"
  14.         .ScrollArea = "I6:x27"
  15.         With .PageSetup
  16.             .PrintArea = "I6:x27"  '¦L¦C½d³ò   "¤@±i¤ä²¼ªº½d³ò"
  17.             .CenterHorizontally = True  '¦pªG¦C¦L®É­¶­±¤Wªº¤u§@ªí¬O¤ô¥­¸m¤¤ªº«h¬° True
  18.             .CenterVertically = True    '¦pªG¦C¦L®É­¶­±¤Wªº¤u§@ªí¬O««ª½¸m¤¤ªº«h¬° True
  19.             .PaperSize = xlPaperA4      '³]©w¯È±i¤j¤p  '¥i¬ÝPaperSize »¡©ú
  20.             .FitToPagesWide = 1         '³]©w­¶¼e=1­¶
  21.             .FitToPagesTall = 1         '³]©w­¶°ª=1­¶
  22.         End With
  23.         
  24.         For i = 1 To .[B3]
  25.             Set Rng = .Range("C6:g6").Offset(i)
  26.             .Range("L12") = Rng(1, 1)  '²¼¾Ú¸¹½X
  27.             .Range("M12") = Rng(1, 2)  'ª÷ÃB
  28.             .Range("O12") = Rng(1, 3)  '¦~
  29.             .Range("P12") = Rng(1, 4)  '¤ë
  30.             .Range("Q12") = Rng(1, 5)  '¤é
  31.             .Range("X10") = Ar(1)
  32.             If MsgBox(.Range("L12") & " ¦L¦C", vbYesNo, "²¼¾Ú¸¹½X") = vbYes Then
  33.                 For x = 1 To 5
  34.                     .Range("X10") = Ar(x)
  35.                     .PrintOut Copies:=1      '¤@±i¤ä²¼ªº½d³ò¦L¦C¤­¦¸
  36.                 Next
  37.             End If
  38.         Next
  39.         .ScrollArea = ""
  40.     End With
  41.     ActiveWindow.View = xlNormalView
  42. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 14# GBKEE

·PÁÂGBKEEª©¥Dªº¸Ô²Ó¨ó§U
Åý¤p§Ì¦³­Ó¥t­Ó¤è¦V«ä¦Ò
­ì¥»·Q¸Õ¸Õ¬Ý¨Ï¥ÎMsgBox§â©Ò¦³­n¦C¦Lªº¥÷¼Æ¸ê°T¤@¦¸Åã¥Ü¡A¤£¹L°µ¤£¥X¨Ó
´N§âª©¥D©Ò´£¨Ñªº³æµ§¸ê°T°µ¸Ô²Ó¾ã²z
  1. If MsgBox(" ²¼¾Ú¸¹½X¡G" & Range("L12") & Chr(13) & " ¤é´Á¡G" & Range("O12") & " ¦~ " & Range("P12") & " ¤ë " & Range("Q12") & " ¤é " & Chr(13) & " ª÷ÃB¡G" & Range("M12") & " ¤¸", vbYesNo, "²¼¾Ú©ú²Ó") = vbYes Then
½Æ»s¥N½X
¦A¦¸·PÁÂÀ°¦£~

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD