2012-09-11 57 views
7

私はドキュメントを保存する直前にマクロを呼び出す方法を見てきました。私はこれを見つけましたが、コードを内部に置くと何もしません。だから私は何かが足りないと思う。Excel VBA - 保存する前にマクロを実行

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) 

Set shtVO = Sheets("Voice orders") 
endRowVO = shtVO.Range("E" & Rows.Count).End(xlUp).Row 

For Row = 11 To endRowVO 
    If IsEmpty(shtVO.Cells(Row, 23).Value) = False Then 
     If shtVO.Cells(Row, 3).Value <> shtVO.Cells(Row, 23) Then 
      If shtVO.Cells(Row, 1).Value Like "*MIG*" Then 
      Else 
       shtVO.Cells(Row, 1).Value = shtVO.Cells(Row, 1).Value + "MIG" 
      End If 
     End If 
    End If 
Next Row 

End Sub 
+1

あなたは 'ThisWorkbook'モジュールにこのコードを入れていますか? –

+0

何の中に?申し訳ありませんが、これはすべて新しいものです。 – CustomX

+0

何が問題なのですか?保存する前に何をしようとしていたのですか? – Passerby

答えて

20

ThisWorkbookモジュールに入れ、あなたのコードを

Place your code here

+0

デザインモードで作業中にWorkbook_BeforeSaveイベントが実行されないこともあるので、ブックを保存する前にデザインモードを終了してください。 –

関連する問題