9月のカレンダー
  12345
6789101112
13141516171819
20212223242526
27282930   
最近の日記
全体の新着
各月の日記
ユーザーRSS
hanyaさんの公開日記
06月19日
01:36
アクティブセルで思い出しましたが、OOo ではアクティブセルの概念がないためセル範囲が選択されている時などはどこにしようか迷います。
セル範囲のコレクションだったときなんて・・・。

一方、セル範囲が選択されている状態で太枠線のカーソルのある場所をマクロで取得する方法を見たことがありません。

が、次のようにすればいつでも太枠線のカーソルのあるセルを取得できますね。

Sub GetCellTest
oCell = GetCellViewCursor(ThisComponent)
If NOT IsNull(oCell) Then
msgbox oCell.AbsoluteName
End If
End Sub


Function GetCellViewCursor(oDoc As Object) As Object
Dim oCell As Object
oController = oDoc.getCurrentController()

oSheets = oDoc.getSheets()
sViewData = oController.getViewData()

aData = Split(sViewData, ";")
If UBound(aData) >= 3 Then
nSheetIndex = CInt(aData(1))
If UBound(aData) >= (nSheetIndex + 3) Then
aSheetData = Split(aData(nSheetIndex + 3), "/")
If UBound(aSheetData) >= 10 Then
oCell = oSheets.getCellByPosition(aSheetData(0), aSheetData(1), nSheetIndex)
End If
End If
End If
GetCellViewCursor = oCell
End Function

何をしているのか分からなければ下記参照。
http://hermione.s41.xrea.com/pukiwiki/index.php?OOoBasic%...

Calc の太枠線のカーソル?って正しい名前あるんですかね・・・?
公開日記トップへ
oooug-jp SNS

●サイドメニュー

  • 公開日記
  • >公開日記はログインしなくても読めます

http://www.ospn.jp/

inetd