vba - VBA フォームは入力を受け取り、Excel ワークシートに保存します

Question

VBA でユーザーフォームを実行するとエラーが発生します。複数のテスト変数の入力を受け取るために、VBA でユーザーフォームを作成しました。ユーザーが「CommandBUtton2」ボタンをクリックして、データを Excel のワークシートに保存したいと考えています。新しいテストデータでワークシートを更新し続けるには、データを保存した後にフォームをクリアできる必要があります。
UserForm1 は入力を受け取り、UserForm2 に切り替えるボタンがあります。UserForm2 は入力を受け取り、送信するボタンがあります (入力されたデータを Excel ワークシートに保存する必要があります。笑) Module1 コード:

' Code behind Module1 to store public values
Public myText1 As String
Public myText2 As String
Public myText3 As String
Public myText4 As String
Public myText5 As String
Public myText6 As String
Public myText7 As String
Public myText8 As String
Public myText9 As String
Public myText10 As String
Public myText11 As String
Public myText12 As String
Public myText13 As String
Public myText14 As String
Public myText15 As String
Public myText16 As String
Public myText17 As String
Public myText18 As String
Public myText19 As String
Public myText20 As String
Public myText21 As String
Public myText22 As String
Public myText23 As String
Public myText24 As String
Public myText25 As String
Public myText26 As String
Public myText27 As String
Public myText28 As String
Public myText29 As String
Public myText30 As String
Public myText31 As String
Public myText32 As String
Public myText33 As String
Public myText34 As String
Public myText35 As String
Public myText36 As String
Public myText37 As String
Public myText38 As String
Public myText39 As String
Public myText40 As String
Public myText41 As String
Public myText42 As String
Public myText43 As String
Public myText44 As String
Public myText45 As String
Public myText46 As String
Public myText47 As String
Public myText48 As String
Public myText49 As String
Public myText50 As String
Public myText51 As String
Public myText52 As String
Public myText53 As String
Public myText54 As String
Public myText55 As String
Public myText56 As String
Public myText57 As String
Public myText58 As String
Public myText59 As String
Public myText60 As String
Public myText61 As String
Public myText62 As String
Public myText63 As String
Public myText64 As String
Public myText65 As String
Public myText66 As String
Public myText67 As String
Public myText68 As String
Public myText69 As String
Public myText70 As String
Public AdditionalNotes As String

' Code behind Module1 to actually use the values
Public Sub PrintVals()
   'Assign a macro to the OK button
   Dim emptyRow As Long
  'Make Sheet2 Active
   Sheets(2).Activate
   'Determine emptyRow
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
  'Export Data to worksheet
  Cells(emptyRow, 1).Value = myText1
  Cells(emptyRow, 2).Value = myText2
  Cells(emptyRow, 3).Value = myText3
Cells(emptyRow, 4).Value = myText4
Cells(emptyRow, 5).Value = myText5
Cells(emptyRow, 6).Value = myText6
Cells(emptyRow, 7).Value = myText7
Cells(emptyRow, 8).Value = myText8
Cells(emptyRow, 9).Value = myText9
Cells(emptyRow, 10).Value = myText10
Cells(emptyRow, 11).Value = myText11
Cells(emptyRow, 12).Value = myText12
Cells(emptyRow, 13).Value = myText13
Cells(emptyRow, 14).Value = myText14
Cells(emptyRow, 15).Value = myText15
Cells(emptyRow, 16).Value = myText16
Cells(emptyRow, 17).Value = myText60 
Cells(emptyRow, 18).Value = myText17
Cells(emptyRow, 19).Value = myText61 
Cells(emptyRow, 20).Value = myText18
Cells(emptyRow, 21).Value = myText62 
Cells(emptyRow, 22).Value = myText19
Cells(emptyRow, 23).Value = myText20
Cells(emptyRow, 24).Value = myText21
Cells(emptyRow, 25).Value = myText22
Cells(emptyRow, 26).Value = myText23
Cells(emptyRow, 27).Value = myText24
Cells(emptyRow, 28).Value = myText25
Cells(emptyRow, 29).Value = myText63 
Cells(emptyRow, 30).Value = myText26
Cells(emptyRow, 31).Value = myText64 
Cells(emptyRow, 32).Value = myText27
Cells(emptyRow, 33).Value = myText65 
Cells(emptyRow, 34).Value = myText28
Cells(emptyRow, 35).Value = myText29
Cells(emptyRow, 36).Value = myText30
Cells(emptyRow, 37).Value = myText31
Cells(emptyRow, 38).Value = myText32
Cells(emptyRow, 39).Value = myText33
Cells(emptyRow, 40).Value = myText34
Cells(emptyRow, 41).Value = myText66 
Cells(emptyRow, 42).Value = myText35
Cells(emptyRow, 43).Value = myText67 
Cells(emptyRow, 44).Value = myText36
Cells(emptyRow, 45).Value = myText37
Cells(emptyRow, 46).Value = myText38
Cells(emptyRow, 47).Value = myText68 
Cells(emptyRow, 48).Value = myText39
Cells(emptyRow, 49).Value = myText40
Cells(emptyRow, 50).Value = myText41
Cells(emptyRow, 51).Value = myText42
Cells(emptyRow, 52).Value = myText43
Cells(emptyRow, 53).Value = myText44
Cells(emptyRow, 54).Value = myText45
Cells(emptyRow, 55).Value = myText46
Cells(emptyRow, 56).Value = myText47
Cells(emptyRow, 57).Value = myText48
Cells(emptyRow, 58).Value = myText49
Cells(emptyRow, 59).Value = myText50
Cells(emptyRow, 60).Value = myText51
Cells(emptyRow, 61).Value = myText52
Cells(emptyRow, 62).Value = myText53
Cells(emptyRow, 63).Value = myText69 
Cells(emptyRow, 64).Value = myText54
Cells(emptyRow, 65).Value = myText55
Cells(emptyRow, 66).Value = myText56
Cells(emptyRow, 67).Value = myText57
Cells(emptyRow, 68).Value = myText70 
Cells(emptyRow, 69).Value = myText58
Cells(emptyRow, 70).Value = AdditionalNotes

サブ終了

' Code behind Form1 Initialize text boxes
Private Sub UserForm1_Initialize(UserForm1)
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""
TextBox19.Value = ""
TextBox20.Value = ""
TextBox21.Value = ""
TextBox22.Value = ""
TextBox23.Value = ""
TextBox24.Value = ""
TextBox25.Value = ""
TextBox26.Value = ""
TextBox27.Value = ""
TextBox28.Value = ""
TextBox29.Value = ""
TextBox30.Value = ""
TextBox31.Value = ""
TextBox33.Value = ""
TextBox34.Value = ""
TextBox35.Value = ""
TextBox36.Value = ""
TextBox37.Value = ""
TextBox38.Value = ""
TextBox39.Value = ""
TextBox40.Value = ""
TextBox41.Value = ""
TextBox42.Value = ""
TextBox43.Value = ""
TextBox44.Value = ""
TextBox45.Value = ""
TextBox46.Value = ""
TextBox47.Value = ""
TextBox48.Value = ""
TextBox49.Value = ""
TextBox50.Value = ""
TextBox51.Value = ""
TextBox52.Value = ""
TextBox53.Value = ""
TextBox54.Value = ""
TextBox55.Value = ""
TextBox56.Value = ""
TextBox57.Value = ""
TextBox58.Value = ""
TextBox59.Value = ""
'Good values
TextBox60.Value = "14" 
TextBox61.Value = "Responds" 
TextBox62.Value = "00 00 00 00 00 00 00 00" 
TextBox63.Value = "< 0.005"
TextBox64.Value = "4.5" 
TextBox65.Value = "2" 
TextBox66.Value = "100" 
TextBox67.Value = "11-16" 
TextBox68.Value = "5" 
TextBox69.Value = "6" 
TextBox70.Value = "10-11" 
End Sub

 Private Sub UserForm2_Initialize(UserForm2)
'Empty Additional Notes
TextBoxAdditionalNotes.Value = ""
End Sub

' Code behind Form1 Set variables on module
Private Sub CommandButton1_Click(UserForm1)
Module1.myText1 = TextBox1.Value
Module1.myText2 = TextBox2.Value
Module1.myText3 = TextBox3.Value
Module1.myText4 = TextBox4.Value
Module1.myText5 = TextBox5.Value
Module1.myText6 = TextBox6.Value
Module1.myText7 = TextBox7.Value
Module1.myText8 = TextBox8.Value
Module1.myText9 = TextBox9.Value
Module1.myText10 = TextBox10.Value
Module1.myText11 = TextBox11.Value
Module1.myText12 = TextBox12.Value
Module1.myText13 = TextBox13.Value
Module1.myText14 = TextBox14.Value
Module1.myText15 = TextBox15.Value
Module1.myText16 = TextBox16.Value
Module1.myText17 = TextBox17.Value
Module1.myText18 = TextBox18.Value
Module1.myText19 = TextBox19.Value
Module1.myText20 = TextBox20.Value
Module1.myText21 = TextBox21.Value
Module1.myText22 = TextBox22.Value
Module1.myText23 = TextBox23.Value
Module1.myText24 = TextBox24.Value
Module1.myText25 = TextBox25.Value
Module1.myText26 = TextBox26.Value
Module1.myText27 = TextBox27.Value
Module1.myText28 = TextBox28.Value
Module1.myText29 = TextBox29.Value
Module1.myText30 = TextBox30.Value
Module1.myText31 = TextBox31.Value
Module1.myText32 = TextBox32.Value
Module1.myText33 = TextBox33.Value
Module1.myText34 = TextBox34.Value
Module1.myText35 = TextBox35.Value
Module1.myText36 = TextBox36.Value
Module1.myText37 = TextBox37.Value
Module1.myText38 = TextBox38.Value
Module1.myText39 = TextBox39.Value
Module1.myText40 = TextBox40.Value
Module1.myText41 = TextBox41.Value
Module1.myText42 = TextBox42.Value
Module1.myText43 = TextBox43.Value
Module1.myText44 = TextBox44.Value
Module1.myText45 = TextBox45.Value
Module1.myText46 = TextBox46.Value
Module1.myText47 = TextBox47.Value
Module1.myText48 = TextBox48.Value
Module1.myText49 = TextBox49.Value
Module1.myText50 = TextBox50.Value
Module1.myText51 = TextBox51.Value
Module1.myText52 = TextBox52.Value
Module1.myText53 = TextBox53.Value
Module1.myText54 = TextBox54.Value
Module1.myText55 = TextBox55.Value
Module1.myText56 = TextBox56.Value
Module1.myText57 = TextBox57.Value
Module1.myText58 = TextBox58.Value
Module1.myText59 = TextBox59.Value
Module1.myText60 = TextBox60.Value
Module1.myText61 = TextBox61.Value
Module1.myText62 = TextBox62.Value
Module1.myText63 = TextBox63.Value
Module1.myText64 = TextBox64.Value
Module1.myText65 = TextBox65.Value
Module1.myText66 = TextBox66.Value
Module1.myText67 = TextBox67.Value
Module1.myText68 = TextBox68.Value
Module1.myText69 = TextBox69.Value
Module1.myText70 = TextBox70.Value
Module1.AdditionalNotes = TextBoxAdditionalNotes.Value

UserForm2.Show
End Sub

' Code behind Form2 only calls module function
 Private Sub CommandButton2_Click(UserForm2)
 PrintVals
 End Sub

UserForm1 オブジェクトを実行すると、エラーは発生しませんが、commandbutton1 をクリックしても UserForm2 が表示されません

どんなヘルプ解決も大歓迎です! ありがとう！

score 0 · Accepted Answer

public は VBA Forms では非常に異常です。TextBox のようなコントロールは、他のフォームからパブリックに表示できます。たとえば、UserForm1 は UserForm2 のテキストボックスの値を確認でき、その逆も同様です。したがって、テキストボックスが両方のフォームケースに存在する場合、次のように機能します。

' Is the button that launches the second form
Private Sub CommandButton1_Click()
  UserForm2.TextBox1.Value = Me.TextBox1.Value
  UserForm2.TextBox2.Value = Me.TextBox2.Value
  UserForm2.TextBox3.Value = Me.TextBox3.Value
  UserForm2.Show
End Sub

また、UserForm2 にテキストボックスが存在しない場合でも、UserForm2 は次のように UserForm1 のテキストボックスから直接値にアクセスできるはずです。

Private Sub CommandButton1_Click()
   'Assign a macro to the OK button
   Dim emptyRow As Long
   'Make Sheet2 Active
   Sheets(2).Activate
   'Determine emptyRow
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
   'Export Data to worksheet  
   Cells(emptyRow, 1).Value = UserForm1.TextBox1.Value
End Sub

しかし、多くの場合、代わりに共有コンテンツをモジュールに配置するのが最も便利です。このようにして、パブリック変数は他のすべてのフォーム、モジュールなどから直接見えるようになります。

' Code behinde Module1 to store public values
Public myText1 As String
Public myText2 As String

' Code behind Module1 to actually use the values
Public Sub PrintVals()
   'Assign a macro to the OK button
    Dim emptyRow As Long
    'Make Sheet2 Active
   Sheets(2).Activate
   'Determine emptyRow  
   emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
   'Export Data to worksheet
   Cells(emptyRow, 1).Value = myText1
   Cells(emptyRow, 2).Value = myText2
End Sub

' Code behind Form1 Initialize text boxes
Private Sub Form_Initialize()
    TextBox1.Value = "1234"
    TextBox2.Value = "ABC"
End Sub

End Sub

' Code behind Form1 Set variables on module
Private Sub CommandButton1_Click()
   Module1.myText1 = TextBox1.Value
   Module1.myText2 = TextBox2.Value
   UserForm2.Show
End Sub

' Code behind Form2 only calls module function
Private Sub CommandButton1_Click()
  PrintVals
End Sub

[数回の投稿後に編集]

現在のコードを含まない新しい Excel ファイルを開始してみてください。2 つの新しいフォームを作成します。UserForm1 にテキストボックスを 3 つだけ追加し、フォーム 1 とフォーム 2 の両方にコマンドボタンを 1 つ追加します。上記のソリューションのコードだけから始めます。そして、それを機能させることができるかどうかを確認してください。それが機能する場合は、上記のコードとあなたのコードの違いを見つけ出し、可能であればそれらの違いを取り除くか、必要なすべてのテキストボックスが表示されるまで実際の例を肉付けすることができます。それが機能しない場合は、Excel のバージョン間で何かが異なるか、そのような基本的なものがある可能性があります。

私のプロジェクトウィンドウは次のようになります。

プロジェクトウィンドウ

したがって、ここでおそらく重要なことは、すべてのフォームが 1 つの Book の一部であるということです。フォームが別の本にある場合は、それを処理するためにコードを変更する必要があります。

vba - VBA フォームは入力を受け取り、Excel ワークシートに保存します

1 に答える 1

Related

Reference