Excel VBA質問箱 IV

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

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


49619 / 76732 ←次へ | 前へ→

【32017】Re:指定した行の数と式の数字を対応させたい!
回答  かみちゃん  - 05/12/4(日) 18:11 -

引用なし
パスワード
   こんにちは。かみちゃん です。

> strRow = Me.TextBox1
> MsgBox Range(strRow).Rows.Count
>と、することで、テキストボックス1にA1:A100と範囲を打ち込んで、メッセージボックスに99と選択した行の数値が出るようにはなった

メッセージボックスに「99」と表示されましたか?
私は、「100」と表示されるのですが・・・

Keinさんのコードと私のコードは同様のことをしています。
なので、失礼ながら、中途半端に融合されています。
以下のようなコードで十分かと思います。
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
 Dim DataRange As String, OutRangeA As String, OutRangeB 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)
 sigma = Std * Sqr(Range(DataRange).Rows.Count)
 Range(OutputRangeB).Select
 Call Output(sigma)
End Sub
0 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 回答

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