ライブラリ

fRange_Select

***************************************************************
セルを選択する

【引数】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

Range   2017/11/21   shono

この記事へのコメント

コメントを送る

 
※ メールは公開されません
Loading...
 画像の文字を入力してください