[µo°Ý] ¥t¦s·sÀÉ «ç»ò§âÄæ寛¸ò¦C°ª¤]½Æ»s¨ì·sªí®æ?

kkooo15

¥t¦s·sÀÉ «ç»ò§âÄæ寛¸ò¦C°ª¤]½Æ»s¨ì·sªí®æ?
¥t¥~½Ð°Ý«ç»ò§a­È½Æ»s¹L¥h´N¦n¡A¤£­n¤½¦¡?

1ªÅ¥Õ³ø»ù³æ.rar (50.07 KB)

¤U¸ü¦¸¼Æ: 5

2019-11-22 12:43

1. Sub EX()
   
2. Set xSh = Sheets("³ø»ù³æ")
   
3. Set zSh = Sheets("½Ð´Ú³æ")
   
4. 
   
5. iPath$ = ActiveWorkbook.Path & "\" '«ü©w¸ô®|"
   
6. NewName$ = Format(Now, "yyyymmddhhmmss") & CStr([¬dªí!C4])
   
7. Set ibook = ActiveWorkbook
   
8. With Workbooks.Add: ibook.Activate
   
9.   [³ø»ù³æ!A1:I45].Copy .Sheets(1).[A1]: .Sheets(1).Name = "³ø»ù³æ"
   
10.   [½Ð´Ú³æ!A1:I45].Copy .Sheets(2).[A1]: .Sheets(2).Name = "½Ð´Ú³æ"
    
11.   .SaveAs iPath & NewName: .Close True
    
12. 
    
13. End With: Set ibook = Nothing
    
14. 
    
15. 
    
16. End Sub

½Æ»s¥N½X

kkooo15

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

§Úªº¬O2010
¥Î²Ä¤@­Óµ{¦¡½X·|¸õ¥X³o¼Ë

¤U¸ü (69.43 KB)

2019-11-27 09:49

²Ä¤G­Ó´N¥¿±`..

­ã´£³¡ªL

Sub EX3()
Dim FN$, Sht As Worksheet, xB As Workbook
FN = ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & [¬dªí!C4]
Set xB = Workbooks.Add
For Each Sht In ThisWorkbook.Sheets(Array("³ø»ù³æ", "½Ð´Ú³æ"))
    Sht.Copy Before:=xB.Sheets(1)
    With xB.Sheets(1)
         .UsedRange.Value = .UsedRange.Value
         .DrawingObjects.Delete
    End With
Next
xB.SaveAs FN, CreateBackup:=False: xB.Close
End Sub


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

­ã´£³¡ªL

¦^´_ 5# kkooo15

¥i¯àª©¥»¤£¦PªºÃö«Y§a! §Ú¬O¥Î2000ª©,
¨º´N¦h¤@¦æ§Rª«¥ó:
Sub EX()
Dim Sht As Worksheet, xB As Workbook, N%
Application.ScreenUpdating = False
Set xB = Workbooks.Add
ThisWorkbook.Activate
For Each Sht In Sheets(Array("³ø»ù³æ", "½Ð´Ú³æ"))
    With Sht.Cells: .Locked = True: .FormulaHidden = True: End With
    Sht.Protect: N = N + 1
    With xB.Sheets(N)
         Sht.Cells.Copy .[A1]
        .Name = Sht.Name
        .DrawingObjects.Delete '§R°£ª«¥ó
    End With
    Sht.Unprotect
Next
xB.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & [¬dªí!C4], CreateBackup:=False
xB.Close
End Sub


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

kkooo15

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

¤U¸ü (18.29 KB)

2019-11-24 02:13

¤j¤j§Ú¥Î¤F§Aªº¤è¦¡¡A¥i¬O«ö§áÁÙ¬O·|¹L¥h¤]
  ¬O¤£¬O§Ú¥Î¿ù¤F¤°»ò¦a¤è?

1ªÅ¥Õ³ø»ù³æ.rar (50.46 KB)

¤U¸ü¦¸¼Æ: 2

2019-11-24 02:15

­ã´£³¡ªL

Sub EX()
Dim Sht As Worksheet, xB As Workbook, N%
Application.ScreenUpdating = False
Set xB = Workbooks.Add
ThisWorkbook.Activate
For Each Sht In Sheets(Array("³ø»ù³æ", "½Ð´Ú³æ"))
    With Sht.Cells: .Locked = True: .FormulaHidden = True: End With
    Sht.Protect: N = N + 1
    With xB.Sheets(N): Sht.Cells.Copy .[A1]: .Name = Sht.Name: End With
    Sht.Unprotect
Next
xB.SaveAs ThisWorkbook.Path & "\" & Format(Now, "yyyymmddhhmmss") & [¬dªí!C4], CreateBackup:=False
xB.Close
End Sub

1)±NÀx¦s®æ®æ¦¡³]¬°¡GÂê©w(V)+ÁôÂÃ(V)
2)½Æ»s®É¡A±N¤u§@ªí³]¬°¡e«OÅ@¡f¡A§¹¦¨«á¦A¡e¸Ñ°£«OÅ@¡f
3)³o¼Ë¡A¤½¦¡¥u·|¶K¨ì­È¡A«ö¶sª«¥ó¤]¤£·|½Æ»s¹L¥h
¡@
¡@
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×

kkooo15

¦^´_ 2# n7822123
¤Ó·PÁ¤F¡C
­ì¨Ó§Ú§â²³æªº¨Æ½ÆÂø¤Æ¤F

n7822123

¦^´_ 1# kkooo15


¾ã­¶½Æ»s¹L¥hÀ³¸Ó¤ñ¸û§Ö..........¤£¥Î¦A³]©wÄæ¼e¦C°ª

¥h±¼¤½¦¡«Ü²³æ¡A´N­ì¦a½Æ»s+¶K¤W­È

¶¶«KÀ°§A§â«ö¶s¬å±¼¡A§A·sªí®æÀ³¸Ó¤]¤£·Q¦³«ö¶s

Sub EX2()
Set xSh = Sheets("³ø»ù³æ")
Set zSh = Sheets("½Ð´Ú³æ")

iPath$ = ActiveWorkbook.Path & "\" '«ü©w¸ô®|"
NewName$ = Format(Now, "yyyymmddhhmmss") & CStr([¬dªí!C4])
Set ibook = ActiveWorkbook
With Workbooks.Add: ibook.Activate
xSh.Copy before:=.Sheets(1)
  With ActiveSheet
    .UsedRange.Copy
    .[A1].PasteSpecial Paste:=xlPasteValues
    .Shapes(1).Delete
  End With
  zSh.Copy after:=.Sheets(1)
  With ActiveSheet
    .UsedRange.Copy
    .[A1].PasteSpecial Paste:=xlPasteValues
    .Shapes(1).Delete
  End With
  .SaveAs iPath & NewName: .Close True
  
End With: Set ibook = Nothing
End Sub