Excel VBA質問箱 IV

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

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


13465 / 76732 ←次へ | 前へ→

【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 質問
【68770】Re:ユーザーフォムのテキトボックスの空白の計算 neptune 11/4/15(金) 21:09 回答
【68771】Re:ユーザーフォムのテキトボックスの空白の計算 きしやん 11/4/15(金) 21:40 お礼
【68775】Re:ユーザーフォムのテキトボックスの空白の計算 neptune 11/4/16(土) 13:24 回答
【68772】Re:ユーザーフォムのテキトボックスの空白の計算 kanabun 11/4/15(金) 21:57 質問
【68773】Re:ユーザーフォムのテキトボックスの空白の計算 kanabun 11/4/15(金) 22:12 発言
【68774】Re:ユーザーフォムのテキトボックスの空白の計算 kanabun 11/4/16(土) 9:35 発言
【68777】Re:ユーザーフォムのテキトボックスの空白の計算 sasa 11/4/16(土) 15:43 回答
【68778】Re:ユーザーフォムのテキトボックスの空白の計算 kanabun 11/4/16(土) 17:21 発言
【68779】Re:ユーザーフォムのテキトボックスの空白の計算 sasa 11/4/16(土) 18:49 回答
【68780】Re:ユーザーフォムのテキトボックスの空白の計算 きしやん 11/4/16(土) 20:46 お礼

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