エクセルの学校：全文検索：Hyper Estraier：選択　セル　目立たせる

Results of 1 - 1 of about 33 for 選択　セル　目立たせる (0.023 sec.)

選択 (24685), セル (67546), 目立たせる (54)

[[20130731035611]]: #score: 11245; @digest: b24bbac3b2519fbe7889310d8afb932a; @id: 63086; @mdate: 2013-08-07T18:57:35Z; @size: 5043; @type: text/plain; #keywords: srched (64439), 社テ (63048), 系会 (15497), 魚系 (13533), 鮮魚 (12470), 株式 (9877), 式会 (8279), プ後 (7422), 社シ (6514), activecell (3964), テス (2463), interior (2321), ャン (2304), 会社 (2118), colorindex (1909), へジ (1900), what (1848), ジャ (1770), 客名 (1487), ンプ (1226), xlvalues (1162), 大量 (1134), 顧客 (818), activate (789), クテ (769), ws (735), スト (718), ィブ (706), column (697), じ文 (693), cells (667), worksheets (666); 『セルではなく同じ文字へジャンプできませんか?』（おこじょ）
はじめまして。現在、上の質問のような機能ができないか?悩んでいます。 (質問内容) 大量の顧客名の記載がある台帳があります。表紙にその一覧があり、それを選択後同じ文字(顧客名)にジャンプしたい (イメージ) 目次シート「株式会社テスト」を選択 ↓ マクロを実行 ↓ 鮮魚系会社シート「株式会社テスト」が選択 (現状) 検索したところ似た質問に対し下記のようなロジックを記述された方がいます。 Sub FindY() Dim WS As Worksheet Dim SRCHED As Range Dim What As Variant SN = ActiveSheet.Name RN = Selection.Row CN = Selection.Column IV = Selection.Value What = IV Cells(RN, CN) = "" For Each WS In Worksheets WS.Select Set SRCHED = Cells.Find(What:=What, After:=ActiveCell, LookIn:=xlValues, _ LookAt:=xlPart) If Not SRCHED Is Nothing Then Exit For Next If SRCHED Is Nothing Then MsgBox "N/A" Else WS.Select: SRCHED.Activate Worksheets(SN).Cells(RN, CN) = IV End Sub これで全シートの検索が可能なのでしょうか? まだほとんどマクロを触っていない者のため、かなり解読に難儀しています。ちなみにこれを実行すると同一シートでは検索できたのですが、複数シートではMsgbox「N/A」と表示されます。。申し訳ないのですが、お分かりになる方でご教授お願いできませんでしょうか? どうかよろしくお願いします。 ---- 参考にされたのは下記ですか? http://okwave.jp/qa/q7431140.html ＞12行目の WS.Select は必要のないコードです。マクロの進行にしたがって、＞つぎつぎと選択シートを変えていくのが分かるようにして、マクロがちゃんと＞仕事をしていることを確認するために入れてあります。動くことが確認されたら削除してください。とありますが、書いてある通りに消してしまうと＞Msgbox「N/A」と表示されます。。となります。 WSがアクティブにならない（アクティブシートが切り替わらない）ので Cells.Findはマクロ実行時にアクティブなシートしか検索しません。下記に差し替えてみてください。 Option Explicit Sub FindY() Dim WS As Worksheet Dim SRCHED As Range Dim What As Variant Dim SN As String SN = ActiveSheet.Name What = ActiveCell.Value For Each WS In Worksheets If WS.Name <> SN Then Set SRCHED = WS.Cells.Find(What:=What, After:=WS.Cells(1, 1), LookIn:=xlValues, _ LookAt:=xlPart) If Not SRCHED Is Nothing Then Exit For End If Next If SRCHED Is Nothing Then MsgBox "N/A" Else WS.Select: SRCHED.Activate End Sub （みやほりん） ---- みやほりん様大変遅くなりましたが、思った動きになっています。大変助かりました。ありがとうございます。で、もう1点お願いがあるのですが。セルへジャンプ後にセルの色を変えるにはどうすればいいのでしょうか? 理由としては大量のデータがある中で、ジャンプ後探しにくい場合があるため。ちなみに簡単ではありますが、 '選択行のセルの色を消す Rows(ActiveCell.Row).Interior.ColorIndex = xlNone '色をつける Cells(ActiveCell.Row, ActiveCell.Column).Interior.ColorIndex = 37 こう記述し、if文の終わりに入れたのですがジャンプ前のシートの色は変わりますがジャンプ先は変わりません。もしくは、ジャンプ後のセルを目立たせる何かありましたら合わせて教えてもらえますでしょうか? 重ね重ね、お願いして申し訳ございません。 (おこじょ) ---- End Sub の前で Cells(ActiveCell.Row, ActiveCell.Column).Interior.ColorIndex = 37 としてください。ただし、Cells(ActiveCell.Row, ActiveCell.Column)はすなわち、ActiveCellです。で、この時点でのActiveCellはその直前にSRCHED.Activateとしていますから、 Cells(ActiveCell.Row, ActiveCell.Column).Interior.ColorIndex = 37 を SRCHED.Interior.ColorIndex = 37 とすべきところでしょうか。色を消す部分は私ならForループの前にもう一回ループで For Each WS In Worksheets 'この三行を追加 WS.Cells.Interior.ColorIndex = xlNone ' 〃 Next ' 〃 For Each WS In Worksheets : : のようにするでしょうか。ただ、次のような条件が成り立っていれば、です。「色をつけるセルにもともと別の色が付いていない」「次の検索のときに例外なく色を消してしまっても良い」私ならオートフィルタを使ってその行だけ表示するほうをえらぶかな。（みやほりん） ---- みやほりん様アドバイス、ありがとうございます。おかげさまで思う動きになっていると判断しています。挙げていただいた条件も特に満たしていたので、良かったです。ちなみに説明不足でありましたが、ジャンプした先のシートはシート名:鮮魚系会社シート取引先セルA セルB セルC セルD 株式会社テスト株式会社テストA 株式会社テストB 株式会社テストC 株式会社テストD 株式会社テストE 株式会社テストF のように縦に1列で並んでいるものでないため、オートフィルタでは難しいと判断していました。ちなみにこの場合でもオートフィルタで上手に表示できるものなのでしょうか? しかし、思うような動きになって助かりました。表示の色を点滅で視覚的にすぐ分かるものができないか、別で調べたいと思います。いずれにせよ、色々丁寧に教えていただきありがとうございました。 (おこじょ) ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201307/20130731035611.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ