向表單字段添加稅款

我需要我正在製作的發票的幫助。我已經創建了一個數字類型的文本表單域併爲其添加書籤。我想在退出時讀取表單字段中的數字，向其中添加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

來源

2013-11-22 user3023607

謝謝jmoerdyk – user3023607

當你說你想在退出時運行宏，你的意思就像文檔被關閉一樣嗎？ – Blackhawk

從你有VBA，我會說這是一個Excel問題。如果是這樣，你需要重新標記問題。無論哪種方式，請明確說明您使用的是什麼類型的「表格」 – 2013-11-23 10:07:18

轉到左側窗格中的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參數更改爲您要監視的另一個字段（或多個字段）。

來源

2013-11-23 03:42:08 grantnz

向表單字段添加稅款

回答

相關問題