'=========================================================================================
' 459 マウスを近づけたときに表示するための文字列を設定する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードです。
' UserForm1にもコードがあり、標準モジュールのコードと連係して動作します


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    UserForm1.Show
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆UserForm1のコード◆
'-----------------------------------------------------------------------------------------
Private Sub UserForm_Initialize()               'ユーザーフォームを初期化する
    ComboBox1.ControlTipText = "これは コンボボックス です。動作します"         '◆◆◆
    ListBox1.ControlTipText = "これは リストボックス です。動作します"          '◆◆◆
    TabStrip1.ControlTipText = "これは タブストリップ です。動作はしません"     '◆◆◆
    MultiPage1.ControlTipText = "これは マルチページ です。動作はしません"      '◆◆◆
    CommandButton1.ControlTipText = "これは コマンドボタン です。動作します"    '◆◆◆
'
    For I = 0 To 7                              'Iが0から7まで（2行-2から9行-2まで）
        ComboBox1.AddItem Worksheets("名簿").Cells(I + 2, 2).Value '名簿シートのB列
        ListBox1.AddItem Worksheets("名簿").Cells(I + 2, 2).Value '名簿シートのB列
    Next                                        '繰り返す
End Sub
'-----------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()
    Unload Me
End Sub
'=========================================================================================