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. ComboBox1for Sub Category（リストはWorksheet2（リスト）にあります-正常に動作しています）
  8. TextBox4for Remarks（任意の値を入力できます）
  9. CommandButton1Worksheet3（データベース）にデータを追加するには
  10. CommandButton2「データベース」ワークシートを表示するには
  11. CommandButton3フォームを閉じる（正常に動作）

ACommandButtonもSheet1（Form）にあり、フォームを開きます（正常に動作しています）。

フォームにデータを入力し、このデータを Date（B3）、Paid To（C4）、Paid For（D4）、Sub Category（E4）、Remarks（G4）、Amount（H4）のようにWorksheet3（データベース）に入力します。

（F4）は無料ですVLOOKUP。

また、リコールオプション付きの自動生成バウチャー番号を使用できるフォームのデータ編集オプションが必要です。

誰かがこれを行うための適切なコードを手伝ってくれますか？

注：Office 2007で作成していますが、XPProfessionalでも使用したいと考えています。

4

1 に答える 1

1

質問の最初の部分では、ボタンをクリックするだけでワークシート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...

基本的に、各テキストボックスからさまざまなセルに値を転送します。質問の2番目の部分で何を意味するのかわかりませんが、さらに明確にする必要があります。

これが理にかなっていることを願っています！

于 2012-07-10T12:02:06.453 に答える