Excel VBA 質問スレ Part14at TECHExcel VBA 質問スレ Part14 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞの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まで半角数字なのに"半角数字で…"のエラーが出ます。 半角数字以外ならスペースや空欄などもすべてエラーとして吐き出してくれるにはどうしたらいいですか？ 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch