Excel VBA質問箱 IV

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

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


64180 / 76732 ←次へ | 前へ→

【17134】Re:数値が入力してある行だけクリアするには
回答  ichinose  - 04/8/23(月) 17:14 -

引用なし
パスワード
   ▼りんりん さん:
こんにちは。

>文字列、数値、数式、空白が入り混じった
>縦一列があります。
>この列のうち、数値が入った行のセルだけを
>クリアするにはどうしたらよいか教えてください。
>
>例えばこのB列のような感じです。
>
>   A   B  
>1    受注日報
>2     8月度
>3     5,000
>4     1,000
>5     3,000
>6 合計  9,000(←数式が入っている)
>7
>
>この例で言うとB3、B4、B5のみをクリアするには
>どうすればいいでしょうか?
>ちなみに、この列の行数は変化していきますので、
>数式が入っているセルは特定できません。
>
>数値のみを選択するという方法があれば教えて
>いただきたいです。
'==================================================
Sub test()
  Dim rng As Range
  On Error Resume Next
  Set rng = Range("b1", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeConstants, xlNumbers)
  If Err.Number = 0 Then
   rng.ClearContents
   End If
  On Error GoTo 0
End Sub
一例ですが、SpecialCellsメソッドを調べて下さい。
例のコードは、アクティブシートのB列の数値セルをクリアします。

0 hits

【17132】数値が入力してある行だけクリアするには りんりん 04/8/23(月) 17:04 質問
【17134】Re:数値が入力してある行だけクリアするには ichinose 04/8/23(月) 17:14 回答
【17247】Re:数値が入力してある行だけクリアするには りんりん 04/8/25(水) 15:49 お礼

64180 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free