Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8494 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【32969】人の目で見れば同じなのに、結果が違う。 k 05/12/28(水) 12:12 質問[未読]
【32971】Re:人の目で見れば同じなのに、結果が違う。 かみちゃん 05/12/28(水) 12:20 発言[未読]
【33013】Re:人の目で見れば同じなのに、結果が違う。 k 05/12/29(木) 8:38 お礼[未読]
【32969】人の目で見れば同じなのに、結果が違う。
質問  k E-MAIL  - 05/12/28(水) 12:12 -
引用なし
パスワード
   If IsNumeric(Cells(i, j)) Then
　ホニャララ

というコードがあります。

Cells(i, j)は人の目で見れば同じ空白なのに、ホニャララが実行される場合とされない場合があります。

ホニャララの部分が実行されない場合に、デバッグしてCells(i, j)の部分にカーソルを当てると、" "と表示されています。

ワークシート上でCells(i, j)を一度選択し、Deleteキーを押してからこのマクロを実行するとホニャララの部分が実行されます。デバッグしてCells(i, j)の部分にカーソルを当てると、Empty値と表示されています。

人の目で見ればどちらの場合もセルは同じ空白なのに、結果が違います。Cells(i, j)が空白の場合でもホニャララが常に実行されるにはどうしたらよいのでしょうか。
【32971】Re:人の目で見れば同じなのに、結果が違...
発言  かみちゃん E-MAIL  - 05/12/28(水) 12:20 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Cells(i, j)は人の目で見れば同じ空白なのに、ホニャララが実行される場合とされない場合があります。

1.何も入力されていない場合
2.""（長さ0の文字列）が入力されている場合
3." "（スペース）が入力されている場合
どれも、人の目には、同じように見えますが、Excelの値としては、まったく違うものです。
そこで、以下のような感じにするといいと思います。

Sub test()
　If IsNumeric(Cells(1, 1)) Or Trim(Cells(1, 1).Value) = "" Then
　　MsgBox "ホニャララ"
　Else
　　MsgBox "ホニャララではない"
　End If
End Sub
【33013】Re:人の目で見れば同じなのに、結果が違...
お礼  k E-MAIL  - 05/12/29(木) 8:38 -
引用なし
パスワード
   かみちゃんさん、ありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8494 / 13655 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free