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