LibreOffice Calc アクティブなセルの位置を得てから右下へ移動

2017年3月5日

Sub Main
	Dim objController As Object
	Dim objSheet As Object
	Dim objCell As Object
	Dim objRow as integer
	Dim objCol as integer
	objController = ThisComponent.getCurrentController()
	objSheet = objController.Activesheet
	objCell = ThisComponent.CurrentSelection
	objRow = objCell.CellAddress.Row
	objCol = objCell.CellAddress.Column
	Msgbox("アクティブなセルの行番号 = " & objRow & _
		Chr$(13) & _
		"アクティブなセルの列番号 = " & objCol)
 	objController.select(objSheet.getCellByPosition(objCol+1, objRow+1))
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

Sub Main

Dim objController As Object

Dim objSheet As Object

Dim objCell As Object

Dim objRow as integer

Dim objCol as integer

objController = ThisComponent.getCurrentController()

objSheet = objController.Activesheet

objCell = ThisComponent.CurrentSelection

objRow = objCell.CellAddress.Row

objCol = objCell.CellAddress.Column

Msgbox("アクティブなセルの行番号 = " & objRow & _

Chr$(13) & _

"アクティブなセルの列番号 = " & objCol)

objController.select(objSheet.getCellByPosition(objCol+1, objRow+1))

End Sub

現在アクティブなセルを１セル分右下へ移動させる。
　アクティブなセルの位置を得てそれをメッセージボックスに表示する。
　これは「LibreOffice Calc アクティブなセルの位置を得る」と同じ。
　行と列の値に１加えて、アクティブなセルの右下のセルをアクティブにする。

この記事の投稿者最新記事

sahara

NEUTRINO(無料の歌声生成AI)を試す。 2025年4月3日
BASIC PITCHとWaveform Freeを使って鼻歌をMIDI音源で鳴らす。 2025年4月1日
LMMS 1.2.2でWAVファイルを鳴らしてみる。 2025年3月29日
LMMS 1.2.2でテンポを変更する。 2025年3月29日
LMMS 1.2.2でMIDIデータを鳴らすまで。 2025年3月29日

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