Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13471 / 76738

←次へ　｜　前へ→


	【68772】Re:ﾕｰｻﾞｰﾌｫﾑのﾃｷﾄﾎﾞｯｸｽの空白の計算

kanabun - 11/4/15(金) 21:57 -


	引用なし

	パスワード

▼きしやんさん：
失礼します

>ﾕｰｻﾞｰﾌｫﾑにﾃｷﾄﾎﾞｯｸｽを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

0 hits

▼

【68768】ﾕｰｻﾞｰﾌｫﾑのﾃｷﾄﾎﾞｯｸｽの空白の計算 きしやん 11/4/15(金) 20:07