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

[µo°Ý] Àx¦s®æ¯Á¤Þ­È

¦^´_ 8# ­ã´£³¡ªL
¦^´_ 10# ChuckBucket

¤G¦ì¦n,
³o¬q®É¶¡,¤@¦³¾÷·|´N¶i¦æ´ú¸Õ,¦ýµL½×¦p¦ó,µ{¦¡°õ¦æµ²ªGÁÙ¬O¦³°ÝÃD,½ÐÀ°¦£¸Ñ´b... ´ú¸Õ2.rar (48.68 KB)

°õ¦æµ{¦¡ªº°ÝÃD:(§Ú§â°õ¦æµ²ªG¯d¦bÀɮפ¤,§Æ±æ¦³§U©ó¤F¸Ñ­ì¦])
°õ¦æ«á¥u¦³3­ÓÀÉ,«o¦C¤F100¦h¦æ
¥u´ú¤F3­ÓÀÉ,¦ýRun±o¦³ÂI¤[,¤£ª¾°ÝÃD¥X¦b­þ?
°õ¦æ«á¤£»Ý­n§âÀɮצWºÙ¦C¥X¨Ó
¥»¨Ó¦Û¦æ§â¥H¤U¤G¦æÅܦ¨µù¸Ñ,¦ýÁÙ¬O·|¼g¦b¨ä¥LÄæ¦ì,½Ð°Ý¸Ó¦p¦ó­×§ïµ{¦¡,¤~¯àÅý¥¦¤£­n§âÀɮצWºÙ¦C¥X?
[F1:H999].ClearContents:  Set xA = [F1]
If Not xS Is Nothing Then xS.Range(R) = T: xB.Save: xA(1, 3) = "(V)¼g¤J§¹¦¨"
·í¸ê®Æ§¨Åܧó¸ô®|®É,¸Ó¦p¦ó­×§ï¼gªk?¨Ò¦p:¸ô®|§ï¬°W:\0_¦Û­qªí³æ\¤é±`ªí®æ\
»Pµ{¦¡¤£¦b¦P¤@¸ê®Æ§¨®É?

TOP

¦^´_ 11# PJChen


Sub ´ú¸Õ()
Dim P$, S$, T$, R$, F$, N&, xB As Workbook, xS As Worksheet
P = [B6]: If P = "" Then MsgBox "**¸ê®Æ§¨¦WºÙ,¤l¸ê®Æ§¨¥¼¿é¤J!¡@": Exit Sub
P = ThisWorkbook.Path & "\" & P & "\"
If Dir(P, vbDirectory) = "" Then MsgBox "**¤l¸ê®Æ§¨¤£¦s¦b!¡@": Exit Sub
S = [B2]: If S = "" Then MsgBox "**¤u§@ªí¦WºÙ¥¼¿é¤J!¡@": Exit Sub
T = [B4].Text: If S = "" Then MsgBox "**¼g¤Jªº¤º®e¥¼¿é¤J!¡@": Exit Sub
R = [B5]: If R = "" Then MsgBox "**¼g¤J¦ì§}¥¼¿é¤J!¡@": Exit Sub
On Error Resume Next: Set xA = Range(R): On Error GoTo 0
If xA Is Nothing Then MsgBox "**¼g¤J¦ì§}¤£¥¿½T!¡@": Exit Sub
If xA.Count > 1 Then MsgBox "**¼g¤J¦ì§}¤£¬O³æ¤@Àx¦s®æ!¡@": Exit Sub
'--------------------------------------------------------------------
Dim xD, A
Set xD = CreateObject("Scripting.Dictionary")
Do
   If F = "" Then F = Dir(P & "*.xlsx") Else F = Dir()
   If F = "" Then Exit Do Else xD(F) = ""
Loop
If xD.Count = 0 Then Exit Sub
Application.ScreenUpdating = False
For Each A In xD.keys
    Set xB = Workbooks.Open(P & A):  Set xS = Nothing
    On Error Resume Next: Set xS = xB.Sheets(S): On Error GoTo 0
    If Not xS Is Nothing Then xS.Range(R) = T: xB.Save
    xB.Close 0
Next
End Sub

===================

TOP

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

ÁÂÁ­ã¤j,

µ{¦¡°õ¦æ¨S°ÝÃD¤F,§Ú¸ÕµÛ§â¸ô®|Åܧ󦨳o¼Ë,¤w¸g¥i¥H¥Î¤F¡I
Path = "W:\¨p\½d¨Ò\"
P = Path & "\" & P & "\"

TOP

¦^´_ 13# PJChen


Path = "W:\¨p\½d¨Ò\"
P = Path & "\" & P & "\"

¬õ¦â³¡¥÷­«ÂШâ­Ó"\",  §R±¼¨ä¤¤¤@­Ó~~~

TOP

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

¦nªº,·PÁ¡I

TOP

        ÀR«ä¦Û¦b : ¤@¥y·Å·xªº¸Ü¡A´N¹³©¹§O¤H¨­¤WÅx­»¤ô¡A¦Û¤v·|ªg¨ì¨â¤Tºw¡C
ªð¦^¦Cªí ¤W¤@¥DÃD