Excel VBA質問箱 IV

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

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


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

13532 / 76807

←次へ　｜　前へ→


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

きしやん - 11/4/16(土) 20:46 -


	引用なし

	パスワード

▼sasa さん：
>▼kanabun さん：
sasaさんの方法でうまくいきました。
本当に有難う御座いました。

▼sasa さん：
>▼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

1 hits

▼

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