Excel VBA質問箱 IV

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

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


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

18690 / 76738

←次へ　｜　前へ→


	【63487】Re:数字と漢字について

よろずや - 09/11/10(火) 23:31 -


	引用なし

	パスワード

▼ponpon さん： >▼ちょこりさん： >>　A >>1 123 >>2 りんご >>3 357 >> >>上記のような場合のことです。 > >こんなんでは？ > >Sub test() >　Dim r As Range >　 >　With Sheets("Sheet1") >　　For Each r In .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)) >　　　If IsNumeric(r.Value) Then >　　　　 MsgBox r.Address & "は、数字です" >　　　Else >　　　　 MsgBox r.Address & "は、数字ではありません" >　　　End If >　　Next >　End With > >End Sub セルに 1E1 と入力してみてください。値が 10 になりますね。次のセルに '1E1 と入力してみましょう。 1E1 と表示されますね。その状態で、上のプロシージャを実行してみましょう。