Ｐａｇｅ 414 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼アドインファイルにするとコンボボックスが使えない ぴかる 02/11/29(金) 8:28 ┗Re:アドインファイルにするとコンボボックスが使えない ぴかる 02/11/29(金) 19:54 ┗Re:アドインファイルにするとコンボボック... コロスケ 02/11/30(土) 13:50 ┗Re:アドインファイルにするとコンボボック... ぴかる 02/11/30(土) 22:44 ┗Re:アドインファイルにするとコンボボック... ぴぎゃ!!(反省中) 02/12/1(日) 0:42 ┗Re:アドインファイルにするとコンボボック... ぴかる 02/12/1(日) 1:39 ─────────────────────────────────────── ■題名 ： アドインファイルにするとコンボボックスが使えない ■名前 ： ぴかる ■日付 ： 02/11/29(金) 8:28 -------------------------------------------------------------------------
| みなさん、おはようございます。 ピカつーるの新機能が完成し、アドインにしてみたらコンボボックスが動作しなくなりました。 プロパティーの[RowSource Sheet1!C3:D4]が機能しないようです。 アドインファイルでもフラグ用としてシートに書込できましたが、これはむりなんでしょうか？。 どうぞよろしくお願い致します。 |
| みなさん、こんばんは。 RowSourceをやめてAddItemにて行ったらＯＫとなりました。ありがとうございました。 |
| ぴかる さん こんにちは。 >RowSourceをやめてAddItemにて行ったらＯＫとなりました。ありがとうございました。 解決後ですが...。アドインなどの場合はオブジェクトをしっかり指定してあげると良いみたい。ではー♪ With Application.ThisWorkbook.Sheets("Sheet1").[C3:D4] Me.ComboBox1.RowSource = .Parent.Name & "!" & .Address End With |
| コロスケさん、こんばんは。休日夜勤中のぴかるです。 >解決後ですが...。アドインなどの場合はオブジェクトをしっかり指定してあげると良いみたい。ではー♪ > >With Application.ThisWorkbook.Sheets("Sheet1").[C3:D4] > Me.ComboBox1.RowSource = .Parent.Name & "!" & .Address >End With アドバイスありがとうございます。試させて頂きました。 私なりにやってみたんですが、残念ながらうまく行きませんでした。 (Private Sub UserForm_Initialize()の中に上記マクロを入れてやってみました。） 私も始め、RowSourceに[ThisWorkbook]Sheet1!C3:D4としようとしたんですが、あかんと怒られてしまいました。そしたらどうすんねんとショックを受けてました。 何かアドバイスございましたら、よろしくお願い致します。 |
| ぴかるさん、コロスケさん、こんばんは。 >休日夜勤中のぴかるです。 まだお仕事中でしょうか… 私は先ほど解放されましたが(^^; ComboBox1.RowSource = _ ThisWorkbook.Worksheets("Sheet1").Range("C3:D4").Address(External:=True) でうまくいきました。 Windows Millennium , Excel 2000で確認しました。 それでは。 |
| ぴぎゃ!!(反省中)さん、こんばんは。 >まだお仕事中でしょうか… 私は先ほど解放されましたが(^^; はい、只今昼休み中です。朝までガンバリます。 >ComboBox1.RowSource = _ > ThisWorkbook.Worksheets("Sheet1").Range("C3:D4").Address(External:=True) > >でうまくいきました。 わたくしも、バッチリうまく行きました。誠に勝手ではありますがピカつーるに使わさせて頂こうと思います。夜遅くにありがとうございました。 |