输入按钮具有默认值

Question

我有一张包含3张工作表的工作簿。

1. 基思4月份每月预算
2. 网络链接
3. CT扫描

我创建了一个Button去网站支付账单 这是它

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列，Date “A4”，Owed”B4”，Balance Left “C4”，Payed this month “D4”和{{1} }。

我需要一个输入按钮，这样我就可以输入一个输入框来支付25美元或更高的金额，然后将它放在Payments Made “E4”的下一个空白框中。顺便说一下，“Balance Left”栏目链接到 （ ““D4””）

Answer 1

将以下宏指定给该按钮。

Sub test()

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

End Sub