| |
こんにちは。かみちゃん です。
横から失礼します。
>数式を入力して判断？で、フィルターをかけた感じに仕上がるんですか？
そのとおりです。
数式の結果で数値が得られたセルを選択しています。
一般操作の「編集」−「ジャンプ」機能です。
>全部消えてしまいましたが…何かサジェスチョンいただけませんでしょうか。
全部消えた？数式の結果がどうなっていたのかというところだと思います。
.SpecialCells(3, 1).EntireRow.Hidden = True
.ClearContents
この２行をコメントにして、埋め込まれた数式の結果が全部"1"になっているのでしょうか？
>EntireRow.Hiddenだけでなく文字色を変えるということもこの種の数式で
>コードを作成できるのでしょうか。
できます。
セルを選択するだけでしたら、以下のような感じでできます。
A1〜A4に =1 などと数値が表示される数式を設定してください。
そのうち、どれかのセルは数式を設定しないでおきます。
すると、結果が数値となる数式のセルだけが選択されます。
また、B1〜B4には、数式ではなく数値そのものを入力してみてください。
そのうち、どれかのセルは数値を入力しないでおきます。
すると、数値が入っているセルだけが選択されます。
Sub test1()
'数式の結果が数値になっているセルを選択する。
'「編集」−「ジャンプ」の「セル選択」で「数式」「数値」のみにチェック
Range("A1:A4").SpecialCells(3, 1).Select
'以下と同意
Range("A1:A4").SpecialCells(xlCellTypeFormulas, 1).Select
End Sub
Sub test2()
'数値になっているセルを選択する。
'「編集」−「ジャンプ」の「セル選択」で「定数」「数値」のみにチェック
Range("B1:B4").SpecialCells(2, 1).Select
'以下と同意
Range("B1:B4").SpecialCells(xlCellTypeConstants, 1).Select
End Sub
あとは、Selectの部分をいろいろ応用すればできるというわけです。
|
|
かみちゃん
- 05/11/25(金) 21:43 -
