b9208

¦^´_ 10# ­ã´£³¡ªL
Dear «e½ú¡I«D±`·PÁÂ
¦p©ó°õ¦æ«e§PÂ_NL©ÎSL¤u§@ªí¬O§_¦s¦b¡H¤£¦s¦b«hµ²§ô°õ¦æ¡A¦p¤U¦p¦ó§ó§ï¡CÁÂÁ¡I
Dim ws As Worksheet
Dim sName As String
sName = "NL"
On Error Resume Next
Set ws = Sheets(sName)
If ws Is Nothing Then
    MsgBox "NL or SL¤u§@ªí¤£¦s¦bµ²§ô°õ¦æ"
    Exit Sub
End If

­ã´£³¡ª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

b9208

¦^´_ 12# ­ã´£³¡ªL
Dear ­ã¤j
«D±`·PÁÂ
¦p±N©Ò¦³¸ê®Æ²¾°Ê½Æ»s¨ì¥DÀÉ¡A¥DÀÉÀÉ®×·|Åܫܤj¡]¬ù30¦hMB¡^¡C
½Ð°Ý¥i¥H¤£¥Î±N¸ê®Æ²¾¨ì¥DÀÉ¡A´N¥i¥H¨Ì¿z¿ï±ø¥ó½Æ»s¸ê®Æ¨ì¥DÀɶܡH
¥DÀɦWºÙ¡GTOTAL
¸ê®ÆÀɦWºÙ¡GData1, 2, 3¡K¡K.¡]¤u§@ªí¦WºÙ¡GLIST¡^
¥H¤WÀɮצP¤@¸ê®Æ§¨
ÁÂÁÂ
T18.rar (44.26 KB)

¤U¸ü¦¸¼Æ: 4

2020-12-19 00:03

­ã´£³¡ªL

¦^´_ 13# b9208


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

¤U¸ü¦¸¼Æ: 10

2020-12-19 09:19

b9208

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

­ã¤j±z¦n
½Ð±Ð·Q­n©ó¡uTOTAL Á`ªí¡vB2Àx¦s®æ­È½Æ»s¨ä¥LEXCELÀɤºA2ªº­È¡]¨ä¥LÀɮפºA2­È³£¬O¬Û¦Pªº¡^¡A¦p¦ó­×­q¥¨¶°¡H
Àµ½Ð«ü¾É
ÁÂÁ¡I
20210206.rar (59.08 KB)

¤U¸ü¦¸¼Æ: 5

2021-2-6 23:22

­ã´£³¡ª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¦æ~~

b9208

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

­ã¤j
«D±`·PÁÂ