CALC　マクロ　　H行のアクティブなセルの値を取得

CALC　マクロ　　指定した範囲のアクティブなセルの値を取得　例　H行の指定範囲のセルの中でアクティブになっているセルの値を表示

AIでマクロを作ってもらいました

H行の指定範囲のセルの中でアクティブになっているセルの値を表示
------------------------------------------------------------------------------

Sub ShowActiveCellValue()
Dim oSheet As Object
Dim oCell As Object
Dim oActiveCell As Object
Dim sValue As String

' 現在のシートを取得
oSheet = ThisComponent.CurrentController.ActiveSheet

' アクティブセルを取得
oActiveCell = ThisComponent.CurrentSelection

' アクティブセルがH10からH50の範囲内か確認
If Not oActiveCell.SupportsService("com.sun.star.sheet.SheetCell") Then
MsgBox "セルを選択してください。", 64, "エラー"
Exit Sub
End If

If oActiveCell.RangeAddress.StartColumn = 7 And _
oActiveCell.RangeAddress.StartRow >= 9 And _
oActiveCell.RangeAddress.StartRow <= 49 Then

' セルの値を取得
sValue = oActiveCell.String
MsgBox "アクティブセルの値: " & sValue, 64, "セル値"
Else
MsgBox "H10からH50の範囲外のセルが選択されています。", 48, "範囲外"
End If
End Sub

------------------------------------------------------------------------------

　LibreOffice BASIC(マクロ）

　ホームページ