スキルアップ・問題解決なら、モーグにおまかせ！

いつも大変お世話になっております。
下記のコードが標準モジュールに入っていますが、標準モジュールからユーザーフォーム1にあるテキストボックス１の値を受け渡したいのですが、このままではうまくいきません。
実行するとユーザーフォームのエディタ画面に飛んでしまいます。
標準モジュールからユーザーフォームに値を受け渡すことはできないのでしょうか？
 
 

Sub usf_access()
    UserForm1.TextBox1.Value = 3
End Sub

されたいことがよく分かりませんが、
Userform内のプロシージャーから
標準モジュールのプロシージャをCallする、
と考えるのがよいのでは？
使おうとしている主体はUserFormなんでしょう？

早速ご回答ありがとうございます。
 

引用:
使おうとしている主体はUserFormなんでしょう？

Private Sub userform_initialize()
    
    Call usf_access
    
End Sub

Call usf_access
にブレークポイントを置けば、そこで止まります。
その後、ステップ実行したらどうなりますか。
きちんと実行されませんか？

そのユーザーフォームは既に開いているのか、開いていないのか。
開いているならモーダルなのか、モードレスなのか。
その関数をどのタイミングでどこから呼び出しているのか。
 
上記の情報について提示してください。
それによって回答が異なりますので。
 
ちなみに既にモードレスが開いている状態なら、そのコードで問題なくTextBox1に代入できます。

ご回答ありがとうございます。
ユーザーフォームを下記のcall_usfをボタンに登録して呼び出しています。
call_usf2を作成して、ボタンに登録すると、テキストブックに３が入ったので、これが原因のようです。
call_usfのどこがいけないのでしょうか？
 

Sub call_usf()
    
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)
    UserForms.Add("UserForm" & b).Show

End Sub

Sub call_usf2()

    UserForm1.Show vbModeless

End Sub

標準モジュールの変数の値をユーザーフォームのテキストボックスなど、コントロールにセットする方法
には、幾つかの方法があります。
 
(1)最も簡単な方法・・・・だけ紹介します。
標準モジュール側で
変数をPublic属性にする
 
モジュールレベルで定義します。
【標準モジュール】
Public a As string
 
SUB Test()
   a = 3
   Useform1.Show
End Sub
 
【Userform1側】
Private Sub UserForm_Initialize()
    Me.TextBox1.Text = a
End Sub
 

ip8bk さんの引用:
ユーザーフォームを下記のcall_usfをボタンに登録して呼び出しています。

Sub call_usf()
    
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)
    UserForms.Add("UserForm" & b).Show

End Sub

引用:
Sub usf_access()
    UserForm1.TextBox1.Value = 3
End Sub

Suzu様
 
ご回答ありがとうございます。
いま確認中なのですか、ユーザーフォーム1、ユーザーフォーム2のどちらを開いても、テキストボックスに数字が入っていません。
 
コードは自分で作成しましたので、理解しているつもりです。
モジュールから呼び出しても、テキストボックスに値が入らないので、取り急ぎユーザーフォーム1に固定して、動作を確認しております。

hatena様
 
ご回答ありがとうございます。
返信遅くなりすみません。
 
 

引用:
そのユーザーフォームは既に開いているのか、開いていないのか。
開いているならモーダルなのか、モードレスなのか。
その関数をどのタイミングでどこから呼び出しているのか。
  
上記の情報について提示してください。
それによって回答が異なりますので。
  
ちなみに既にモードレスが開いている状態なら、そのコードで問題なくTextBox1に代入できます。

ip8bk さんの引用:
コードは自分で作成しましたので、理解しているつもりです。

UserForms.Add("UserForm1").Show
というコードでユーザーフォームを開いた場合、
UserForm1 というオブジェクト名では参照できません。
下記のようにUserForms.Addの返り値のオブジェクトを変数に代入して参照する必要があります。
 
標準モジュール
 

Dim usf1 As UserForm1

Sub call_usf()
    Set usf1 = UserForms.Add("UserForm1")
    usf1.Show
End Sub

Sub usf_access()
    usf1.TextBox1.Value = 3
End Sub

Dim usf1 As UserForm1
Dim usf2 As UserForm2

Sub call_usf()
    Dim a, b
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)
    Select Case b
    Case 1
        Set usf1 = UserForms.Add("UserForm1")
        usf1.Show
    Case 2
        Set usf2 = UserForms.Add("UserForm2")
        usf2.Show
    End Select
End Sub

Sub usf1_access()
    usf1.TextBox1.Value = 3
End Sub

Sub usf2_access()
    usf2.TextBox1.Value = 3
End Sub

Sub call_usf()
    Dim a, b
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)
    Select Case b
    Case 1
        UserForm1.Show
    Case 2
        UserForm2.Show
    End Select
End Sub

Sub usf1_access()
    UserForm1.Value = 3
End Sub

Sub usf2_access()
    UserForm2.Value = 3
End Sub

訂正
 
（誤）

Sub usf1_access()
    UserForm1.Value = 3
End Sub

Sub usf2_access()
    UserForm2.Value = 3
End Sub

Sub usf1_access()
    UserForm1.TextBox1.Value = 3
End Sub

Sub usf2_access()
    UserForm2.TextBox1.Value = 3
End Sub

引用:

Sub usf_access()
    UserForm1.TextBox1.Value = 3
End Sub

引用:

Private Sub userform_initialize()
    Call usf_access
End Sub

引用:
順番的にはユーザーフォームを開いた後にモジュールを呼び出しています。

皆様
ご回答ありがとうございます。
下記のUserForm1.Value = 3の続きにコードが50行ぐらいあります。
ユーザーフォームがいくつになっても共通して使えるコードなので、下記を1つにまとめたい、というのが今回の趣旨になります。
 

Sub usf1_access()
    UserForm1.Value = 3
End Sub

Sub usf2_access()
    UserForm2.Value = 3
End Sub

ip8bk さんの引用:
下記のUserForm1.Value = 3の続きにコードが50行ぐらいあります。
ユーザーフォームがいくつになっても共通して使えるコードなので、下記を1つにまとめたい、というのが今回の趣旨になります。

説明が遅くなり申し訳ございません。
下記回答させていただきます。
よろしくお願いいたします。
 
 

引用:
でユーザーフォームはいくつぐらいになる予定ですか。
また、そのユーザーフォームはすべて構成や役割が異なるのですか。

引用:
また、そのユーザーフォームはモーダルですか。モードレスですか。

引用:
sf_access()を呼び出すのは、ユーザーフォームを開く時ですか。それとも開いた後、なんからの処理か操作があった後ですか。

[quote]
１０個ぐらいになる予定です。テキストボックスの数が違うだけです。
２１個ずつ増えていきます。
[/quote]
 
ということは、ユーザーフォームにより
テキストボックスの個数がことなることになり、
対応して、標準モジュールに記述する変数も異なる
という論理でよいですか？
 
そのお論理で行くと
ユーザーモジュールに対対応して
usf_access
を10個作成・・・これを共通化したい？
ということですか？
 
それはそれとして
標準モジュールから
ユーザーモジュールを起動してから
initialize
が終了するまでの間に
ユーザーモジュールをアクセス（コントロールを参照する）すると
その時点で、「initialize」プロシジャが実行されます。
 
このことをきちんと理解することが先決です。
 
 
 

ご回答ありがとうございます。
  
 

引用:
ということは、ユーザーフォームにより
 テキストボックスの個数がことなることになり、
 対応して、標準モジュールに記述する変数も異なる
 という論理でよいですか？
   
そのお論理で行くと
 ユーザーモジュールに対対応して
usf_access
を10個作成・・・これを共通化したい？
ということですか？

Sub call_usf()
    
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)
    UserForms.Add("UserForm" & b).Show

End Sub

引用:

下記変数Bで、forで回す回数（for１回で21個分のテキストボックスに入力するコードにしています）、呼び出すユーザーフォームを特定しています。

引用:

Sub usf_access()
    UserForm1.TextBox1.Value = 3
End Sub

やりたいことをまとめると、
複数のユーザーフォームがある。
各フォームをモーダルで開く時に共通の処理を走らせたい。
その時にユーザーフォームのテキストボックスを参照したい。
ということでしょうか。
 
ということなら、call_usf でフォームを開いてそこに共通の処理を記述すればいいでしょう。
開くフォームは引数で渡します。
 
モーダルの場合、Showさせると参照できなくなりますので、Showする前に共通処理を走らせ、テキストボックスにアクセスします。
その後、Showするようにします。
 

Public Sub call_usf(usfName As String)
    Dim usf As Object
    
    Set usf = UserForms.Add("UserForm" & 1)
    
    '以下共通処理
    usf.TextBox1.Value = 3

    usf.Show
End Sub

Sub Test()
    Dim a as Long, b As Long
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)

    call_usf "UserForm" & b
End Sub

引用:

下記変数Bで、forで回す回数（for１回で21個分のテキストボックスに入力するコードにしています）、呼び出すユーザーフォームを特定しています。

ユーザーフォームは連続してではなく、該当のものを1つ開くだけです。
取り急ぎ、ご回答致します。

ip8bk さんの引用:

ユーザーフォームは連続してではなく、該当のものを1つ開くだけです。
取り急ぎ、ご回答致します。

こちらこ簡潔に説明できてなくて申し訳ございません。
ここまで理解していただけただけでも感謝しております。

投稿日時: 20/11/20 14:32:17 のコードに間違いがありましたので、下記に修正します。
 

Public Sub call_usf(usfName As String)
    Dim usf As Object
    
    Set usf = UserForms.Add(usfName)
    
    '以下共通処理
    usf.TextBox1.Value = 3

    usf.Show
End Sub

Sub Test()
    Dim a As Long, b As Long
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)

    call_usf "UserForm" & b
End Sub

hatena さんの案をお借りしますが、
  
↓こんな形はいかがでしょうか？
Sub call_usf()
Dim UFS As Object, i As Long, a As Long, b As Long
 
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)
   
     Set UFS = UserForms.Add("Userform" & b)
     With UFS
         For i = 1 To 21
             .Controls("TextBox" & i).Text = i
         Next
         .Show
     End With
 End Sub
 ※共通処理部分は廃止
※ユーザーフォーム側から、共通処理をCallも廃止
 

Public Sub call_usf(usfName As String)

ip8bk さんの引用:
カッコの中で宣言したことがないのですが、これはどのような意味(どのような場合に使うのでしょうか？)になりますでしょうか？

いままでやり取りしていて、どうも納得いかないことは、
 
シート上のCountIfの結果によって呼び出すユーザーフォームが異なる。
ユーザーフォームが10個ぐらいある。
ユーザーフォームにテキストボックスが20個ぐらいある。
呼び出すときに共通の処理を走らせる。
 
ということのようですが、このユーザーフォーム自体を共通化できないのでしょうかね。
その10個のフォームで異なる部分はどのくらいあり、それはどのようなものなのでしょうか。
 
 

ご回答ありがとうございます。
ユーザーフォームを共通化すると、最大で使わないテキストボックスが200個ちかくできてしまいます。
主に見栄えの問題で、ユーザーフォームは共通化しないということになっております。

ip8bk さんの引用:
ご回答ありがとうございます。
ユーザーフォームを共通化すると、最大で使わないテキストボックスが200個ちかくできてしまいます。
主に見栄えの問題で、ユーザーフォームは共通化しないということになっております。

引用:

Sub usf_access()
    UserForm1.TextBox1.Value = 3
End Sub

ご回答ありがとうございます。
 

引用:
Sub usf_access()
    UserForm1.TextBox1.Value = 3
End Sub
 
この中のコードが問題だということ
理解できましたか？

ip8bk さんの引用:
ユーザーフォームを共通化すると、最大で使わないテキストボックスが200個ちかくできてしまいます。
主に見栄えの問題で、ユーザーフォームは共通化しないということになっております。

作成いただきました下記のコードで上手く動くことが確認できました。
ありがとうございました。
あとは私が理解できていない部分がありますので、理解できるまでいくつ質問させて下さい。
まず下記の2点につきましてご教示下さい。
よろしくお願い致しますm(_ _)m
 
1) 最初のPublicはどのような意味があるのでしょうか？
2) call_usf "UserForm" & b、←このコードの意味も教えてください。
 
 

Public Sub call_usf(usfName As String)
    Dim usf As Object
    
    Set usf = UserForms.Add(usfName)
    
    '以下共通処理
    usf.TextBox1.Value = 3

    usf.Show
End Sub

Sub Test()
    Dim a As Long, b As Long
    a = ActiveCell.Row
    b = Application.WorksheetFunction.CountIf(Columns(3), Cells(a, 3).Value)

    call_usf "UserForm" & b
End Sub

ip8bk さんの引用:

モーダルの場合、ユーザーフォームを開いてからテキストボックスなどに入力できないからでは無いでしょうか？
このコードが問題なのではなく、このコードがイニシャライズに入っていたことが問題、というのが私の理解ですが、間違っていますでしょうか？

原因はイニシャライズではありませんね。
訂正ありがとうございます。
 
 
1点教えて下さい。
 

引用:
UserForms.Addで開いたフォームを変数に格納する