Vba 向表单字段添加税

我需要帮忙开发票。 我创建了一个数字类型的文本表单字段，并将其添加到书签中。 我想在退出时运行一个宏，读取表单字段中的数字，向其添加5%，然后将新数字放入表单字段

这是我对解决方案的猜测：

Sub Five()
'
' Five Macro
' Add 5% to the Unit Price
'
    Dim CurrentCell As Currency
    Const Percent = 1.05
    Set CurrentCell = ActiveCell.CurrentRegion.SelectCell
    Set CurrentCell = (CurrentCell * Percent)
    Options.ReplaceSelection = True
    With Selection
        .TypeText Text:=CurrentCell
        .TypeParagraph
    End With
End Sub

---

转到VBA编辑器Alt-F11并双击左侧窗格中的此工作簿

然后粘贴以下代码：

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Not Intersect(Target, Range("A1:A1")) Is Nothing Or Target.Cells.Count > 1 Then
    Exit Sub
End If

Five
End Sub

此代码将在选择更改时运行，即当您离开某个字段时

---

如前所述，如果您离开单元格A1，它将运行您的宏，但您可以将范围参数更改为要监视的另一个或多个字段。

当您说要在退出时运行宏时，您的意思是在文档关闭时运行宏吗？从您的VBA中，我会说这是一个Excel问题。如果是这样，您需要重新标记问题。无论哪种方式，请明确说明您使用的表单类型