Excel VBA質問箱 IV

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

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


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

76239 / 76732

←次へ　｜　前へ→


	【4917】Re:表中の数値のみをクリアしたい

ichinose - 03/4/13(日) 22:16 -


	引用なし

	パスワード

▼なおおさん：
こんばんは。
>はじめまして。チョー初心者なのでとっても困っています。
>どなたか教えていただけませんか？
>
>支払い先別の表（200行×20列ぐらい）があるのですが、表の中には
>数値と文字が混在しています。その中の数値のみをクリアしたのですが…。
>
>IsNumeric関数で…云々と書かれた本があり、丸写ししたのですが、文字まで
>消えちゃいました。
>よろしくお願いします。
どういうふうなコードなのでしょうね？
仮に表の範囲がセルＡ１～Ｔ２００だとすると、
'==================================================
Sub test()
　　Dim rng As Range
　　For Each rng In Range("a1:t200")
　　　If IsNumeric(rng.Value) Then rng.Value = ""
　　　Next
End Sub

で数字がクリアされましたが、違う方法ですか？

2 hits

▼

【4916】表中の数値のみをクリアしたい なおお 03/4/13(日) 21:44