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

¥t¦s·sÀÉ«á²M°£¤½¦¡&¥¨¶°

¥t¦s·sÀÉ«á²M°£¤½¦¡&¥¨¶°

¤j®a¦n,


·Q½Ð±Ð¤@¤U,  §Ú¤å¥ó¥t¦s·sÀÉ«á, ¦³´X­Ó°Ê§@·Q°µ, ¦ý¤£ª¾¹D­n«ç»ò¦b·sªºEXCELªí¤¤³]

1.  §R°£©Ò¦³¤½¦¡&¥¨¶°
2.  §R°£Äæ¦ì Y20~AA20

¥ý·PÁ¦U¦ì¤F

TEST1.rar (26.33 KB)

TEST1.rar (26.33 KB)

¦^´_ 1# yc1031
¥t¦s "Report" ¤u§@ªí
  1. Sub Test()
  2.   Dim wbNew As Workbook
  3.   Set wbNew = Workbooks.Add
  4.   
  5.   ThisWorkbook.Sheets("Report").Copy Before:=wbNew.Sheets(1)
  6.   With wbNew.Sheets(1)
  7.     .UsedRange.Value = .UsedRange.Value
  8.     .[Y20:AA20].Delete Shift:=xlShiftToLeft
  9.   End With
  10. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 2# stillfish00


   
¤Q¤À·PÁ±zªº¦^ÂÐ!

§Ú­è¦³´ú¸Õ¦¨¥\¤F
·Q¦A½Ð°Ý¤@¤U  ThisWorkbook.Sheets("Report").Copy Before:=wbNew.Sheets(1)
³o­ÓwbNew.Shhets  copy¥X¨Ó¥H«á,³o­Ó·sªºÀɦW­Y¬O­n¥H z20 Äæ¦ìªº¸ê®Æ¬°ÀɦWªº¸Ü, Åý«ç»ò³]©O?

TOP

¦^´_ 3# yc1031
  1. Sub Test()
  2.   Dim wbNew As Workbook, name As String
  3.   Set wbNew = Workbooks.Add
  4.   
  5.   ThisWorkbook.Sheets("Report").Copy Before:=wbNew.Sheets(1)
  6.   With wbNew.Sheets(1)
  7.     .UsedRange.Value = .UsedRange.Value
  8.     name = .[Z20]
  9.     .[Y20:AA20].Delete Shift:=xlShiftToLeft
  10.     .SaveAs ThisWorkbook.Path & Application.PathSeparator & name
  11.   End With
  12. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

¦^´_ 4# stillfish00


  
¯uªº«ÜÁÂÁ±z!

³o­Ó¥¨¶°¤Ó¦n¥Î¤F~ ¥i¥HÀ³¥Î¦b«Ü¦h¦a¤è, ¦A¦¸ÁÂÁÂ~

TOP

¦^´_ 4# stillfish00


±z¦n,  §Ú¦³¤G­Ó¨BÆJ, ¦ý¤£ª¾¹D«ç»ò¦X¨Ö,  ¯à½Ð°Ý¸Ó«ç»ò§ï¶Ü?  ·PÁÂ!

1. §Ú¦b®à­±«Ø¥ß¦³«ü©w¦WºÙªºªÅ¸ê®Æ§¨,  OK
2. «Ø¥ß¤å¦rÀÉ«á, ¥t¦s·sÀÉ¥B«ü©w¦WºÙªºEXCELÀÉ,   OK
3. ³o­ÓEXCEL ÀÉ, §Ú·Q©ñ¶i³o­ÓªÅ¸ê®Æ§¨(©Î¨ä¥¦«ü©wªº¸ê®Æ§¨) ,  ³o¸Ì¤£ª¾¹D«ç»ò§ï........  



Sub AddFolder()

On Error Resume Next
MkDir (ThisWorkbook.Path & "/" & Range("I3"))
On Error GoTo 0
Dim wbNew As Workbook, name As String
Set wbNew = Workbooks.Add
ThisWorkbook.Sheets("SI").Copy Before:=wbNew.Sheets(1)
With wbNew.Sheets(1)
.UsedRange.Value = .UsedRange.Value
name = "SI -" & .[L12]
.[P1:Q100].Delete Shift:=xlShiftToLeft
.SaveAs ThisWorkbook.Path & Application.PathSeparator & name

End With
End Sub




test.rar (163.8 KB)

TOP

¦^´_ 6# yc1031
  1. Sub AddFolder()
  2.   Dim folder As String
  3.   Dim wbNew As Workbook, name As String
  4.   
  5.   With ActiveSheet  '·í«e¤u§@ªí
  6.     folder = ThisWorkbook.path & Application.PathSeparator & .Range("k12")  '¦sÀɸê®Æ§¨¸ô®|
  7.     If Dir(folder, vbDirectory) = "" Then MkDir folder  '¸ê®Æ§¨¤£¦s¦b«h«Ø¥ß

  8.     Set wbNew = Workbooks.Add   '·s¼W¤u§@ï
  9.     .Copy Before:=wbNew.Sheets(1) '½Æ»s¨ì·s¤u§@諸³Ì«e­±
  10.   End With
  11.   
  12.   With wbNew.Sheets(1)  '·s¤u§@ï²Ä¤@­Ó¤u§@ªí
  13.     .UsedRange.Value = .UsedRange.Value   '¨Ï¥Î¨ìªº½d³ò­«·s½á­È(¬°¤F²M°£¤½¦¡)¡A©Î¬O ½Æ»s>¶K¤W­È
  14.     name = "SI -" & .[k12]  'ÀɮשR¦W
  15.     .[P1:Q100].Delete Shift:=xlShiftToLeft  '§R°£¤£¥²­nÄæ¦ì
  16.     .Shapes("Oval 35").Delete    '·sªºÀɮײ¾°£³o­Ó©I¥s¥¨¶°ªº¹Ï®×
  17.     .SaveAs folder & Application.PathSeparator & name  '¥t¦s·sÀÉ
  18.     .Parent.Close '·s¤u§@ïÃö³¬
  19.   End With
  20.   MsgBox "¤w¶×¥X!"
  21. End Sub
½Æ»s¥N½X
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD