Question

我需要帮助我正在制作的发票。我已经创建了一个数字类型的文本表单字段并为其添加了书签。我想在退出时运行一个宏来读取表单字段中的数字，向它添加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

Answer 1

转到VBA编辑器（Alt-F11）并双击左侧窗格中的“ThisWorkbook”。

然后粘贴以下代码：

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，它将运行您的宏，但您可以将Range参数更改为您要监视的另一个字段（或多个字段）。

向表单字段添加税

1 个答案: