Pergunte aqui

Perfil de yamanouchi - atividade

2016-10-05 03:32:09 +0100 Medalha recebida  Taxonomista
2014-10-22 03:52:19 +0100 Medalha recebida  Professor (fonte)
2014-10-22 03:52:19 +0100 Medalha recebida  Autodidata (fonte)
2014-10-21 08:05:50 +0100 Medalha recebida  Pergunta famosa (fonte)
2014-10-02 01:13:24 +0100 Medalha recebida  Pergunta notável (fonte)
2014-10-01 00:50:55 +0100 Medalha recebida  Pergunta popular (fonte)
2014-09-24 14:52:29 +0100 Respondeu uma pergunta Calcのマクロが動作しない

自己レスです。

Select文の直前の
Cell = oSheet.getCellRangeByName("B49")
という部分で、文字列であることを定義していなかったためのエラーでした。

Cell = oSheet.getCellRangeByName("B49") .String
とすれば、ちゃんと動作しました。

2014-09-24 14:50:16 +0100 Medalha recebida  Editor (fonte)
2014-09-22 07:17:40 +0100 Perguntou Calcのマクロが動作しない

1 コンボボックス1から地名を選び、
2 該当する地名の支店名をコンボボックス2に表示させたい
Selectで、その支店名一覧をコンボボックス2のリンクセルにコピーさせるというものですが、
うまく動作してくれません。
どなたか、ご教授いただければと思います。

Private Sub ComboBox1_Change()
Dim oDoc As Object, oSheet As Object
Dim aCellAddress As New com.sun.star.table.CellAddress
Dim aCellRangeAddress As New com.sun.star.table.CellRangeAddress
Dim oCell As String
oDoc = ThisComponent
oSheet = oDoc.Sheets(0)
Cell = oSheet.getCellRangeByName("B49")

Select Case Cell
Case "東京"
With aCellAddress
.Sheet = 0
.Column = 6
.Row = 30
End With
With aCellRangeAddress
.Sheet = 0
.StartColumn = 1
.EndColumn = 1
.StartRow = 100
.EndRow = 114
End With
oSheet.copyRange( aCellAddress, aCellRangeAddress )

………… Case Else
With aCellAddress
.Sheet = 0
.Column = 6
.Row = 30
End With
With aCellRangeAddress
.Sheet = 0
.StartColumn = 5
.EndColumn = 5
.StartRow = 100
.EndRow = 114
End With
oSheet.copyRange( aCellAddress, aCellRangeAddress )

End Select
End Sub