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

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

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

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

1ªÅ¥Õ³ø»ù³æ.rar (50.07 KB)
  1. Sub EX()
  2. Set xSh = Sheets("³ø»ù³æ")
  3. Set zSh = Sheets("½Ð´Ú³æ")

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

  11. End With: Set ibook = Nothing


  12. End Sub
½Æ»s¥N½X
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

¥»©«³Ì«á¥Ñ n7822123 ©ó 2019-11-23 01:55 ½s¿è

¦^´_ 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
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 2# n7822123
¤Ó·PÁ¤F¡C
­ì¨Ó§Ú§â²³æªº¨Æ½ÆÂø¤Æ¤F
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

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
¡@
¡@
¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×

TOP

¥»©«³Ì«á¥Ñ kkooo15 ©ó 2019-11-24 02:15 ½s¿è

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

·sÂI°}¹Ï¼v¹³.png
2019-11-24 02:13

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

1ªÅ¥Õ³ø»ù³æ.rar (50.46 KB)
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

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


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

TOP

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


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

TOP

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

§Úªº¬O2010
¥Î²Ä¤@­Óµ{¦¡½X·|¸õ¥X³o¼Ë
1574817057762.jpg
2019-11-27 09:49

²Ä¤G­Ó´N¥¿±`..
excel¾Ç²ß¤¤!¿v¥X¹Ú·Q
https://www.youtube.com/channel/UCPAiRNsHX3k_omp0YDgfDiA

TOP

        ÀR«ä¦Û¦b : ÀR§¤±`®¦¤v¹L¡B¶¢½Í²ö½×¤H«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD