選択範囲の行、列番号を調べる Libreoffice Calc Basic

Libreoffice Calc Basic 選択範囲の行、列番号を調べる

  Sub selection_RowColumnNo()
   '
       '選択範囲の行列番号を調べる
       '
      
           rangeAdd=ThisComponent.CurrentSelection.RangeAddress
  
               sRow=rangeAdd.StartRow        '選択範囲の始めの行番号
               eRow=rangeAdd.EndRow            '選択範囲の終わりの行番号
  
               sColumn=rangeAdd.StartColumn        '選択範囲の始めの列番号
                eColumn=rangeAdd.EndColumn            '選択範囲の終わりの列番号
       
         msgbox sRow & chr(10) & eRow & chr(10) & sColumn & chr(10) & eColumn
  
   End Sub