Ｐａｇｅ 421 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼検索＆フォーカスの移動 若菜 02/12/3(火) 9:27 ┗Re:検索＆フォーカスの移動 Jaka 02/12/3(火) 11:00 ┗Re:検索＆フォーカスの移動 若菜 02/12/3(火) 13:02 ┗Re:検索＆フォーカスの移動 Jaka 02/12/3(火) 13:45 ┗Re:検索＆フォーカスの移動 若菜 02/12/3(火) 16:59 ─────────────────────────────────────── ■題名 ： 検索＆フォーカスの移動 ■名前 ： 若菜 ■日付 ： 02/12/3(火) 9:27 -------------------------------------------------------------------------
| 超初心者です。 どなたかお助けください。 Sheet1とSheet2がありまして、以下のようになっています。 Sheet1 Sheet2 A B C A B C 1番号 名前 1番号 名前 説明 2 1 A氏 2 1 A氏 あああ 3 2 B氏 3 2 B氏 いいい 4 3 C氏 4 3 C氏 ううう ここで（Sheet1）上でC2のセルをクリックすると 画面がSheet2に移り、A氏の説明の所（Sheet2のC2） をセレクト状態にしたいのです。 検索して、その番号と一致する説明の所にフォーカスを 移動するというのはわかるのですが・・・ 方法がわかりません。 説明が下手ですが宜しくお願いします。 |
| >Sheet1 Sheet2 > A B C A B C >1番号 名前 1番号 名前 説明 >2 1 A氏 2 1 A氏 あああ >3 2 B氏 3 2 B氏 いいい >4 3 C氏 4 3 C氏 ううう こんにちは。 提示されたデータ通りだったら、検索しなくてもこれですんじゃいますけど．．。 どうしても検索させたいのですか？ それとただの左クリックイベントは、ありませんのでWクリックにしました。 Sheet1のモジュールにかきます。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) TAd = Target.Address Sheets("Sheet2").Select Sheets("Sheet2").Range(TAd).Select End Sub |
| Jakaさんありがとうございます。 Sheet1 Sheet2 A B C A B C 1番号 名前 1番号 名前 説明 2 1 A氏 2 2 B氏 いいい 3 2 B氏 3 1 A氏 あああ 4 3 C氏 4 3 C氏 ううう もし、Sheet1とSheet2で異なる番地（セル）に データがある場合はどうなりますか？ Sheet1の番号の1がA2にあるけど Sheet2では番号の1がA3にあるとか… |
| Findを使ってみました。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean) If Target.Column = 3 And Target.Offset(, -1).Value <> "" Then 検索値 = Target.Offset(, -1).Value With Worksheets("Sheet2").Columns(2) Set Cel = .Find(検索値, LookAt:=xlWhole, MatchCase:=True) If Not Cel Is Nothing Then Worksheets("Sheet2").Select Worksheets("Sheet2").Range(Cel.Address).Offset(, 1).Select Else MsgBox "無い" End If End With Set Cel = Nothing End If End Sub |
| Jakaさん本当にありがとうざいます。 すべてやっていただいて…(･･); また宜しくおねがいしまーす。 |