| |
▼今井 さん：
おはようございます。
>*******************************************************************
>シート名：ファイル一覧
>シート名：レイアウト という２枚のシートがあります。
>*******************************************************************
>「ファイル一覧」の形式は次の通りです。
> Ａ ファイルＡ
> Ｂ ファイルＢ
> 以下続く
>
>「レイアウト」の形式は次の通りです。
> Ａ ファイルＡ
> Ａ-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
というコードを記述して試してみて下さい。
|
|
ichinose
- 03/10/9(木) 8:21 -
