***************************************************************
セルを選択する
【引数】Range ：選択したいセル
ScrollRow ：スクロール行(0=スクロールしない)
ScrollCol ：スクロール列(0=スクロールしない)
【戻値】
***************************************************************
Public Function fRange_Select(Range As Range, Optional ScrollRow As Long = 0, Optional ScrollCol As Long = 0)
If Range Is Nothing Then Exit Function
With Range
'- ブックをアクティブ化
If ActiveWorkbook Is .Worksheet.Parent = False Then
.Worksheet.Parent.Activate
End If
'シートが表示されていたら
If .Worksheet.Visible = xlSheetVisible Then
'- シートをアクティブ化
If ActiveSheet Is .Worksheet = False Then
.Worksheet.Activate
End If
'- レンジを選択
.Select
'- スクロール処理
If ScrollRow > 0 Then ActiveWindow.ScrollRow = ScrollRow
If ScrollCol > 0 Then ActiveWindow.ScrollColumn = ScrollCol
End If
End With
End Function