Calc(23)セルやセル範囲のアドレスの取得方法

前の関連記事：Calc(22)セル範囲とセル範囲コレクションのサービスとインターフェイスの比較

文字列アドレスの取得

def macro():
 doc = XSCRIPTCONTEXT.getDocument()  # ドキュメントを取得。
 controller = doc.getCurrentController()  # ドキュメントのコントローラ。
 selection = controller.getSelection()  # 選択しているオブジェクトを取得。
 cellranges = doc.createInstance("com.sun.star.sheet.SheetCellRanges")  # com.sun.star.sheet.SheetCellRangesをインスタンス化。
 cellranges[""] = selection  # セル範囲のコレクションに挿入する。名無しでもいい模様。
 address = cellranges.getRangeAddressesAsString()  # 文字列でアドレスを取得。
 sheets = doc.getSheets()  # シートコレクション。
 sheet = sheets[0]  # 最初のシート。
 sheet[0, 0].setString(address)  # A1セルに出力。

def macro():
 doc = XSCRIPTCONTEXT.getDocument()  # ドキュメントを取得。
 selection = doc.getCurrentSelection()  # 選択しているオブジェクトを取得。
 cellranges = doc.createInstance("com.sun.star.sheet.SheetCellRanges")  # com.sun.star.sheet.SheetCellRangesをインスタンス化。
 cellranges[""] = selection  # セル範囲のコレクションに挿入する。名無しでもいい模様。
 address = cellranges.getRangeAddressesAsString()  # 文字列でアドレスを取得。
 sheets = doc.getSheets()  # シートコレクション。
 sheet = sheets[0]  # 最初のシート。
 sheet[0, 0].setString(address)  # A1セルに出力。

com.sun.star.sheet.SheetCellRangesサービス

インデックスアドレスの取得

def macro():
 doc = XSCRIPTCONTEXT.getDocument()  # ドキュメントを取得。
 sheets = doc.getSheets()  # シートコレクション。
 sheet = sheets[0]  # 最初のシート。
 sheet.clearContents(511)  # シートのすべてを削除。
 selection = doc.getCurrentSelection()  # 選択しているオブジェクトを取得。
 # インデックスアドレスを取得する。
 if hasattr(selection, "getCellAddress"):  # セルのとき
  celladdress = selection.getCellAddress()
  sheet["A1"].setString("Sheet: {}, Row: {}, Column: {}".format(celladdress.Sheet, celladdress.Row, celladdress.Column))  # A1セルに出力。
 elif hasattr(selection, "getRangeAddress"):  # セルではなくセル範囲のとき
  cellrangeaddress = selection.getRangeAddress()
  sheet["A1"].setString("Sheet: {}, StartRow: {}, EndRow: {}, StartColumn: {}, EndColumn: {}"\
   .format(cellrangeaddress.Sheet, cellrangeaddress.StartRow, cellrangeaddress.EndRow, cellrangeaddress.StartColumn, cellrangeaddress.EndColumn))  # A1セルに出力。
 elif hasattr(selection, "getRangeAddresses"):  # セル範囲コレクションのとき
  cellrangeaddresses = selection.getRangeAddresses()
  for i, cellrangeaddress in enumerate(cellrangeaddresses):
   sheet[i, 0].setString("Sheet: {}, StartRow: {}, EndRow: {}, StartColumn: {}, EndColumn: {}"\
    .format(cellrangeaddress.Sheet, cellrangeaddress.StartRow, cellrangeaddress.EndRow, cellrangeaddress.StartColumn, cellrangeaddress.EndColumn))  # A1セルに出力。

com.sun.star.table.CellAddressConversionでインデックスアドレスを文字列アドレスに変換する

def macro():
 ctx = XSCRIPTCONTEXT.getComponentContext()  # コンポーネントコンテクストの取得。
 smgr = ctx.getServiceManager()  # サービスマネージャーの取得。 
 tcu = smgr.createInstanceWithContext("pq.Tcu", ctx)  # サービス名か実装名でインスタンス化。
 doc = XSCRIPTCONTEXT.getDocument()  # Calcドキュメント。
 celladdressconversion = doc.createInstance("com.sun.star.table.CellAddressConversion")
 tcu.wtree(celladdressconversion)

def macro():
 doc = XSCRIPTCONTEXT.getDocument()  # ドキュメントを取得。
 sheets = doc.getSheets()  # シートコレクション。
 sheet = sheets[0]  # 最初のシート。
 sheet.clearContents(511)  # シートのすべてを削除。
 selection = doc.getCurrentSelection()  # 選択しているオブジェクトを取得。  
 # インデックスを文字列アドレスに変換して出力数する。
 props = "ReferenceSheet", "PersistentRepresentation", "UserInterfaceRepresentation", "XLA1Representation"
 if hasattr(selection, "getCellAddress"):  # セルのとき
  celladdressconversion = doc.createInstance("com.sun.star.table.CellAddressConversion")
  celladdressconversion.Address = selection.getCellAddress()
  for i, prop in enumerate(props):
   sheet[i, 0].setString(prop)
   sheet[i, 1].setString(getattr(celladdressconversion, prop))
  sheet[:, :2].getColumns().setPropertyValue("OptimalWidth", True)  # 列幅を最適化する。
 else:
  cellrangeaddressconversion = doc.createInstance("com.sun.star.table.CellRangeAddressConversion") 
  if hasattr(selection, "getRangeAddress"):  # セルではなくセル範囲のとき
   cellrangeaddressconversion.Address = selection.getRangeAddress()
   for i, prop in enumerate(props):
    sheet[i, 0].setString(prop)
    sheet[i, 1].setString(getattr(cellrangeaddressconversion, prop))
   sheet[:, :2].getColumns().setPropertyValue("OptimalWidth", True)  # 列幅を最適化する。
  elif hasattr(selection, "getRangeAddresses"):  # セル範囲コレクションのとき
   cellrangeaddresses = selection.getRangeAddresses()
   for i, prop in enumerate(props):  # A列にプロパティ名を表示。
    sheet[i, 0].setString(prop)
   for j, cellrangeaddress in enumerate(cellrangeaddresses, start=1):
    cellrangeaddressconversion.Address = cellrangeaddress
    for i, prop in enumerate(props):
     sheet[i, j].setString(getattr(cellrangeaddressconversion, prop)) 
   sheet[:, :j+1].getColumns().setPropertyValue("OptimalWidth", True)  # 列幅を最適化する。 

AbsoluteNameで文字列アドレスを取得する方法

def macro():
 doc = XSCRIPTCONTEXT.getDocument()  # ドキュメントを取得。
 sheets = doc.getSheets()  # シートコレクション。
 sheet = sheets[0]  # 最初のシート。
 sheet.clearContents(511)  # シートのすべてを削除。
 selection = doc.getCurrentSelection()  # 選択しているオブジェクトを取得。      
 # インデックスを文字列アドレスに変換して出力数する。AbsoluteNameを使う方法。
 absolutename = selection.getPropertyValue("AbsoluteName") # セル範囲コレックションは$Sheet1.$A$4:$A$6,$Sheet1.$B$4という形式で返る。
 names = absolutename.replace("$", "").split(",")  # $を削除してセル範囲のリストにする。
 addresses = []
 for name in names:
  addresses.append(name.split(".")[-1])  # シート名を削除する。
 ", ".join(addresses)
 sheet["A1"].setString(", ".join(addresses))

セルまたはセル範囲、セル範囲コレクションから文字列アドレスを返す関数

def getRangeAddressesAsString(rng):  # セルまたはセル範囲、セル範囲コレクションから文字列アドレスを返す。
 absolutename = rng.getPropertyValue("AbsoluteName") # セル範囲コレクションは$Sheet1.$A$4:$A$6,$Sheet1.$B$4という形式で返る。
 names = absolutename.replace("$", "").split(",")  # $を削除してセル範囲のリストにする。
 addresses = []  # 出力するアドレスを入れるリスト。
 for name in names:  # 各セル範囲について
  addresses.append(name.split(".")[-1])  # シート名を削除する。
 return ", ".join(addresses)  # コンマでつなげて出力。

参考にしたサイト

次の関連記事:Calc(24)セルカーサーでセル範囲を変更する