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

這應該涵蓋了您的很多問題。 如果您還有其他信息，請告訴我，我將添加到帖子中。