エクセル2000でのセル検索結果の表示に関し質問します。

通常では、検索結果は細い枠で囲まれるだけで、視覚的にあまりはっきりしません。
検索前に全セルを選択状態にした後に検索すると、検索されたセルだけが白色表示され見やすくなりますので、私はそうしていますが、一々セルを選択するのは面倒です。
左上を1回クリックするだけですが、それが面倒です。

他人が使用する為にも、検索結果のセルを特別の色で表示するような設定方法はありませんか?
       

このQ&Aに関連する最新のQ&A

A 回答 (2件)

#1です。


>検索語はその時々に指定しますので
(3)の回答(条件付き書式)は時々に指定するのは面倒でしょう。しかし
(1)の回答は、検索する語句を毎回聞いて来るので、(w = InputBox("検索語=")の個所)その面ではこれで良いのでは。
ボタンを1つシートに貼りつけ、ダブルクリックすると出てくる
Private Sub CommandButton1_Click()

End Sub
の中間に#1のコードのSubとEnd以外を貼りつければ、便利だと思いますが。
    • good
    • 0
この回答へのお礼

度々有難うございました。
これから出掛けますので、帰ったら早速実行してみます。
先ずは御礼まで。

お礼日時:2003/09/19 09:47

(1)ツール-マクロ-VBE


挿入ー標準モジュールに下記を貼りつけて実行して見てください。
Sub Macro1()
Range("a1").Select
w = InputBox("検索語=")
Cells.Find(After:=ActiveCell, what:=w).Activate
x = ActiveCell.Address
' MsgBox x
ActiveCell.Interior.ColorIndex = 6
p01:
Cells.FindNext(After:=ActiveCell).Activate
y = ActiveCell.Address
' MsgBox y
If x = y Then Exit Sub
ActiveCell.Interior.ColorIndex = 6
GoTo p01
End Sub
こんな感じですか。
(2)普通の関数では指定セルの書式設定は出きず、
(3)条件付き書式なら、検索したい範囲を指定し
書式-条件付き書式の
「数式で」で=FIND("大阪",A1)>1 とし、書式を「色」
を設定する。大阪のところは検索する語句を入れる。
こんな質問ではないですか。

この回答への補足

有難うございました。
検索語はその時々に指定しますので、残念ですが、ご指摘の方法のように設定の段階で検索語を指定することは出来ません。
検索を繰り返し、その都度検索結果のセルを特定の色(何時も同じ色でOK)にさせたいのです。
     

補足日時:2003/09/18 08:38
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QGoogle  yahoo 検索結果の数

Googleにて
「Google」と検索かけたら
検索結果が92,400,000 件で

yahooにて
「Google」と検索かけたら
検索結果が4,510,000,000件 件でした。

なぜGoogleのくせに
yahooより検索結果が少ないのでしょうか?

Aベストアンサー

こんにちは。

Web全体で検索してみました。
結果は
Yahoo! 4,490,000,000件
Google 2,700,000,000件 でした。
Googleはこれが上限なんでしょうかね?高速化のため上限があるとか。
いずれにせよどちらも、1000件目以降の検索結果は参照できないみたいなので、そんなにヒットしても困るんですが;

まあ、検索サイトは最初のページに見たい情報が必ず入るのがベストなので、検索結果の件数よりそっちのほうが重要なんでしょうけど…。

Qエクセルで複数のセル選択をした後、選択したセルの1つを選択解除したい

m(__)m早速ですが、質問をさせて戴きます。

セルA1を選択し、次にコントロールキーを押しながら、A3セル、同じくA5セルと合計3つのセルを選択しているとします。

この状態で、A3セルだけの選択を解除し、結果としてA1セルとA5セルのみが選択された状態にするにはどうすればいいでしょうか?

Aベストアンサー

A1、A3、A5を選択した状態から、

(1)Tab、またはShift+TabでA3を選択状態にします。
(2)Shift+↑を2回行います。(A1:A3、A5が選択状態に変わる。A3がアクティブ)
(3)Shift+Tabを2回行います。(A1:A3、A5が選択状態のまま。A1がアクティブに変わる)
(4)Shift+↑を2回行います。(A1、A5が選択状態に変わる。A1がアクティブ)

なお、『↑』は上方向へのカーソル移動キーです。


やっていることは、
  『選択を取り消したいセルまたはセル範囲』と
  『その1つ前のセルまたはセル範囲』をいっしょにして
  『選択を取り消したいセルまたはセル範囲』部分を縮小する
と表現すればいいでしょうか。

QGoogle検索ででてこないようにする。

Google検索ででてこないようにする。
友人の会社がたたかれています。だれかがGoogleで検索するとき、その単語がGoogle検索ででてこないようにするのは可能でしょうか。つまり直接Googleに依頼する。

Aベストアンサー

>そのメタタグについては自分のブログですよね。他人のブログはできないのですか。

他人のブログを検索結果に出さないようにする権利が貴方にはありませんから無理です。

QVBA コピーモード中の左上隅セルを、画面の左上の位置にスクロールした

VBA コピーモード中の左上隅セルを、画面の左上の位置にスクロールしたい!


Windows XP Home Edition
SP3
Office XP Personal 2002
Excel 2002

「 現在、コピーモード中になってる左上隅セル ( A20 ) 」 の 「 3つ上のセル ( A17 ) 」を
Window画面の左上の位置に、スクロールしたいのですが、どおすればよろしいでしょうか?

何卒、ご教示のほどをお願い致します。

Sub スクロール()
 Range(A20:B30).Copy
 Application.Goto reference:=ActiveWindow.Range(VisibleRange.Item(1).Address), Scroll:=True
End Sub

Aベストアンサー

Gotoメソッドが出てますので、もっと単純に考えましょう。

Goto(移動先,スクロールの有無)

ですが、移動先はRangeオブジェクトでもかまいません。ですので、OffsetプロパティーとWithステートメントを追加すると以下のような構文で解決可能です。

With [コピー範囲]
 .Copy
 Application.Goto .Cells(1).Offset(-3,0), True
End With

[コピー範囲]は任意のRangeオブジェクトにしてくださいね。質問文の場合だと
With Range("A20:B30")
になります。


キーポイントは.Cells(1)と.Offset(-3,0)になります。
.Cells(1)というのはWithで指定したセル範囲の左上のRangeオブジェトを返すものです。
.Offset(-3,0)は指定したセルから指定したセル移動した先のRangeオブジェクトを返すものです。
Offset(行移動数,列移動数)と指定します。今回は上に3個なので(-3,0)です。

Offsetプロパティーは良く使うので覚えておくとすごく役に立つでしょう。

Gotoメソッドが出てますので、もっと単純に考えましょう。

Goto(移動先,スクロールの有無)

ですが、移動先はRangeオブジェクトでもかまいません。ですので、OffsetプロパティーとWithステートメントを追加すると以下のような構文で解決可能です。

With [コピー範囲]
 .Copy
 Application.Goto .Cells(1).Offset(-3,0), True
End With

[コピー範囲]は任意のRangeオブジェクトにしてくださいね。質問文の場合だと
With Range("A20:B30")
になります。


キーポイントは.Cells(1)と.Offset(-3,0)になります。
....続きを読む

Qau携帯でのgoogle検索について

auのS005を使用しています。
au one トップページからの検索とgoogle mobileの検索結果がちがうのですが、なぜでしょうか?

ezwebに接続するとou oneトップページが表示されます。
そのページの検索はEnhanced by googleとなっています。
自分の会社を検索すると検索結果に表示されません。

続いてgoogle mobileにて検索するとヒットします。

同じgoogleの検索のようですがなぜでしょうか?
またau oneからの検索にヒットしないということは、携帯検索からヒットしないということでしょうか?

Aベストアンサー

>同じgoogleの検索のようですがなぜでしょうか?

「Enhanced by google」とは、auOneがgoogle検索を使っている、ということではありません。

「Enhanced」とは「強化された」という意味です。
なので「Enhanced by google」は「googleによって強化された」という意味になります。

「自社サイトの検索機能を強化するためにgoogleのシステムを使わせてもらいました」ということなんです。

auOneとgoogleでは使用しているサーバーや基幹ネットワークが違いますから、検索結果が違っても仕方ありません。
検索された履歴が無ければ後に行ってしまいますし、場合によっては検索にヒットしないこともあり得ます。

>au oneからの検索にヒットしないということは、携帯検索からヒットしないということでしょうか

auOneを利用するのは基本的にauユーザー限定ですので蓄積しているデータ量はgoogle等のポータルサイトに比べるとかなり貧弱です。
他のポータルサイトからの検索は試されましたか?
auOneだけでなく、Yahoo!やgoo、Infoseekの各モバイルサイトからも検索してみてください。
ヒットするかもしれませんよ。


以上、参考になれば幸いです。
長文、駄文、ご容赦ください。

>同じgoogleの検索のようですがなぜでしょうか?

「Enhanced by google」とは、auOneがgoogle検索を使っている、ということではありません。

「Enhanced」とは「強化された」という意味です。
なので「Enhanced by google」は「googleによって強化された」という意味になります。

「自社サイトの検索機能を強化するためにgoogleのシステムを使わせてもらいました」ということなんです。

auOneとgoogleでは使用しているサーバーや基幹ネットワークが違いますから、検索結果が違っても仕方ありません。
検索さ...続きを読む

Qvlookupでの検索結果をセル内で縦表示にするには

今VLOOKUP関数で検索を行う表を作成しています。
検索結果をセル内で縦に10 20 30という風に表示させたいのですが
検索先に縦表示でいれて関数の結果も縦になっているのに
結果のところには横にずらずらと並んででてきます。
どうにかできないのでしょうか、、よろしくお願いします。

Aベストアンサー

表示は2桁ずつで
10
20
30
でしょうか?
元のセルはAlt+Enterで改行してますか?それともセルの幅を狭めて自動改行ですか?
Alt+Enterでの改行なら、「配置」を「折り返して全体を表示する」で改行されます。
幅を狭めてる場合は、上記に設定の他に幅を同じにする必要があります。

QGoogle 検索後のページでサジェストできなくなった。。

Googleにデフォルトでサジェスト(オートコンプリート)機能が搭載されてからも、元Googleサジェストのページでは、トップページだけでなく検索後でもサジェスト可能だったのですが、数日前から検索後のページではサジェストが出来なくなり、通常のGoogleと一緒になってしまいました。この機能がないと厳しいです。何かありましたら、ご意見お願いします!


通常Google
http://www.google.co.jp/
検索後のページではサジェスト不可能

元Googleサジェスト
http://www.google.co.jp/webhp?complete=1&hl=ja
トップページでも検索後でもサジェスト可能だった

Aベストアンサー

私も同じ悩みをかかえています。苦肉の策で、過去に使ったことのある「検索後」のページを登録しています。
http://www.google.com/search?complete=1&hl=ja&q=+

Q計算結果が「0」のセルだけを「0」と表示したい。

エクセル計算表内で通常は・・計算外のゼロは・・画像のように・・「ツール」→「オプション」で「ゼロ非表示」と設定していますが、一部の計算結果が「ゼロになる場合だけ」・・そのセルだけをゼロ・・「0」表示さ せる方法はないでしょうか?・・・ご存じの方、居られましたら・・御指導のほどを!・・・

Aベストアンサー

=B1+C1がそのセルに記載されている計算式だったとして、
=IF(B1+C1=0,"0",B1+C1)

QGoogle Desktop の検索と Google Toolbar の検索はどちらが早い?

 こんにちは。早速ですが・・・
「Google Desktop」の「検索」と 「Google Toolbar」 の「検索」はどちらが早いですか。

今気づいたのですが、
「Google Desktop」の「検索」・・・「インターネット内」の検索
「Google Toolbar」 の「検索」・・・「パソコン内」の検索

でしょうか?
 しかしパソコン内を「検索」する必要はあまりないような気がしますが、ご意見をお願いします。

何が知りたいかというと、ぼくはいま「Vista」ですが「Google Desktop」をインストールする利点があるのかな?ということが知りたいからです。

よろしくお願いいたします。

Aベストアンサー

XP では Google Desktop、Vista では標準のクイック検索を利用しています。

>「Google Desktop」の「検索」・・・「インターネット内」の検索
>「Google Toolbar」 の「検索」・・・「パソコン内」の検索

その通りです。
検索する内容(用途)が違いますから、比較できません。
(Google Desktop がインストールされていた場合、Google Desktop で Web の検索や、Google ToolBar でデスクトップ検索も可能です。)

>パソコン内を「検索」する必要はあまりないような気がしますが、

自分の場合、必要最小限のファイル形式のみを対象に設定していますが、例えば、WebサイトのIDを忘れた時に登録確認メールを [(サービス名) ID] 等のキーワードで検索する等、主に必要な文章が記載されているメールや資料を検索に利用しています。また、プログラム名を打ち込んで、そのプログラムを起動させる事もあります。

>いま「Vista」ですが「Google Desktop」をインストールする利点があるのかな?

個人的には、Vista の『クイック検索』と略同様な機能ですから、特に必要だとは思いませんけど。逆に、XP の場合は、『Windowsデスクトップ サーチ』又は『Google Desktop』をインストールする事に拠り、Vista の『クイック検索』と同様な機能が利用できるメリットはあります。

尚、Vista で、Google Desktop をインストールする場合、ServicePack1 へのアップデートが必要だと記憶しています。(要確認)

クイック検索
http://www.microsoft.com/japan/windows/products/windowsvista/features/details/instantsearch.mspx
Googleデスクトップで検索力を磨く(第39回):深川岳志「Google探検隊」
http://pc.nikkeibp.co.jp/article/column/20080523/1003152/

XP では Google Desktop、Vista では標準のクイック検索を利用しています。

>「Google Desktop」の「検索」・・・「インターネット内」の検索
>「Google Toolbar」 の「検索」・・・「パソコン内」の検索

その通りです。
検索する内容(用途)が違いますから、比較できません。
(Google Desktop がインストールされていた場合、Google Desktop で Web の検索や、Google ToolBar でデスクトップ検索も可能です。)

>パソコン内を「検索」する必要はあまりないような気がしますが、

自分の場合、必...続きを読む

Qエクセルで範囲選択したセルだけ数式を表示させたいのですが

エクセルで範囲選択したセルだけ数式を表示させたいのですが、
どうすればいいでしょうか?
印刷し、数式自体を確認したいのです。
教えてください。お願いします。
質問の意味がわからなければ補足いたします。

Aベストアンサー

VBAになります。
セルの場所に表示するとして、壊れてはだめなので
Sheet2に出します。
Sheet2に列幅を十分広げておいてください。
Sub test01()
Dim cl As Range
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
For Each cl In Selection
r = cl.Row
c = cl.Column
sh2.Cells(r, c) = "'" & cl.Formula
Next
End Sub
(VBA)
ツール-マクロ-VBEをクリック。
出てくるVBE画面で、メニューの挿入-標準モジュールをクリックして出る画面に上記を貼りつける。
(注意)
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
のSheet1、Sheet2を自分のシート名に合わせて変えること。
(やり方)
Sheet1の式を出したいセルを範囲指定する。
上記を実行する。
Sheet2を印刷。

VBAになります。
セルの場所に表示するとして、壊れてはだめなので
Sheet2に出します。
Sheet2に列幅を十分広げておいてください。
Sub test01()
Dim cl As Range
Dim sh1, sh2 As Worksheet
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
For Each cl In Selection
r = cl.Row
c = cl.Column
sh2.Cells(r, c) = "'" & cl.Formula
Next
End Sub
(VBA)
ツール-マクロ-VBEをクリック。
出てくるVBE画面で、メニューの挿入-標準モジュールをクリックして出る画面に上記を...続きを読む


人気Q&Aランキング

おすすめ情報