問題点
画像の通りユーザーフォームに値を入力します。すべて入力したら登録ボタンを押すのですが、入力の途中でユーザーフォームを閉じてしまいました。
入力を再開するためにユーザーフォームを再起動します。
そうすると、途中まで入力していた情報が失われてしまいました。
入力情報を回避する方法をお教えします。
解決策
ユーザーフォームにユーザーが何か値を入れます。ユーザーフォーム(テキストボックス)の値が変化した時、ワークシートにユーザーフォームの値を書き込みをするプログラムにします。
Private Sub okTB_Change()
Set ws = ThisWorkbook.Sheets(resultWsName)
ws.Cells(Me.sanshouTB.Value, 入力結果列.良品数) = Me.okTB.Text
End Sub
okTBに"1"と入力されたら、ワークシートにも"1"と書き込みます。
あとは、フォームを立ち上げる時にワークシートに書かれた"1"を読み込むプログラムです。
Private Sub UserForm_Initialize()
Me.okTB.Text = ws.Cells(tr, 入力結果列.良品数).Value
end sub
ワークシートに書きこまれた値をユーザーフォームのokTBに代入しています。