Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8612 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32278】Not IsNumeric ゼロイオン 05/12/12(月) 9:07 質問[未読]
【32280】Re:Not IsNumeric wad 05/12/12(月) 9:22 発言[未読]
【32282】Re:Not IsNumeric Statis 05/12/12(月) 9:40 回答[未読]
【32285】Re:Not IsNumeric Jaka 05/12/12(月) 9:56 発言[未読]
【32291】Re:Not IsNumeric ゼロイオン 05/12/12(月) 11:40 お礼[未読]
【32278】Not IsNumeric
質問  ゼロイオン  - 05/12/12(月) 9:07 -
引用なし
パスワード
   コード＊
Not IsNumeric(Worksheets(1).Cells(3 + x, 7)) Then Exit Sub

Not IsNumericの時　 Exit Subで抜けるようにコードを書きました。
しかし、セルの値がWorksheets(1).Cells(3 + x, 7) = ""の時
つまり空白の時はsubを抜けないようにしたいのです。
論理式でやってみたもののうまい組み方がわかりません。
どなたか助けてください。
【32280】Re:Not IsNumeric
発言  wad  - 05/12/12(月) 9:22 -
引用なし
パスワード
   おはようございます


Worksheets(1).Cells(3 + x, 7) <> ""
てことですか？

勘違いならごめんなさい。
【32282】Re:Not IsNumeric
回答  Statis  - 05/12/12(月) 9:40 -
引用なし
パスワード
   こんにちは

こんな感じです。（例にて）

If Range("A1").Value <> "" Then
　 If Not IsNumeric(Range("A1").Value) Then Exit Sub
End If
【32285】Re:Not IsNumeric
発言  Jaka  - 05/12/12(月) 9:56 -
引用なし
パスワード
   IsNumericの基準がが良く解っていませんが...。
文字数字や全角数字も含むのでしょうか？
（文字数字は見た目だとわからないと思う。）

数字と言うより、数値限定なら...。
（テキストボックスの数字は数値じゃないので跳ねられます。）

If Application.Isnumber(Range("A1").Value) = True Then
　 msgbox "数値"
else
　 msgbox "数値じゃない"
end if
【32291】Re:Not IsNumeric
お礼  ゼロイオン  - 05/12/12(月) 11:40 -
引用なし
パスワード
   みなさん、
ご回答ありがとうございます。
どうやらjakaさんのご回答が正しかったようです。
とはいえご回答をくださったみなさま大変ありがとうございました。
では失礼します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8612 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free