Excel VBA質問箱 IV

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

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


2993 / 13644 ツリー ←次へ | 前へ→

【64862】名前を変更したユーザーフォームの呼び出し方 メイメイ 10/3/20(土) 2:31 質問[未読]
【64863】Re:名前を変更したユーザーフォームの呼び... Abyss 10/3/20(土) 3:46 発言[未読]
【64867】Re:名前を変更したユーザーフォームの呼び... メイメイ 10/3/22(月) 13:30 回答[未読]
【64865】Re:名前を変更したユーザーフォームの呼び... SS 10/3/21(日) 9:48 発言[未読]
【64868】Re:名前を変更したユーザーフォームの呼び... メイメイ 10/3/22(月) 13:50 回答[未読]

【64862】名前を変更したユーザーフォームの呼び出...
質問  メイメイ E-MAIL  - 10/3/20(土) 2:31 -

引用なし
パスワード
   ユーザーフォームを10個用意しました。
各フォームには東京都、大阪府、北海道・・・など都道府県の名前がつけてあります。
名前の設定は、プロパティウインドウのオブジェクト名を変更して行いました。

セルA1に都道府県の名前を入力してコマンドボタンを押下すると、対象のフォームが開くプロシージャを作りたいのですが、

Dim 県名 As Variant
県名 = Range("A1").value
県名.show

で実行すると「オブジェクトが必要です」とのエラーになります。
県名の宣言をUserFormで行っても、うまくいきません。
どなたかご教授ください。

【64863】Re:名前を変更したユーザーフォームの呼...
発言  Abyss  - 10/3/20(土) 3:46 -

引用なし
パスワード
   ご参考までに。

Dim s As String, o As Object

s = Range("A1").Value

On Error Resume Next
Set o = VBA.UserForms.Add(s)
On Error GoTo 0

If Not o Is Nothing Then o.Show

【64865】Re:名前を変更したユーザーフォームの呼...
発言  SS  - 10/3/21(日) 9:48 -

引用なし
パスワード
   ▼メイメイ さん:
こんにちは、ご質問とは直接関係ないのですが
ユーザーフォームを県別に用意した理由は何でしょうか。
共通のユーザーフォームを1個用意し呼び出し条件により
Caption等を変えた方が良いような気がします。
もし表示したいものが県ごとに全然違うのでしたら
それぞれのユーザーフォームが必要かもしれませんね。

>ユーザーフォームを10個用意しました。
>各フォームには東京都、大阪府、北海道・・・など都道府県の名前がつけてあります。
>名前の設定は、プロパティウインドウのオブジェクト名を変更して行いました。
>
>セルA1に都道府県の名前を入力してコマンドボタンを押下すると、対象のフォームが開くプロシージャを作りたいのですが、
>
>Dim 県名 As Variant
>県名 = Range("A1").value
>県名.show
>
>で実行すると「オブジェクトが必要です」とのエラーになります。
>県名の宣言をUserFormで行っても、うまくいきません。
>どなたかご教授ください。

【64867】Re:名前を変更したユーザーフォームの呼...
回答  メイメイ E-MAIL  - 10/3/22(月) 13:30 -

引用なし
パスワード
   ありがとうございました
この方法でうまくいきました

【64868】Re:名前を変更したユーザーフォームの呼...
回答  メイメイ E-MAIL  - 10/3/22(月) 13:50 -

引用なし
パスワード
   ご推察のとおり、県ごとに表示内容を変えようと考えています。
ただしフォーマットは共通で、ひとつの県あたり表示させる項目は20個ほどを見込んでいます。
たとえば「東京都」と指定すれば、東京都の各項目が表示される、いわば辞書的な使い方になるわけです。

47個のユーザーフォームの作成を予定していましたが、ご指摘を受けて考えてみると、1つのユーザーフォームを作成し、別に作ったワークシート内容を参照表示させたほうがよろしいようですね。

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