Top > OOobbs > 73
** [[OOobbs/73]] [#i71fb980]
-''サマリ'': sheetオブジェクトから、sheetIndexは取得できない?
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[しいな]]
-''投稿日'': 2005-06-27 (月) 15:21:21

*** 質問 [#q486d13c]
ThisComponent.getSheets().getByName("表2")
のように取得したオブジェクトから、シートインデクッスを取得できないのでしょうか?また、同様に、シート指定はシート名前で指定し、そのシートのインデックスを取得する方法が他にあるのでしょうか?
また、それぞれの文章に対してのアクセスの為の書式構造がさっぱりわかりません。
http://www.opendt.org/pukiwiki/pukiwiki.php?Translation
にある「デベロッパーズガイド翻訳一式」を読めばいいのでしょうか?「OpenOffice.org Basic」利用からだけあればよいのですが、どのように習得していったらいいのかわかりません。答えではなく、習得手法で結構ですので、教えていただけませんでしょうか?
*** 回答 [#e8518bc8]
-[[OOobbs/71]] にはアクティブシートのインデックスを取得する方法が載っています。

これを使って、

 Sub sheetindex()
 Dim oDoc As Object, oController As Object
 Dim oSheets As Object, oSheet As Object
 Dim sActiveSheetName As String
 Dim i As Integer
   oDoc = ThisComponent
   oSheets = oDoc.getSheets()
   oSheet = oSheets.getByName("表2")
   sSheetName = oSheet.Name
   For i = 0 To oSheets.getCount() -1
     If oSheets.getByIndex(i).Name = sSheetName Then
       MsgBox i
       Exit For
     End If
   Next i
 End Sub

のようにします。

シートオブジェクトから直接シートのインデックスを取得するために使用できるプロパティーもしくはメソッドはありません。

-- [[はにゃ?]] &new{2005-06-27 (月) 17:25:53};
-ありがとうございます。自前で作るしかないのですね。また、すでに同様のサンプルが乗っているのに気づかず申し訳ありませんでした。 -- [[しいな]] &new{2005-06-27 (月) 18:29:33};

#comment

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes