Excel VBA質問箱 IV

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

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


51595 / 76738 ←次へ | 前へ→

【30006】コントロールボックスについて
質問  masa  - 05/10/18(火) 10:32 -

引用なし
パスワード
   エクセルのシートからボタンをクリックしてUserFormを開きます。UserFormにコンボボックス作りたいと思っています。ボタンをクリックしてUserFormは作ることができたのですがコンボボックスを追加したら動かなくなりました。

module1 には以下のものを書いてあります。
Sub ボタン1_Click()              ’・・・1.

 UserForm1.Show

End Sub
---------------------------------------------------
UserFormのコードは

Option Explicit                ’・・・2.
  Public MyData As Range
  Public MyLcount As Integer
Sub DlgShow()
  UserForm1.ComboBox1.Text = ActiveCell.Value
End Sub
--------------------------------------------------
Private Sub UserForm_Initialize()       '・・・3.
  Sheets("データ").Select
  Set MyData = Range("G2").CurrentArray
End Sub
と書きました。1.だけのときはうまくUserFormが開くのですが2.、3.を付け加えると”該当するセルが見つかりません”というエラーメッセージが出ます。どうやったら作れるのかを教えてもらえませんか。
ちなみに”入力”というシートにボタンを作り”データ”というシートのG2からG5までにリストを作っています。G2からG5を分類という名前をつけました。
私はVBAをはじめてまだ間もないため本片手に試行錯誤やっています。よろしくお願いします。
0 hits

【30006】コントロールボックスについて masa 05/10/18(火) 10:32 質問
【30043】Re:コントロールボックスについて ichinose 05/10/18(火) 19:09 発言
【30105】Re:コントロールボックスについて masa 05/10/19(水) 18:20 お礼

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