在Excel中添加macros的值

我想在Excel中创build一个表来pipe理我的钱。 我想通过点击一个button（“insert import”）来插入货币导入。 比Excel必须创build一个新的行，select正确的单元格，并期望我想要插入的值。

我试图通过注册一个macros来自己做; 但我不能告诉Excel期待我的价值观。

我的期望：我想创build一个macros，从一个button创build一个新的行插入两个值，“信息”和“导入”。 信息是金钱的来源; import是货币的价值。 比Excel等我编译“info”单元格。 一旦编译完成，我按回车键，Excel进入“导入”单元格; 比Excel再等我编译“导入”单元格。 比我按回车键，我完成了操作。 结果是一行与我的价值观和操作的date。

我能怎么做？

在这里我插入macros的代码：

Sub Macro5() Rows("3:3").Select Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range("A3").Select ActiveCell.FormulaR1C1 = "" Range("C3").Select ActiveCell.FormulaR1C1 = "" Range("E3").Select ActiveCell.FormulaR1C1 = "1/6/2016 20:41" Range("F5").Select End Sub 

正如你所看到的，这段代码是没有用的，因为它只是活动单元而不问我想写什么。而且，当我运行macros时date不会更新。

Answer 1

您可以根据需要编辑此代码：

 Sub test() Dim mInfoCol As String Dim mImportCol As String Dim mDateCol As String Dim mRow As Long mInfoCol = "A" mImportCol = "C" mDateCol = "E" mRow = 3 Rows(mRow).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove Range(mInfoCol & mRow).Value = InputBox("info?", , "some info") Range(mImportCol & mRow).Value = InputBox("import?", , "200") Range(mDateCol & mRow).Value = Now() End Sub