Excel VBA質問箱 IV

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

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


13458 / 76732 ←次へ | 前へ→

【68779】Re:ユーザーフォムのテキトボックスの空白の計算
回答  sasa  - 11/4/16(土) 18:49 -

引用なし
パスワード
   ▼kanabun さん:
>▼きしやん さん:
>>テキトボックスを空白のまま実行すると、実行時エラー13 型が一致しませんのエラー
>>が発生します。空白のテキトボックスに0を入力すればよいのですが
>
>TextBoxが空のとき、そのTextBoxは計算に含めないようにしないと...
>0に直しちゃったら、その値も有効なデータとして計算されてしまいますよ。

質問文からは空白の時は0を入力したとみなす、と受け取れますが...
質問の真意が、
TextBoxが空のとき、そのTextBoxは空白とみなす(計算に含めない)
とすると、当然それなりに処理することになるでしょう。
以下一例。

Private Sub CommandButton1_Click()
 Dim nn, vv(1 To 20), ii&
 For Each nn In Evaluate("{2,5,8,9,10,11,12,13,14,15,16,17,18,21,24,27,30,33,36,39}")
  ii = ii + 1
  vv(ii) = Trim(Controls("TextBox" & nn))
  If vv(ii) <> "" Then vv(ii) = Val(vv(ii))
 Next
 ActiveCell = Application.StDev(vv)
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 お礼

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