質問する
0

Calcのマクロが動作しない

質問日 2014-09-22 07:17:40 +0200

yamanouchi のGravatar画像

updated 2015-04-28 00:44:15 +0200

nogajun のGravatar画像

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

edit retag flag offensive close merge delete

1 Answer

1

回答日 2014-09-24 14:52:29 +0200

yamanouchi のGravatar画像

自己レスです。

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

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

edit flag offensive delete link もっと

Comments

解決してよかったです。解決済のマークしておきますね。

Naruhiko のGravatar画像Naruhiko ( 2014-10-22 03:53:04 +0200 )edit
ログイン/サインアップして回答する

質問ツール

1 follower

Stats

Asked: 2014-09-22 07:17:40 +0200

Seen: 418 times

Last updated: Sep 24 '14