Excel 带有默认值的输入按钮

我有一本有3张工作表的工作簿

基思4月份的月度预算

网络链接

CT扫描

我创建了一个按钮去一个网站付账 就是这个

Sub Macro8()
'
' Macro8 Macro
'

'
    Sheets("Web Links").Select
    Range("A11").Select
    Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
    Sheets("Keith's April Monthly Budget").Select
End Sub

在“CT扫描”表中，我有4列，

日期“A4”

，

欠款“B4”

，

余额“C4”

，

本月支付的“D4”

和

支付的“E4”

我需要一个输入按钮，它允许我制作一个输入框来支付$25.00或更多，并将其放在

“D4”

下一个空白框中。顺便说一下，“左平衡”列链接到

---

（“

Keith的四月月度预算”

”

将以下宏分配给该按钮

Sub test()

    With ThisWorkbook.Worksheets("CT Scan")
        .Range("D" & .Rows.Count).End(xlUp) = InputBox("Enter the amount")
    End With

End Sub

---

我添加了

vb6

标记。如果不正确，请添加正确的语言tag@vidit抱歉，您添加标记时我正在编辑。我将其更改为vba，因为它似乎与工作簿相关（又称Excel）