'=========================================================================================
' 387 コンボボックスで入力した値をセルに順次格納する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。（概ね下半分）
' ★★★の行またはサブプロシージャーが、タイトル機能に関係するコードです。（概ね上半分）


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 下 As Long                                  '★★★
Dim タイトル As String
Dim スタイル As Long
Dim メッセージ As String
Dim 応答 As Variant


'=========================================================================================
Private Sub コンボボックスで入力した値をセルに順次格納する() '★★★
    Sheets("DB").Select                         '住所録データベース用のシート
    Do
        下 = Range("C1").End(xlDown).Row        'セルC1の列の下端検出
        DialogSheets(1).Show                    '入力用のダイアログ（コンボボックスなど）を映す
        Range(Cells(下 + 1, 3), Cells(下 + 1, 3)) = DialogSheets(1).EditBoxes(1).Text '県名をC列のセルへ
        Range(Cells(下 + 1, 4), Cells(下 + 1, 4)) = DialogSheets(1).EditBoxes(2).Text '住所地をD列のセルへ
    Loop
End Sub
'-----------------------------------------------------------------------------------------
Sub コンボボックス_終了_click()
    Sheets("Title").Select
    End
End Sub
'=========================================================================================



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    コンボボックスで入力した値をセルに順次格納する '★★★
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------