양식 필드에 세금 추가

제가 만드는 인보이스에 대한 도움이 필요합니다. 숫자 형식의 텍스트 양식 필드를 만들고 북마크했습니다. 양식 필드의 숫자를 읽고 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 질문입니다. 그렇다면 질문의 태그를 다시 지정해야합니다. 어느 쪽이든, 정확히 어떤 유형의 "양식"을 사용하고 있는지 분명히 밝혀주십시오. –

가 왼쪽 창에 "에서 ThisWorkbook"에 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을 벗어나지 만 범위 인수를 모니터링 할 다른 필드 (들)로 변경할 수 있으면 작성된 것처럼 매크로가 실행됩니다.

출처

2013-11-23 03:42:08 grantnz

양식 필드에 세금 추가

답변

관련 문제