|
下のようなコードを見たのですが、実際にテストランしたいのですが
ダイアログボックスとEditBoxsに付いてどのように作成すると良いのでしょうか。
またこの場合のコンボボックスは何処に作るのでしょうか。
教えてください。
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
|
|