|
こんにちは。かみちゃんです。
>モジュールの式に数値を送ることがどうしてもできません。
どういうことをなさりたいのか、再度ご説明していただけませんか?
ざっと見たところ、
Option Explicit
Private Sub CommandButton1_Click()
'〜省略〜
Unload UserForm1 ' Meで指定されているフォームとUserForm1は異なるフォームですか?
With Me.TextBox1
strRow = Me.TextBox1
If .Value = "Range(strRow).Rows.Count" Then Exit Sub
'〜省略〜
↑
" "で囲っているので、「Range(strRow).Rows.Count」という文字列とTextBox1の値を比較しています。
しかし、
If .Value = Range(strRow).Rows.Count Then Exit Sub
としたとしても、Me.TextBox1.Value は、セル範囲を示す文字列、
Range(strRow).Rows.Count は、そのセル範囲の行数を返しますので、
必ず一致することはないと思います。
>このようになっており、モジュールは
Sub Calculate(DataRange As String, OutputRangeA As String, OutputRangeB As String)
Dim Std As Single, sigma As Single
Dim RanData As Range
'〜省略〜
Call Output(Std) ← 何の処理かわかりませんが・・・
sigma = Std * Sqr(Mynum) ←Mynumという変数は、宣言されていません。
'〜省略〜
|
|