Excel VBA 質問スレ Part14
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
200:デフォルトの名無しさん 10/02/06 17:59:03 >>199 2007から行数変わったじゃん 201:デフォルトの名無しさん 10/02/06 20:24:51 行数、列数が拡張されたのは2007の時だけじゃないし Rows.Countでそのシステムの最大行数が求まる 202:デフォルトの名無しさん 10/02/07 02:14:42 フォームに入力された値で数値計算をするプログラムを組んでいます。 ’各テキストボックスが空欄だった時の対処 If Me.YJ1.Value = "" Then MsgBox("空欄があります。") ElseIf Me.YJ2.Value = "" Then MsgBox("空欄があります。") ElseIf Me.YJ3.Value = "" Then MsgBox("空欄があります。") ・ ・ ・ （YJ23まで） ’（空欄対処の続きで）各テキストボックスが数字以外だったときの対処 ElseIf IsNumeric(YJ1) Then MsgBox("半角数字で入力してください。") ElseIf IsNumeric(YJ2) Then MsgBox("半角数字で入力してください。") ElseIf IsNumeric(YJ3) Then MsgBox("半角数字で入力してください。") ・ ・ ・ （YJ23まで） Else sum_t = YJ1*0.15+YJ1+0.79+ …（YJ23まで） という風なプログラムを現在組んでいます。 空欄の検出はしてくれるんですが、YJ23まで半角数字なのに"半角数字で…"のエラーが出ます。 半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4336日前に更新/253 KB
担当:undef