選択範囲の行、列の個数を調べる Libreoffice Calc Basic

Libreoffice Calc Basic 選択範囲の行、列の個数を調べる

 Sub selection_RowColumn_count()
 '
 '連続した選択範囲の行、列の個数を調べる
 '        連続しない離れたセルをctrlキー押して選択した時はエラーになる
 '
 dim selectionRowCount,selectionColumnCoun As Long
 dim selectionRange As object
 
     selectionRange= ThisComponent.CurrentSelection
 
         selectionRowCount=selectionRange.Rows.Count
         selectionColumnCount=selectionRange.Columns.Count
 
     msgbox  "選択範囲の行個数は　" & selectionRowCount & chr(10) _
                  &  "選択範囲の列個数は　" & selectionColumnCount ,,"選択範囲の行、列の個数"
 
 End Sub
 

連続しない範囲を選択した時

 Sub selection_RowColumn_count()
 '
 '連続した選択範囲の行、列の個数を調べる
 '        連続しない離れたセルをctrlキー押して選択した時はエラーになる
 '
 dim selectionRowCount,selectionColumnCoun As Long
 dim selectionRange As object
 
  On Error Goto Er
 
     selectionRange= ThisComponent.CurrentSelection
 
         selectionRowCount=selectionRange.Rows.Count
         selectionColumnCount=selectionRange.Columns.Count
 
     msgbox  "選択範囲の行個数は　" & selectionRowCount & chr(10) _
                  &  "選択範囲の列個数は　" & selectionColumnCount ,,"選択範囲の行、列の個数"

 exit sub　　'終了

 Er:
 msgbox Error ,,"エラー"
 End Sub

 

 

コメント 2

Supersaver Meds <a href=http://apcialisle.com/#>Buy Cialis</a> Sildenafil GСЂВ nСЂВ rique <a href=http://apcialisle.com/#>Buy Cialis</a> Rash On Amoxicillin
by Janinsessy (2020-03-18 00:12) 

Site Acheter Cialis <a href=https://abcialisnews.com/#>Cialis</a> O Comprare Kamagra Montreal <a href=https://abcialisnews.com/#>Cialis</a> Buy Amoxicillin Antibiotics Online Canada
by Janinsessy (2020-04-23 03:23)