0

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

  1. MS Date and Time Picker
  2. TextBox1for Amount（仅针对数值验证 - 工作正常）
  3. OptionButton1为了Cash
  4. OptionButton2为了Cheque
  5. TextBox2用于人名Paid To（也许我可以将其更改为 ComboBox？）
  6. TextBox3for Paid For（可以输入任何值）
  7. ComboBox1对于Sub Category（列表在 Worksheet2（列表）中 - 工作正常）
  8. TextBox4for Remarks（可以输入任何值）
  9. CommandButton1将数据添加到 Worksheet3（数据库）
  10. CommandButton2显示“数据库”工作表
  11. CommandButton3关闭表格（工作正常）

ACommandButton也在 Sheet1(Form) 中打开表单（工作正常）。

我想将数据输入表单并将此数据填充到 Worksheet3（数据库），如 Date(B3)、Paid To(C4)、Paid For(D4)、Sub Category(E4)、Remarks(G4)、Amount(H4)。

(F4) 是免费的VLOOKUP。

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

任何人都可以帮助我使用适当的代码来做到这一点吗？

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

4

1 回答 1

1

在您问题的第一部分，这取决于您是要在单击按钮时填充 worksheet3 还是在将数据输入表单时动态填充。我假设是前者，因为大多数表单上都有 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...

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

希望这是有道理的！

于 2012-07-10T12:02:06.453 回答