[[20051014124904]]　『コンボボックスで選択したシート名の表示』（ＹＡ）　ページの最後に飛ぶ

『コンボボックスで選択したシート名の表示』（ＹＡ）

　表示させていないシート名（例：1月）をコンボボックスのリストに設定し、

　コンボボックスで1月を選択したら、該当するシート（1月のシート）が開く

　設定をしたいのですが、どうしたらいいのかわかりません。どなたか教えて下さい。

　宜しくお願いします。

 何のコンボボックスを使うのでしょうか？
 EXCELには３種類ありますが？
  (INA)

 コントロールツールで作成するフォームコンボボックスなのですが・・・。(YA)

 種類は、
 ユーザーフォーム上のコンボボックス
 シート上のコントロールボックスのコンボボックス
 シート上のフォームのコンボボックス
 になります。

 ユーザーフォームでしょうか？

 Private Sub ComboBox1_Change()
    Worksheets(ComboBox1.Value).Activate
 End Sub

 Private Sub UserForm_Initialize()
 Dim i As Long
    For i = 1 To Worksheets.Count
        If ActiveSheet.Name <> Worksheets(i).Name Then
            ComboBox1.AddItem Worksheets(i).Name
        End If
    Next i
 End Sub

 ううっ・・
  (INA)

 すいません。ちょっと、よくわからないですが、
　シート上に、コントロールツールボックスを作成しました。
　それだと、どうなりますか？？？　　（YA）

 目次みたいな使い方をしたいのでしょうか？

 シートタブの左側で右クリックすれば、シート移動のショートカットメニュー
 が表示されますけど・・

 あと、VBAを使うなら入力規則のリスト＋changeイベントという方法もあります。

 'sheetモジュール
 Private Sub ComboBox1_Change()
    Worksheets(ComboBox1.Value).Activate
 End Sub

 'thisworkbookモジュール
 Private Sub Workbook_Open()
 Dim i As Long
    For i = 1 To Worksheets.Count
        If ActiveSheet.Name <> Worksheets(i).Name Then
            Sheet1.ComboBox1.AddItem Worksheets(i).Name
        End If
    Next i
 End Sub
  (INA)

 Sheetsﾓｼﾞｭｰﾙというので解決しました！
　もうひとつ教えていただきたいのですが、リストの中に何も選択しないという
　意味の空欄設定をするとｴﾗｰがでます。
　空欄を選んでもｴﾗｰが出ないようになりますか？
　それから、ﾌｧｲﾙを一旦閉じて、再度開くときにはﾘｽﾄ欄が初期化されている
　状態で開くという設定はできますか??
  (YA)

  'sheetモジュール
 Private Sub ComboBox1_Change()
  ON ERROR RESUME NEXT '
    Worksheets(ComboBox1.Value).Activate
 End Sub

 'thisworkbookモジュール
 Private Sub Workbook_Open()
 Dim i As Long

 with worksheets("Sheet1")
    .select '
    .ComboBox1.clear '

    For i = 1 To Worksheets.Count
        If ActiveSheet.Name <> Worksheets(i).Name Then
            .ComboBox1.AddItem Worksheets(i).Name
        End If
    Next i

 end with
 End Sub

   (INA)

 たびたびすいません。
　この間質問した件は、解決しました！
　次にまた質問なのですが、通常は表示しないシートを
　ｺﾝﾎﾞﾎﾞｯｸｽで開きたいのですが、シートを隠してしまったら
　教えてもらったﾓｼﾞｭｰﾙではうまくいきませんでした。
　それから、こないだも質問したのですが、一旦ﾌｧｲﾙを閉じて
　再度開くときには、シートの表示もｺﾝﾎﾞﾎﾞｯｸｽの値も初期化
　されている状態にしたいのですが。。。
　宜しくお願いします。(YA)

 >シートを隠してしまったら
 >教えてもらったﾓｼﾞｭｰﾙではうまくいきませんでした。
 シートを再表示する処理を追加してください。
 コードはマクロの記録で出来ます。

 >再度開くときには、シートの表示もｺﾝﾎﾞﾎﾞｯｸｽの値も初期化
 >されている状態にしたいのですが。。。
 これを追加してありますが、意味が違うのでしょうか？
  .select '
  .ComboBox1.clear '

  (INA)

繧ｳ繝ｳ繝懊・繝・け繧ｹ繧剃ｽｿ逕ｨ縺励◆Excel縺ｮ讀懃ｴ｢繝輔か繝ｼ繝�
遘√・髱槫ｸｸ縺ｫ闊亥袖豺ｱ縺・虚逕ｻ繧定ｦ九▽縺代∪縺励◆縲�
繝ｪ繝ｳ繧ｯ・�http://www.youtube.com/watch?v=oMf8tHxAqsQ
繝悶Ο繧ｰ・�http://excelminiapps.blogspot.com.ar

コメント返信：

[ 一覧(最新更新順) ]

[[20051014124904]] 『コンボボックスで選択したシート名の表示』（ＹＡ） ページの最後に飛ぶ

[[20051014124904]]　『コンボボックスで選択したシート名の表示』（ＹＡ）　ページの最後に飛ぶ