Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54181 / 76737

←次へ　｜　前へ→


	【27356】ブック立ち上げ時にコンボボックスを毎回初期化する

レオポン - 05/8/6(土) 13:09 -


	引用なし

	パスワード

初めて投稿させて頂きます。
皆さん、宜しくお願いします。

ブックのワークシート上に名前をつけたフォームのコンボボックスを一つ配置し、
ブックを起動したとき、システムから日付を取得し、コンボボックスのリストに前月、今月、次月を初期表示させてワークシートを表示するプログラムを組みましたが、ブックを起動したときにエラーが出てしまいます。
何がいけないのでしょうか？
（ちなみに、表示されるワークシートには、コンボボックス以外にも情報を設定するためのオプションボタン等がいくつか表示されています。）

スペック：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

0 hits

▼

【27356】ブック立ち上げ時にコンボボックスを毎回初期化する レオポン 05/8/6(土) 13:09

≪