|
▼きしやん さん:
失礼します
>ユーザーフォムにテキトボックスを20個配置し、下記の標準偏差求める構文をを作りました。
なんだかTextBoxの番号がとびとびで、見づらいですね(=_-)
それはそうと、
TextBoxコントロールには ControlSource プロパティが
ありますから、ワークシートの未使用領域の連続セル範囲に
TextBoxの値をリンクさせて、StdDev はこのワークシートの連続
セル範囲にたいして実行したらいかがでしょう。
Option Explicit
Private GSourceRange As Range
Private Sub UserForm_Initialize()
'各TextBoxとリンクするシート上のセル範囲
Set GSourceRange = Sheet1.Range("BB1").Resize(20)
With GSourceRange
TextBox2.ControlSource = .Item(1).Address(, , , True)
TextBox5.ControlSource = .Item(2).Address(, , , True)
TextBox8.ControlSource = .Item(3).Address(, , , True)
TextBox9.ControlSource = .Item(4).Address(, , , True)
TextBox10.ControlSource = .Item(5).Address(, , , True)
TextBox11.ControlSource = .Item(6).Address(, , , True)
TextBox12.ControlSource = .Item(7).Address(, , , True)
TextBox13.ControlSource = .Item(8).Address(, , , True)
TextBox14.ControlSource = .Item(9).Address(, , , True)
TextBox15.ControlSource = .Item(10).Address(, , , True)
TextBox16.ControlSource = .Item(11).Address(, , , True)
TextBox17.ControlSource = .Item(12).Address(, , , True)
TextBox18.ControlSource = .Item(13).Address(, , , True)
TextBox21.ControlSource = .Item(14).Address(, , , True)
TextBox24.ControlSource = .Item(15).Address(, , , True)
TextBox27.ControlSource = .Item(16).Address(, , , True)
TextBox30.ControlSource = .Item(17).Address(, , , True)
TextBox33.ControlSource = .Item(18).Address(, , , True)
TextBox36.ControlSource = .Item(19).Address(, , , True)
TextBox39.ControlSource = .Item(20).Address(, , , True)
End With
End Sub
Private Sub CommandButton1_Click()
'Range("W1").Select '← StDevを書き出すセル
ActiveCell.Value = WorksheetFunction.StDev(GSourceRange)
End Sub
|
|