从VAB数据输入表单填充工作表中的数据

Question

在VBA中几乎为0的知识，我创建了一个数据表单来输入每日凭证：

1. MS Date and Time Picker
2. TextBox1用于Amount(仅针对数值验证 - 工作正常(
3. OptionButton1 Cash
4. OptionButton2 Cheque
5. TextBox2为Paid To人的名字(也许我可以将其更改为组合框？
6. Paid For TextBox3(可以输入任何值(
7. Sub Category ComboBox1(列表在工作表2(列表(中 - 工作正常(
8. Remarks TextBox4(可以输入任何值(
9. CommandButton1将数据添加到工作表3(数据库(
10. CommandButton2显示"数据库"工作表
11. CommandButton3关闭表单(工作正常(

工作表1(表单(中也有一个CommandButton来打开表单(工作正常(。

我想将数据输入到表单中并将此数据填充到工作表3(数据库(中 Date (B3(、Paid To (C4(、Paid For (D4(、Sub Category (E4(、Remarks (G4(、Amount (H4(。

(F4( 免费VLOOKUP .

我还想在表格中有一个数据编辑选项，该选项可能带有自动生成的带有召回选项的凭证编号。

任何人都可以帮助我使用适当的代码来执行此操作吗？

注意：我正在使用Office 2007创建，但也想在XP Professional中使用它

Answer 1

在问题的第一部分，这取决于您是要在单击按钮时填充工作表3，还是在将数据输入表单时动态填充工作表3。 我假设是前者，因为大多数表单上都有 OK 按钮。 如果是这种情况，那么您可以根据按钮单击编写一个子例程，举一个简单的例子：

Private Sub Enter_Details_OK_Click()
  Sheets("worksheet3").Range("B3").Value = Calendar1.Value 
'Change Calendar1 to the value of your date/time object and change "worksheet3" to the actual name of your worksheet.
  Sheets("worksheet3").Range("C4").Value = TextBox2.Value
'...and so on...

您基本上是将每个文本框中的值传输到各个单元格中。 我不确定您对问题的第二部分是什么意思，这需要进一步澄清。

希望这是有道理的！