LibreOffice Calc アクティブなセルの位置を得る Posted on 2017年3月5日 By sahara Modified on 2017年3月10日 Reply Visual Basic Sub Main Dim objCell As Object objCell = ThisComponent.CurrentSelection Msgbox("アクティブなセルの行番号 = " & objCell.CellAddress.Row & _ Chr$(13) & _ "アクティブなセルの列番号 = " & objCell.CellAddress.Column) End Sub 1234567 Sub Main Dim objCell As Object objCell = ThisComponent.CurrentSelection Msgbox("アクティブなセルの行番号 = " & objCell.CellAddress.Row & _ Chr$(13) & _ "アクティブなセルの列番号 = " & objCell.CellAddress.Column)End Sub セルが選択されていない場合はエラーになる。 エラー処理はしてない。 Posted under: LibreOffice
