[[20200508105206]]　『別のユーザーフォームを呼び出し、入力したデータ』（狸　たぬき）　ページの最後に飛ぶ

『別のユーザーフォームを呼び出し、入力したデータを反映させたい』（狸　たぬき）

ユーザーフォーム１で顧客名簿を作成しているのですが、備考欄の文字数が多く、表示できない箇所が出てくるため、困っています。

ユーザーフォーム１のみで備考欄をカバーするのは困難なため、ユーザーフォーム１（顧客名簿）からユーザーフォーム２（顧客名簿の備考欄のみ対応）を呼び出し、ユーザーフォーム２に文字を入力し、そのデータをユーザフォーム１もしくは直接該当のセルに反映させたいのですが、コードの構成がわかりません。

※ユーザーフォーム２のテキストボックスは備考欄の１個のみです。

よろしくお願いいたします。

＜使用 Excel：Office365、使用 OS：Windows10 ＞

＞備考欄の文字数が多く、表示できない箇所が出てくるため、困っています。
＞ユーザーフォーム１のみで備考欄をカバーするのは困難なため

意味合いがわかりません。
（tanuki） 2020/05/08(金) 11:12

（ユーザーフォーム１を【モードレス】で開いておいて、）ユーザーフォーム２のQueryCloseイベントで「ユーザフォーム１もしくは直接該当のセル」にユーザーフォーム２のテキストボックスの内容を出力すればよいのでは？

（もこな２） 2020/05/08(金) 11:25

 案として、ユーザーフォーム２に

 Public Function 備考取得() As String
  Me.Show
  備考取得 = TextBox1.Value
  Unload Me
 End Function

 で取得するのは、どうでしょうか。
 QueryCloseイベントにMe.Hideが必要で、
 コードの量は増えますが、将来のメンテ時に
 分かりやすいかな、と。
（tkit） 2020/05/08(金) 11:47

別案で、スクロールバーを出すようにしてしまうという手もありますね。

    Private Sub UserForm_Initialize()
        With TextBox1
            .MultiLine = True
            .ScrollBars = fmScrollBarsBoth
            .WordWrap = False
        End With
    End Sub

 ※説明用にコード化しましたが、設計段階で設定しておくことも可能

（もこな２） 2020/05/08(金) 12:24

コメント返信：

[ 一覧(最新更新順) ]

[[20200508105206]] 『別のユーザーフォームを呼び出し、入力したデータ』（狸 たぬき） ページの最後に飛ぶ

[[20200508105206]]　『別のユーザーフォームを呼び出し、入力したデータ』（狸　たぬき）　ページの最後に飛ぶ