Question

我想在Excel中创建一个表来管理我的钱。我想通过单击按钮（“插入导入”）来插入钱导入;比Excel必须创建一个新行，选择正确的单元格并期望我想要插入的值。

我已经尝试通过注册宏来自己完成;但我无法告诉Excel期待我的价值观。

我的期望：我想创建一个宏，从一个按钮创建一个按钮，该按钮创建一个新行，用于插入两个值“info”和“import”。信息是货币的衍生;进口是货币的价值。比Excel等我编译“信息”单元格。编译完成后，按Enter键，Excel进入“导入”单元格;比Excel再次等我编译“导入”单元格。比我按回车，我完成了操作。结果是一行包含我的值和操作日期。

我该怎么办？

这里我插入宏的代码：

    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

正如您所看到的，这段代码没用，因为它只是活动单元格而不询问我想要写什么。更重要的是，当我运行宏时，日期不会更新。

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

使用Excel在

1 个答案: