(VBA)ユーザーフォームの値を、モジュールで使用

質問

ユーザーフォームを使用したく

UserForm1に以下を配置

TextBox1
TextBox2

CommandButton1

CommandButon1に以下のコード書き込みました

Private Sub CommandButton1_Click()
Dim N As Single
Dim M As Single

N = UserForm1.TextBox1.Text
M = UserForm1.TextBox2.Text

Unload UserForm1
End Sub

標準モジュールに以下を記載して
ユーザーフォームの値を、モジュールで使用したいのですが
[「M＝～」で型が一致しません(エラー13）がでます。

「M＝～とN＝～」　を削除すると
MsgBoxの値がM,Nともにゼロになります

Public M As Single
Public N As Single

UserForm1.Show 1
M = UserForm1.TextBox1.Text　　　　　----＞　ここでエラー13
N = UserForm1.TextBox1.Text

MsgBox M
MsgBox N

------------------------------

どこでコードが間違っていますか　？

回答No.1

kkkkkm · ベストアンサー

標準モジュールのプロシージャ外で
グローバル変数
Public M As Single
Public N As Single
としていると思いますから
Dim N As Single
Dim M As Single
は不要です。

回答No.2

kkkkkm

書き忘れてました
標準モジュールの

M = UserForm1.TextBox1.Text　　　　　----＞　ここでエラー13
N = UserForm1.TextBox1.Text

も不要です。

お礼

kkkkkmさん、回答ありがとうございます。

N,MはPublicで一度指定すれば
ユーザーフォームで指定する必要は無いのですね

お陰様で上手く処理できました。