10

ドキュメントを保存する直前に、マクロを呼び出す方法を探し回っています。これを見つけましたが、コードをその中に入れても何もしません。だから私は何かが欠けていると思います。

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 
4

1 に答える 1

25

ThisWorkbookモジュールにコードを配置します

ここにコードを配置します

于 2012-09-11T08:33:11.930 に答える