1 2 3 4 5 6 7 |
Sub Main Dim objCell As Object objCell = ThisComponent.CurrentSelection Msgbox("アクティブなセルの行番号 = " & objCell.CellAddress.Row & _ Chr$(13) & _ "アクティブなセルの列番号 = " & objCell.CellAddress.Column) End Sub |
セルが選択されていない場合はエラーになる。 エラー処理はしてない。 Tweet https://neo-sahara.booth.pm