|
初めて投稿させて頂きます。
皆さん、宜しくお願いします。
ブックのワークシート上に名前をつけたフォームのコンボボックスを一つ配置し、
ブックを起動したとき、システムから日付を取得し、コンボボックスのリストに前月、今月、次月を初期表示させてワークシートを表示するプログラムを組みましたが、ブックを起動したときにエラーが出てしまいます。
何がいけないのでしょうか?
(ちなみに、表示されるワークシートには、コンボボックス以外にも情報を設定するためのオプションボタン等がいくつか表示されています。)
スペック:Windows XP および Excel 2003 SP1
エラーメッセージ:オブジェクトは、このプロパティまたはメソッドをサポートしていません
コンボボックス名:Taishou
プログラムの記入先:ThisWorkbookのWorkbook_Activate関数に以下のプログラムを記入し、ブックを起動したときに処理をするようにしました。
プログラム:
Private Sub Workbook_Activate()
Const strDateForm As String = "gggee年mm月分"
Dim dZen_getu As Date
Dim dTou_getu As Date
Dim dRai_getu As Date
Dim dNow_date
dNow_date = Date '← ここでシステム日付を取得します。
'当月日付データ
dTou_getu = dNow_date
'前月日付データ
dZen_getu = Year(dNow_date) & "/" & (Month(dNow_date) - 1)
'来月日付データ
dRai_getu = Year(dNow_date) & "/" & (Month(dNow_date) + 1)
With Workbooks(ブック名).Worksheets(シート名)
.Shapes("Taishou").Clear 'コンボボックスの初期化
'前月をコンボボックスに追加する
.Shapes("Taishou").AddItem Format(dZen_getu, strDateForm)
'当月をコンボボックスに追加する
.Shapes("Taishou").AddItem Format(dTou_getu, strDateForm)
'次月をコンボボックスに追加する
.Shapes("Taishou").AddItem Format(dRai_getu, strDateForm)
'当月を表示させる
.Shapes("Taishou").ListIndex = 1
End With
End Sub
|
|