Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

72890 / 76738

←次へ　｜　前へ→


	【8330】Re:文字列検索

ichinose - 03/10/9(木) 8:21 -


	引用なし

	パスワード

▼今井さん：
おはようございます。

>*******************************************************************
>シート名：ファイル一覧
>シート名：レイアウト　という２枚のシートがあります。
>*******************************************************************
>「ファイル一覧」の形式は次の通りです。
>　Ａ　　ファイルＡ
>　Ｂ　　ファイルＢ
>　　以下続く
>
>「レイアウト」の形式は次の通りです。
>　Ａ　　ファイルＡ
>　　　Ａ-01　ａａａ
>　　　Ａ-02　ｂｂｂ
>　　　　以下続く
>
>　Ｂ　　ファイルＢ
>　　　Ｂ-01　ａａａ
>　　　Ｂ-02　ｂｂｂ
>　　　　以下続く
>******************************************************************
>この状態で、
>「ファイル一覧」上の「Ａ」のセルがダブルクリックされた段階で、
>「レイアウト」のシートに移動して検索し、該当ある場合にはその該当位置にセル
>　を移動させたいのですが・・（この場合は「Ａ」の位置）
>*******************************************************************
>ご指導よろしくお願いします。
シート「ファイル一覧」のシートモジュールに
'=========================================================
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
　　Dim find_wd
　　Dim f_rng As Range
　　find_wd = ActiveCell.Value
　　Set f_rng = search_cell(find_wd, Worksheets("レイアウト").Cells)
　　If Not f_rng Is Nothing Then
　　　 f_rng.Parent.Activate
　　　 f_rng.Activate
　　　 End If
　　Cancel = True
End Sub
'===============================================================
Function search_cell(wd, rng As Range) As Range
　　Set search_cell = rng.Find(What:=wd, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
　　　　xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
End Function

というコードを記述して試してみて下さい。

0 hits

▼

【8329】文字列検索 今井 03/10/9(木) 0:37