VBA中的Excel数据输入表单

Question

我对VBA还是很陌生，一直在努力尝试解决这个问题，但是没有运气。

我正在尝试制作一个弹出的表单，并要输入许多不同的字段，然后在提交表单时，将信息输入到单独的特定单元格中。 同样，一旦信息输入到单元格中，则需要打印该信息以备记录。 最后要添加的一件事是，如果某些字段在表单上为空，则我需要将其消失，以便不打印它们。

我对此有很多字段，而我发现的所有内容就是如何插入新行。 如果能够做到这一点，将对我有很大帮助。 如果有人可以指出正确的方向，那么我也许可以自己弄清楚一些东西，因为我相当懂HTML，因此可以进行一些编码。

我必须输入的字段：

Deposited By:
Number of Deposits:
Total Checks:
Electronic Deposit Number:
Electronic Deposit Number:
Manual Deposit Number:
Deposit Amount:
Deposit Amount:
Deposit Amount:
Houston Depos:
Dallas Depos:
Austin Depos:
Houston Video:
Dallas Video:
Austin Video:
Houston Records:

每当打开电子表格时，我还需要添加一个按钮或使表单弹出，以便可以输入信息，但我认为这样可能会更容易理解。 除了使用页面上已经存在的信息预填充表单之外，还可以对其进行编辑。

Answer 1

我将尝试回答您的一些问题，希望您可以编写一些自己的代码：

每当打开电子表格时，都会弹出表单（放置在ThisWorkbook代码中）：

Private Sub Workbook_Open()
    UserForm1.Show
End Sub

您还可以在工作表中添加一个按钮，并为其分配使用UserForm1.Show的宏。

要使用表单中的信息预先填写表单，请使用以下命令（放置在UserForm代码中：

Private Sub UserForm_Initialize()
    txtDepositedBy.Text = Sheets("Sheet1").Range("A2")
End Sub

要打印工作表，请使用Sheets.PrintOut方法：

ActiveSheet.PrintOut
'or
Sheets("Sheet3").PrintOut

它具有以下输入：

.PrintOut(From, To, Copies, Preview, ActivePrinter, PrintToFile, Collate, PrToFileName, IgnorePrintAreas)

要从文本框和其他元素中获取输入，可以使用以下命令：

ActiveSheet.Range("A1").Value = TextBox1.Text
'or
Sheets("Sheet3").Range("B2").Value = ComboBox1.Text

这应该涵盖了您的很多问题。 如果您还有其他信息，请告诉我，我将添加到帖子中。