Top > OOobbs > 97

OOobbs/97 Edit

  • サマリ: マクロでセル範囲に名前をつける方法
  • 環境: Calc
  • 状態: 解決
  • 投稿者: MST?
  • 投稿日: 2006-04-05 (水) 13:05:03

質問 Edit

特定のセル範囲にマクロで名前をつける方法を教えてください。 どうしてもわからなくて困っています。

回答 Edit

  • これで出来ます -- Kuma? 2006-04-22 (土) 15:40:18

OOo2.0.2で試したのですが、下記コードで指定したセル範囲(A1:B1)に名前(TEST1)を設定出来ました。

シートの左上にある『名前ボックス』のドロップダウンリストに(TEST1)がリストされました。

ただし、メニュー『データ』『範囲の選択』をクリックすると『データベース範囲の選択』ダイアログが出ますが、そのダイアログの中に名前(TEST1)はリストアップされませんでした。

Sub NameSet()

 Dim oRanges As Object '範囲の集合
 Dim sName$ As String  '付けたい名称
 Dim sRange As String  '名称を付けたいセル範囲指定 
 Dim oCellAddress As new com.sun.star.table.CellAddress
 sName$="TEST1"
 sRange="A1:B1"
 oRanges = ThisComponent.NamedRanges
 If oRanges.hasByName(sName$) Then
   MsgBox "範囲名がダブっているので以前の範囲名設定を解除します"
   oRanges.removeByName(sName$)
 end if
 oRanges.addNewByName(sName$,sRange,oCellAddress,0)

End Sub

  • OOo1.1.5の場合 -- Kuma? 2006-04-22 (土) 20:25:26

OOo2.0.2と同じコードをOOo1.1.5で走らせたら、 sName$="TEST1"でエラーが出ました。 全ての『sName$』から『$』記号を削除して『sName』に変更したら正常に動作しました。 OOo1.1.5ではその点に注意が必要です。

  • ありがとうございます。解決しました。 -- MST? 2006-04-29 (土) 13:38:33


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