Excel VBA質問箱 IV

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

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


61248 / 76732 ←次へ | 前へ→

【20107】Re:コンボコックスでシートを切り替える...
回答  Hirofumi  - 04/11/28(日) 15:38 -

引用なし
パスワード
   ThesWorkbookのコードモジュールに以下を記述

Option Explicit

Private Sub Workbook_Open()

  With Worksheets("Sheet1")
    .OLEObjects("ComboBox1").Object.List = GetSheetNames(.Name)
  End With

End Sub

Private Function GetSheetNames(strExclusion As String) As Variant

  Dim i As Long
  Dim j As Long
  Dim vntData() As Variant
  
  With Sheets
    For i = 1 To .Count
      If .Item(i).Name <> strExclusion Then
        ReDim Preserve vntData(j)
        vntData(j) = .Item(i).Name
        j = j + 1
      End If
    Next i
  End With
  
  GetSheetNames = Application.Transpose(vntData)
  
End Function

Sheet1のコードモジュールに以下を記述

Option Explicit

Private Sub ComboBox1_Change()

  With ComboBox1
    If .ListIndex <> -1 Then
      Sheets(.Value).Activate
    End If
  End With
  
End Sub

0 hits

【20090】コンボコックスでシートを切り替えるには... もぐすたー 04/11/27(土) 22:40 質問
【20091】Re:コンボコックスでシートを切り替えるに... Kein 04/11/27(土) 23:44 回答
【20105】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 14:39 質問
【20107】Re:コンボコックスでシートを切り替える... Hirofumi 04/11/28(日) 15:38 回答
【20110】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 17:47 お礼
【20108】Re:コンボコックスでシートを切り替える... Kein 04/11/28(日) 15:40 回答
【20111】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 18:02 質問
【20115】Re:コンボコックスでシートを切り替える... Kein 04/11/28(日) 20:26 回答
【20121】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/28(日) 22:33 質問
【20122】Re:コンボコックスでシートを切り替える... Kein 04/11/29(月) 0:21 回答
【20154】Re:コンボコックスでシートを切り替える... もぐすたー 04/11/29(月) 21:04 お礼

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