Excel VBA質問箱 IV

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

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


54174 / 76732 ←次へ | 前へ→

【27358】Re:ブック立ち上げ時にコンボボックスを毎回初期化する
回答  かみちゃん  - 05/8/6(土) 13:43 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>エラーメッセージ:オブジェクトは、このプロパティまたはメソッドをサポートしていません

コントロールツールボックスのコンボボックスを使うには、
 .Shapes("Taishou").Clear 'コンボボックスの初期化
ではなく
 .Taishou.Clear 'コンボボックスの初期化
とします。
以下のURLが参考になるかと思います。
http://www.serpress.co.jp/excel/vba011.html

なお、全体としては、以下のような感じでできると思います。
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 Worksheets("Sheet1").Taishou
    .Clear  'コンボボックスの初期化
    '前月をコンボボックスに追加する
    .AddItem Format(dZen_getu, strDateForm)
    '当月をコンボボックスに追加する
    .AddItem Format(dTou_getu, strDateForm)
    '次月をコンボボックスに追加する
    .AddItem Format(dRai_getu, strDateForm)
    '当月を表示させる
    .ListIndex = 1
  End With

End Sub

また、「ブックを起動したとき、システムから日付を取得し、〜」であれば、
Private Sub Workbook_Activate()
ではなく
Private Sub Workbook_Open()
でいいのではないでしょうか?

Private Sub Workbook_Activate()
を使うと、複数ブックを開いているときに、アクティブになるごとに実行されます。
1 hits

【27356】ブック立ち上げ時にコンボボックスを毎回初期化する レオポン 05/8/6(土) 13:09 質問
【27357】Re:ブック立ち上げ時にコンボボックスを毎... どらっぐすとあ 05/8/6(土) 13:25 回答
【27358】Re:ブック立ち上げ時にコンボボックスを毎... かみちゃん 05/8/6(土) 13:43 回答
【27361】Re:ブック立ち上げ時にコンボボックスを毎... レオポン 05/8/6(土) 14:04 質問
【27364】Re:ブック立ち上げ時にコンボボックスを毎... レオポン 05/8/6(土) 14:29 お礼
【27365】Re:ブック立ち上げ時にコンボボックスを毎... どらっぐすとあ 05/8/6(土) 15:20 回答
【27366】Re:ブック立ち上げ時にコンボボックスを毎... レオポン 05/8/6(土) 15:40 お礼

54174 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free