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 質問
【22906】Re:DialogSheetsとEditBoxes(1).Text につ... ichinose 05/3/6(日) 22:46 発言
【22910】Re:DialogSheetsとEditBoxes(1).Text につ... YN61 05/3/7(月) 8:02 質問
【22911】Re:DialogSheetsとEditBoxes(1).Text につ... ichinose 05/3/7(月) 8:33 発言
【23076】Re:DialogSheetsとEditBoxes(1).Text につ... YN61 05/3/12(土) 10:27 お礼

58563 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free