- ©«¤l
- 199
- ¥DÃD
- 22
- ºëµØ
- 0
- ¿n¤À
- 233
- ÂI¦W
- 226
- §@·~¨t²Î
- Vista
- ³nÅ骩¥»
- Office2003
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- °ª¶¯
- µù¥U®É¶¡
- 2020-4-14
- ³Ì«áµn¿ý
- 2024-11-23
|
¦U¦ì¥ý¶i ¦Ñ®v ¤j®a¦n
¤W¸ß´£°Ý¸Ñ»¡¦³¨Ç¤£²M·¡.²{¥[¤©«¾ã
1)¤u§@ªí1:¬O¥H"B1"¤Î"D1".¥h¤u§@ªí2¤¤"J1"."L1"¤ñ¹ï¥X.«È¤á.½s¸¹.³æ¸¹
¨Ã¶ñ¤J¤u§@ªí1"A3"«È¤á."C3"½s¸¹."D3"³æ¸¹¤¤.¨ä¤¤"B3"Äx¸¹«h¥H¦³¸ê®Æ¦Û°Ê²£¥Í§Ç¸¹
³o¬O²Ä¤@¶¥¬q¤ñ¹ï¿é¤J
²Ä¤G¶¥¬q¬O¥H²Ä¤@¶¥¬q¤ñ¹ï«á¤§µ²ªG..¥H(½s¸¹)¤¤¼Æ¦r«e2½X¤j¤p¶¶§Ç.¦A¥H«·s¾ã¦X
¨Ã¶ñ¤J"E3"(«È¤á1)."F3"(Äx¸¹1).¨ä¤¤"G3"(½s¸¹1)«h§ï¬°A1¼Æ¦r¶¶§Ç±Æ¦C
*(½s¸¹1)¬°¦ó¥[¤W"A".¥»¦]¥i¥Î"1"¼Æ¦r¶¶§Ç±Æ¦C.¦ý¦]Äx¸¹¤]¬O¥H"1"¼Æ¦r.©Ò¥H¦A(½s¸¹1)¤¤¥[¤W"A"§@¤À§O*
*(Äx¸¹)¬O¥H"A¨®"Äx¸¹³Ì«áÄx¸¹¬°"B¨®"±µ¤U¶¶§Ç."C¨®"¬°"A¨®".¥[¤W"B¨®"Äx¸¹±µ¤U¶¶§Ç.....*
¨Ò¦p¤wª¾"A¨®"Äx¸¹."B¨®"Äx¸¹¶·¥Î¤â¤u¥h§@§ó§ï."C¨®"¦P¼Ë°µªk....
©Ò¥H¶·2¬q¦¡¿é¤J¤Î«¾ã
²Ä¤@¶¥¬q¤ñ¹ï¿é¤J¥H§¹¦¨
Sub ¬£¨®ªí()
Dim DD, CC$, Arr, Brr, i&, j%, N&, xD
Call ¬£¨®ªí_²M°£
DD = [D1]: CC = [B1]
If Not IsDate(DD) Then MsgBox "**½Ð¿é¤J¤é´Á!! ": Exit Sub
If CC = "" Then MsgBox "**½Ð¿é¤J[¨®½s]!! ": Exit Sub
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([¤u§@ªí2!L1], [¤u§@ªí2!A65536].End(xlUp))
ReDim Brr(1 To UBound(Arr), 1 To 4)
For i = 2 To UBound(Arr)
If Arr(i, 12) <> DD Or Arr(i, 10) <> CC Then GoTo 101
PNo = Arr(i, 11): If xD(PNo) = 1 Then GoTo 101
xD(PNo) = 1: N = N + 1: Arr(N, 2) = Format(N, "00") '¦³¸ê®Æ®ÉArrªº²Ä2Äæ¦ì¡A¦Û°Ê²£¥Í§Ç¸¹
For j = 1 To 4
Brr(N, 1) = Arr(i, 1)
Brr(N, 3) = Arr(i, 2)
Brr(N, 2) = Arr(N, 2)
Next j
Brr(N, 4) = Arr(i, 11)
101: Next i
If N = 0 Then MsgBox "**¨S¦³²Å¦Xªº¸ê®Æ!! ": Exit Sub
With Sheets("¤u§@ªí1")
.[A3].Resize(N, UBound(Brr, 2)) = Brr
.Range("A1:G" & N + 3).Name = "'" & .Name & "'!Print_Area"
.Range("1:3").Name = "'" & .Name & "'!Print_Titles"
End With
End Sub
µ²ªG¦p¤U
¨®½s: A¨® ¤é´Á: 110¦~4¤ë1¤é
«È¤á Äx¸¹ ½s¸¹ ³æ¸¹ («È¤á1) (Äx¸¹1) (½s¸¹1)
³¯¤@ 1 01-A001 1100401001
ªL¤G 2 08-A002 1100401002
¦¶¤K 3 02-A008 1100401008
³ÅªÖ¹F 4 12-011S 1100401010
J§B¼Ý 5 11-012S 1100401011
¤@³¯ 6 14-A013 1100401012
¤GªL 7 13-A014 1100401013
¤K¦¶ 8 20-A020 1100401019
¹FªÖ³Å 9 23-023S 1100401022
¼Ý§BJ 10 24-024S 1100401023
³¯¤@+1 11 26-A025 1100401024
ªL¤G+1 12 26-A026 1100401025
³ÅªÖ¹F+1 13 35-035S 1100401029
(ªþ¥óA¨®)
(«È¤á1) (Äx¸¹1) (½s¸¹1)
³¯¤@ 1 A1
¦¶¤K 3 A2
ªL¤G 2 A3
J§B¼Ý 5 A4
³ÅªÖ¹F 4 A5
¤GªL 7 A6
¤@³¯ 6 A7
¤K¦¶ 8 A8
¹FªÖ³Å 9 A9
¼Ý§BJ 10 A10
³¯¤@+1 11 A11
ªL¤G+1 12 A12
³ÅªÖ¹F+1 13 A13
²{¤u§@»Ý¨D:¬O±N²Ä¤G¶¥¬q(«·s¾ã¦X).¨Ã¶ñ¤J"E3"(«È¤á1)"F3"(Äx¸¹1)."G3"(½s¸¹1)¤¤
²Ä2°ÝÃD
¤u§@ªí4¤¤¥H"F1"(¨®½s)¬°°òÂI«·s¾ã¦X.¨Ã¥H"B1"(½s¸¹)«e2½X¼Æ¦r¤j¤p¶¶§Ç«·s¾ã¦X±Æ¦C |
|