アクティブシートのUsedRangeを調べるマクロの実験 LIbreOffice Calc Basic

アクティブシートのUsedRangeを調べるマクロの実験

 

 

Sub usedRang3()
'アクティブシートのUsedRangeを調べる
'参考サイト　ttp://jehupc.exblog.jp/13099750/

       Dim oRange As Object
       Dim oCursor As Object
       Dim usedRow As Long
       Dim usedColumn As Long
             
       'スタート位置　A1  A1を変えると結果も変わる
              oRange = ThisComponent.CurrentController.Activesheet.getCellRangeByName("A1")
       'カーソル設定
              oCursor = ThisComponent.CurrentController.Activesheet.createCursorByRange(oRange)
              oCursor.gotoEndOfUsedArea(True)
             ' objCursor.collapseToCurrentRegion()
        'UsedRang 最終行、列
            usedRow=oCursor.Rows.Count
            usedColumn=oCursor.Columns.Count
        'MsgBoxに表示
            Msgbox "最終行  " & usedRow & chr(10) & "最終列  "  & usedColumn,,"ActiveSheet UsedRange"
       
End Sub

 

タグ：UsedRange