|
▼YN61 さん:
こんばんは。
>下のようなコードを見たのですが、実際にテストランしたいのですが
>ダイアログボックスと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
シートのシート名が表示されているタブがありますよね?
例えば、Sheet1等・・・。
ここにマウスポインタを合わせて、その状態で
「右クリック」----「挿入」を選択してください。
挿入ダイアログが表示されます。
「MS Excel5.0ダイアログ」を選択してOKクリック。
これでダイアログシートが挿入されます。
後は、「フォーム」ツールーバーのコントロール内のコンボボックス(エディットボックス)を表示されているフォームに作成して下さい。
以上です。
|
|