Excel VBA質問箱 IV

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

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


13468 / 76732 ←次へ | 前へ→

【68768】ユーザーフォムのテキトボックスの空白の計算
質問  きしやん  - 11/4/15(金) 20:07 -

引用なし
パスワード
   エクセルVBA超初心者です。
ユーザーフォムにテキトボックスを20個配置し、下記の標準偏差求める構文をを作りました。
20個のデータを入力すれば問題ないのですが、データは20個以下の場合があり
テキトボックスを空白のまま実行すると、実行時エラー13 型が一致しませんのエラー
が発生します。空白のテキトボックスに0を入力すればよいのですがそれがめんどうで!
なにかよい解決法があれば宜しくご教授ください。

Option Explicit

Private Sub CommandButton1_Click()
  Dim r As Integer, s As Integer
  r = ActiveCell.Row
  s = ActiveCell.Column
  Dim t1 As Double, t2 As Single, t3 As Single, t4 As Single, t5 As Single
  Dim t6 As Single, t7 As Single, t8 As Single, t9 As Single, t10 As Single
  Dim t11 As Single, t12 As Single, t13 As Single, t14 As Single, t15 As Single
  Dim t16 As Single, t17 As Single, t18 As Single, t19 As Single, t20 As Single
  
  t1 = TextBox2
  t2 = TextBox5
  t3 = TextBox8
  t4 = TextBox9
  t5 = TextBox10
  t6 = TextBox11
  t7 = TextBox12
  t8 = TextBox13
  t9 = TextBox14
  t10 = TextBox15
  t11 = TextBox16
  t12 = TextBox17
  t13 = TextBox18
  t14 = TextBox21
  t15 = TextBox24
  t16 = TextBox27
  t17 = TextBox30
  t18 = TextBox33
  t19 = TextBox36
  t20 = TextBox39
  Cells(r, s) = Application.WorksheetFunction.StDev(t1, t2, t3, t4, t5,                           t6, t7, t8, t9, t10, _
                           t11, t12, t13, t14, t15, t16, t17, t18, t19, t20)


  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 お礼

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