|
エクセルのシートからボタンをクリックして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をはじめてまだ間もないため本片手に試行錯誤やっています。よろしくお願いします。
|
|