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

[µo°Ý] ¨Ì±ø¥ó½Æ»s¤£¦P¤u§@ªí¸ê®Æ¨Ã²Î­p¤£­«½Æ¦¸¼Æ

¦^´_ 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
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 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

TOP

¦^´_ 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)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 13# b9208


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

TOP

¦^´_ 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)
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 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¦æ~~

TOP

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

­ã¤j
«D±`·PÁÂ
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD