Sample Macro  その他・サンプルマクロ Previous Next

3) コンボボックスでDBへ直接入力 このページのトップへ もくじへ 使用可能なExcelのバージョン
'=================================================================================

 すぐに役立つエクセル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
'=================================================================================
<コメント>
ダウンロード すれば実際に動かして試せます。

Excel VBA Macro