Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13540 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【4916】表中の数値のみをクリアしたい なおお 03/4/13(日) 21:44 質問
【4917】Re:表中の数値のみをクリアしたい ichinose 03/4/13(日) 22:16 回答
【4928】Re:表中の数値のみをクリアしたい なおお 03/4/14(月) 14:16 お礼
【4916】表中の数値のみをクリアしたい
質問  なおお  - 03/4/13(日) 21:44 -
引用なし
パスワード
   はじめまして。チョー初心者なのでとっても困っています。
どなたか教えていただけませんか？

支払い先別の表（200行×20列ぐらい）があるのですが、表の中には
数値と文字が混在しています。その中の数値のみをクリアしたのですが…。

IsNumeric関数で…云々と書かれた本があり、丸写ししたのですが、文字まで
消えちゃいました。
よろしくお願いします。
【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

で数字がクリアされましたが、違う方法ですか？
【4928】Re:表中の数値のみをクリアしたい
お礼  なおお  - 03/4/14(月) 14:16 -
引用なし
パスワード
   ▼ichinose さん：　
ありがとうございました。
また、教えてくださいね。
よろしくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
13540 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free