Excel VBA質問箱 IV

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

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


50046 / 76738 ←次へ | 前へ→

【31588】Re:Z仕様という文字を含む文字列の検索方法
発言  かみちゃん  - 05/11/25(金) 21:43 -

引用なし
パスワード
   こんにちは。かみちゃん です。

横から失礼します。

>数式を入力して判断?で、フィルターをかけた感じに仕上がるんですか?

そのとおりです。
数式の結果で数値が得られたセルを選択しています。
一般操作の「編集」−「ジャンプ」機能です。

>全部消えてしまいましたが…何かサジェスチョンいただけませんでしょうか。

全部消えた?数式の結果がどうなっていたのかというところだと思います。
 .SpecialCells(3, 1).EntireRow.Hidden = True
 .ClearContents
この2行をコメントにして、埋め込まれた数式の結果が全部"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の部分をいろいろ応用すればできるというわけです。
0 hits

【31570】Z仕様という文字を含む文字列の検索方法 Ryo 05/11/25(金) 18:08 質問
【31572】Re:Z仕様という文字を含む文字列の検索方法 ichinose 05/11/25(金) 18:12 発言
【31573】Re:Z仕様という文字を含む文字列の検索方法 Ryo 05/11/25(金) 18:23 お礼
【31574】Re:Z仕様という文字を含む文字列の検索方法 ichinose 05/11/25(金) 18:36 発言
【31576】Re:Z仕様という文字を含む文字列の検索方法 Ryo 05/11/25(金) 19:04 お礼
【31585】Re:Z仕様という文字を含む文字列の検索方法 Kein 05/11/25(金) 20:26 発言
【31587】Re:Z仕様という文字を含む文字列の検索方法 Akisame 05/11/25(金) 21:16 質問
【31588】Re:Z仕様という文字を含む文字列の検索方法 かみちゃん 05/11/25(金) 21:43 発言
【31589】Re:Z仕様という文字を含む文字列の検索方法 Kein 05/11/25(金) 21:57 発言
【31594】Re:Z仕様という文字を含む文字列の検索方法 Akisame 05/11/26(土) 9:25 質問
【31598】Re:Z仕様という文字を含む文字列の検索方法 かみちゃん 05/11/26(土) 9:42 発言
【31604】Re:Z仕様という文字を含む文字列の検索方法 Akisame 05/11/26(土) 17:50 質問
【31605】Re:Z仕様という文字を含む文字列の検索方法 かみちゃん 05/11/26(土) 18:05 発言
【31606】Re:Z仕様という文字を含む文字列の検索方法 Akisame 05/11/26(土) 22:53 お礼

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