'=========================================================================================
'
' すぐに役立つエクセルVBAマクロ集    コンボボックス   ★ Copyright(c)1998 Yoshioh Nagai ★
'
'=========================================================================================
Option Explicit
Dim 下
'=========================================================================================
Sub コンボボックスでDBへ直接入力する()
    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 コンボボックスで入力してDBへ追加する()
    Sheets("DB").Select                         '住所録データベース用のシート
  Do
    Application.ScreenUpdating = False          '画面を更新しない
    Sheets("入力").Select                   'エディットボックスからの入力値を格納するシート
        DialogSheets(1).Show                    '入力用のダイアログ(コンボボックス等)表示
        Range("A2") = DialogSheets(1).EditBoxes(1).Text '県名をA2セルへ
        Range("B2") = DialogSheets(1).EditBoxes(2).Text '住所地をB2セルへ
'
    Sheets("DB").Select
        下 = Range("C1").End(xlDown).Row        'セルC1の列の下端検出
    Sheets("入力").Select
        Range("A2:B2").Copy                     '県名〜住所地をコピー
    Sheets("DB").Select
    Application.ScreenUpdating = True           '画面を更新する
        Range(Cells(下 + 1, 3), Cells(下 + 1, 3)).PasteSpecial Paste:=xlValues '値貼り付け
  Loop
End Sub
'-----------------------------------------------------------------------------------------
Sub コンボボックス_終了_click()
    Sheets("DB").Select
    End
End Sub
'=========================================================================================
'  サンプルマクロ  コンボボックス                                      (C)1998.9.20   V1.0
'=========================================================================================