Excel VBA質問箱 IV

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

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


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

41743 / 76732

←次へ　｜　前へ→


	【40067】Re:textboxのカウントについて

てつじ - 06/7/6(木) 15:42 -


	引用なし

	パスワード

▼Statis さん：
>▼てつじさん：
>こんにちは
>
>>コードを見て勉強してみました。おおよその理解はできました。
>>IsNumericの意味としては、box内に文字？数字？が入っていればということですか？
>
>TextBoxの値が数値として評価できるかどうかを調べています。

ありがとうございました。また一つ勉強になりました。
下記のコードを作成したのですが、まだ省略できる様な気がするのですが・・・。
できますでしょうか？

Co = 0
For i = 5 To 46
　　If IsNumeric(Me.Controls("TextBox" & i).Value) Then
　　　 Co = Co + 1
　　End If
Next i
Me.TextBox179.Value = Co

Co = 0
For i = 48 To 89
　　If IsNumeric(Me.Controls("TextBox" & i).Value) Then
　　　 Co = Co + 1
　　End If
Next i
Me.TextBox184.Value = Co

Co = 0
For i = 91 To 132
　　If IsNumeric(Me.Controls("TextBox" & i).Value) Then
　　　 Co = Co + 1
　　End If
Next i
Me.TextBox189.Value = Co

Co = 0
For i = 134 To 175
If IsNumeric(Me.Controls("TextBox" & i).Value) Then
　　　 Co = Co + 1
　　End If
Next i
Me.TextBox193.Value = Co

TextBox178 = TextBox47 * 50
TextBox183 = TextBox90 * 50
TextBox188 = TextBox133 * 50
TextBox192 = TextBox176 * 50

TextBox180 = TextBox179 * 2000
TextBox185 = TextBox184 * 2000
TextBox189 = TextBox190 * 2000
TextBox193 = TextBox194 * 2000

0 hits

▼

【40062】textboxのカウントについて てつじ 06/7/6(木) 14:33