LibreOffice Calc アクティブなセルの位置を得る

Posted on 2017年3月5日 By sahara Modified on 2017年3月10日

Sub Main
	Dim objCell As Object
	objCell = ThisComponent.CurrentSelection
	Msgbox("アクティブなセルの行番号 = " & objCell.CellAddress.Row & _
		Chr$(13) & _
		"アクティブなセルの列番号 = " & objCell.CellAddress.Column)
End Sub

Sub Main

Dim objCell As Object

objCell = ThisComponent.CurrentSelection

Msgbox("アクティブなセルの行番号 = " & objCell.CellAddress.Row & _

Chr$(13) & _

"アクティブなセルの列番号 = " & objCell.CellAddress.Column)

End Sub

セルが選択されていない場合はエラーになる。
エラー処理はしてない。

Sahara's WebLog

LibreOffice Calc アクティブなセルの位置を得る

コメントを残すコメントをキャンセル

LibreOffice Calc アクティブなセルの位置を得る

コメントを残す コメントをキャンセル

コメントを残すコメントをキャンセル