输入按钮与默认

我有一个工作簿，有3张工作表。输入按钮与默认

Keith的四月每月预算
网页链接
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列，Date “A4”,Owed”B4”,Balance Left “C4”,Payed this month “D4”和Payments Made “E4”。

我需要一个输入按钮，它可以让我制作一个输入框来支付25美元或更多的费用，并将它从“D4”下放到下一个空白框中。顺便说一句，列“平衡左”被链接到（“Keith's April Monthly Budget”）

来源

2013-06-12 keith pitts

我加了'vb6'标签。如果不正确，请添加正确的语言标签 – vidit

@vidit抱歉，我在编辑时添加了标签。我将它更改为vba，因为它似乎与Workbook相关（又名Excel） – DigCamara

指定下列宏到按钮。

Sub test() 

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

End Sub

来源

2013-06-12 16:47:44 Transformer

输入按钮与默认

回答

相关问题