kimbal

¦^´_ 1# Blade

1. Sub SaveAS()
   
2. ¬O§_¥t¦s·sÀÉ = MsgBox("¬O§_¥t¦s·sÀÉ?", vbYesNo)
   
3. If ¬O§_¥t¦s·sÀÉ = vbYes Then
   
4.     File = Application.Range("D6")
   
5.     Name = Application.Range("M7")
   
6.     ActiveWorkbook.SaveAS Filename:=File & "-" & Name & ".xlsm"
   
7. End If
   
8. End Sub

½Æ»s¥N½X

Excel 2010¨î§@PDF

1. Sub PrintPDF()
   
2. ¬O§_¥t¦s·sÀÉ = MsgBox("¬O§_¥Î·í«e­¶¨î§@PDF?", vbYesNo)
   
3. If ¬O§_¥t¦s·sÀÉ = vbYes Then
   
4.     File = Application.Range("D6")
   
5.     Name = Application.Range("M7")
   
6.    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
   
7.         File & "-" & Name & ".pdf", Quality:=xlQualityStandard, _
   
8.         IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
   
9. End If
   
10. 
    
11. End Sub

½Æ»s¥N½X