久々の投稿です。
ネタはたくさんあるんですが、更新する時間がとれず。。
ってことで今回のネタ 「定数のみを選択するマクロ」
金額のリストや計算書では手入力セルとシート関数セルがありますよね。
週次の計算の更新をするために、
この手入力セルとシート関数セルをわけて消すのも面倒ですよね。
そんなときに使える
Range.SpecialCells メソッド
セルの取得とは言っても、たくさんの取得種類があります。
| XlCellType 定数 | 値 |
|---|---|
| xlCellTypeAllFormatConditions 表示形式が設定されているセル | -4172 |
| xlCellTypeAllValidation 条件の設定が含まれているセル | -4174 |
| xlCellTypeBlanks 空の文字列 | 4 |
| xlCellTypeComments コメントが含まれているセル | -4144 |
| xlCellTypeConstants 定数が含まれているセル | 2 |
| xlCellTypeFormulas 数式が含まれているセル | -4123 |
| xlCellTypeLastCell 使われたセル範囲内の最後のセル | 11 |
| xlCellTypeSameFormatConditions 同じ表示形式が設定されているセル | -4173 |
| xlCellTypeSameValidation 同じ条件の設定が含まれているセル | -4175 |
| xlCellTypeVisible すべての可視セル | 12 |
今回は定数を取得するので、xlCellTypeConstants となります。
サンプルは下記です♪
定数は消えて、数式は残ります。
Sub SelectType()
Cells.SpecialCells(xlCellTypeConstants).Select
Selection.ClearContents
End Sub
ではでは♪
コメント