­ã´£³¡ªL

°Ñ¦ÒÀÉ
Xl0000117.rar (19.72 KB)

¤U¸ü¦¸¼Æ: 9

2020-12-7 16:58

¥|¬q¤À¶}¼g, ·N«ä®t¤£¦h, ¦Û¦æ¬ã¨s¤U~~

­ã´£³¡ªL

¦^´_ 3# b9208

Xl0000117-1.rar (21.23 KB)

¤U¸ü¦¸¼Æ: 6

2020-12-8 19:05

   
²Î­pªíªº®æ¦¡(¼ÐÃD¦æ), »P©Ò­z±ø¥ó¤£¤@­P~~
¦Û¦æ°Ñ°uµ{¦¡­×§ï

­ã´£³¡ªL

¦^´_ 5# b9208


__ÁÙ¬O¬Ý¤£À´²Î­pªíªº³W«h__
¡u¤é´Á & ³¡ªù & ¦WºÙ & ®Æ¸¹¡]«e7½X¡^¡vµ¥¬Û¦P¦C¡A¥u­p¼Æ1¦¸¡C
¤@¡B¨Ì¾Ú¡u¦WºÙ¡v²Î­p¡A¿é¥X©óAªí¡C
¤G¡B¨Ì¾Ú¡u¦a°Ï¡v²Î­p¡A¿é¥X©óBªí¡C
¤G¡B¨Ì¾Ú¡u³¡ªù¡v²Î­p¡A¿é¥X©óCªí¡C

­ã´£³¡ªL

¦^´_ 7# b9208


¥ý°µÁ`ªí:
Xl0000126-1.rar (22.28 KB)

¤U¸ü¦¸¼Æ: 8

2020-12-11 11:17

²Î­pªí¦Û¦æ¥ý¼±ÀÀµ²ªG, ¬Ý¤£À´~~

­ã´£³¡ªL

¦^´_ 9# b9208

°Ñ¦ÒÀÉ:
Xl0000396-1.rar (29.95 KB)

¤U¸ü¦¸¼Æ: 14

2020-12-12 11:46

²Î­p°µ¨â­Ó, À´­þ­Ó´N¥Î­þ­Ó

­ã´£³¡ªL

¦^´_ 11# b9208

For Each S In Array("NL", "SL")
    On Error Resume Next
    If Sheets(S & "") Is Nothing Then
       MsgBox "¤u§@ªí:¡e" & S & "¡f¤£¦s¦b! ": Exit Sub
    End If
    On Error GoTo 0
Next

­ã´£³¡ªL

¦^´_ 13# b9208


ªþÀÉ:
T18-01.rar (56.23 KB)

¤U¸ü¦¸¼Æ: 12

2020-12-19 09:19

­ã´£³¡ªL

¦^´_ 15# b9208


  Set xB = Workbooks.Open(PH & "\" & FN, ReadOnly:=True)
   Set xS = xB.Sheets(1)
   If DateStr = "" Then DateStr = xS.[A2]
   Arr = Range(xS.[A1:O1], xS.UsedRange)


If M > 0 Then
   [Á`ªí!b2] = DateStr

end if

´¡¤J¬õ¦â¦r¨º¤G¦æ~~