Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


49629 / 76732 ←次へ | 前へ→

【32007】Re:指定した行の数と式の数字を対応させたい!
質問  kruk  - 05/12/4(日) 16:17 -

引用なし
パスワード
   かみちゃんさん、keinさん昨日はどうもありがとうございました。
あの後、いろいろとやってみて、
strRow =Me.TextBox1
 MsgBox Range(strRow).Rows.Count
とすることで、メッセージボックスに指定した行の数を抽出することに成功しました。
しかし、モジュールの式に数値を送ることがどうしてもできません。よろしかったら、もう1度お教えください。
で、現在ユーザーフォームは
Private Sub CommandButton1_Click()
Dim DataRange As String, OutRangeA As String, OutRangeB As String, _
i As Long, x As Long, Mynum As Long, strRow As String
 DataRange = UserForm1.TextBox1.Text
 OutRangeA = UserForm1.TextBox2.Text
 OutRangeB = UserForm1.TextBox3.Text
 Call Calculate(DataRange, OutRangeA, OutRangeB)
 Unload UserForm1
With Me.TextBox1
  strRow = Me.TextBox1
  If .Value = "Range(strRow).Rows.Count" Then Exit Sub
  For i = Len(.Value) To 1 Step -1
   If Not IsNumeric(Mid(.Value, i, 1)) Then
     x = i + 1: Exit For
   End If
  Next i
  If x = 0 Then
   Mynum = CLng(.Value)
  Else
   Mynum = CLng(Mid(.Value, x))
  End If
End With
End Sub
このようになっており、モジュールは
Sub Calculate(DataRange As String, OutputRangeA As String, OutputRangeB As String)
Dim Std As Single, sigma As Single
Dim RanData As Range
Set RanData = Range(DataRange)
 Std = Application.StDev(RanData)
Range(OutputRangeA).Select
Call Output(Std)
 sigma = Std * Sqr(Mynum)
Range(OutputRangeB).Select
Call Output(sigma)
End Sub
となっています。
1 hits

【31979】指定した行の数と式の数字を対応させたい! kruk 05/12/3(土) 14:46 質問
【31980】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/3(土) 14:51 発言
【31981】Re:指定した行の数と式の数字を対応させた... kruk 05/12/3(土) 15:19 質問
【31982】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/3(土) 15:32 発言
【31983】Re:指定した行の数と式の数字を対応させた... kruk 05/12/3(土) 15:37 お礼
【32007】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 16:17 質問
【32008】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/4(日) 16:57 発言
【32014】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 17:51 質問
【32017】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/4(日) 18:11 回答
【32018】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 18:15 お礼
【32019】Re:指定した行の数と式の数字を対応させた... kruk 05/12/4(日) 19:04 質問
【32020】Re:指定した行の数と式の数字を対応させた... かみちゃん 05/12/4(日) 19:14 発言
【32043】Re:指定した行の数と式の数字を対応させた... kruk 05/12/5(月) 13:30 お礼
【31984】Re:指定した行の数と式の数字を対応させた... Kein 05/12/3(土) 15:38 回答

49629 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free