Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

58563 / 76738

←次へ　｜　前へ→


	【22901】DialogSheetsとEditBoxes(1).Text について

YN61 - 05/3/6(日) 20:51 -


	引用なし

	パスワード

下のようなコードを見たのですが、実際にテストランしたいのですが
ダイアログボックスと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

0 hits

▼

【22901】DialogSheetsとEditBoxes(1).Text について YN61 05/3/6(日) 20:51

≪