Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8465 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【33131】ユーザーフォーム１と２ 卵 06/1/3(火) 14:26 質問[未読]
【33134】Re:ユーザーフォーム１と２ かみちゃん 06/1/3(火) 15:12 発言[未読]
【33135】Re:ユーザーフォーム１と２ 卵 06/1/3(火) 15:21 回答[未読]
【33136】Re:ユーザーフォーム１と２ かみちゃん 06/1/3(火) 15:29 発言[未読]
【33149】Re:ユーザーフォーム１と２ 卵 06/1/3(火) 18:18 質問[未読]
【33152】Re:ユーザーフォーム１と２ 卵 06/1/3(火) 18:20 質問[未読]
【33154】Re:ユーザーフォーム１と２ かみちゃん 06/1/3(火) 18:33 発言[未読]
【33168】Re:ユーザーフォーム１と２ [名前なし] 06/1/4(水) 12:18 質問[未読]
【33131】ユーザーフォーム１と２
質問  卵  - 06/1/3(火) 14:26 -
引用なし
パスワード
   ユーザーフォーム１と２があって、１にｺﾏﾝﾄﾞﾎﾞﾀﾝをつくり、クリックするとユーザーフォーム２が現れる設定をしたのですが、うまく処理が出来ません。
ﾃﾞｰﾀｼｰﾄに
　A,b,C,D,E,F,G列
1
2
3
4
5
ユーザーフォームはコンボボックスがあり
Label1.Caption = Range("ﾃﾞｰﾀｼｰﾄ!A1").Offset(ComboBox1.ListIndex).Value
と言うかんじで、A列のものをラベルに移していきます。
その時に、コマンドボタンを押すと、ユーザーフォーム２が現れ、
コンボボックスの選んだ行のE、F、G列のものが現れるようにしたいのですが、
ユーザーフォーム２を開いたままで、ユーザーフォーム１のコンボボックスの
ﾘｽﾄを選択するとエラーが出てしまいます。
どうしたらよいでしょうか？
【33134】Re:ユーザーフォーム１と２
発言  かみちゃん E-MAIL  - 06/1/3(火) 15:12 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Label1.Caption = Range("ﾃﾞｰﾀｼｰﾄ!A1").Offset(ComboBox1.ListIndex).Value
>と言うかんじで、A列のものをラベルに移していきます。
>その時に、コマンドボタンを押すと、ユーザーフォーム２が現れ、
>コンボボックスの選んだ行のE、F、G列のものが現れるようにしたい

ComboBoxの内容は、どのように設定していますか？
Label1.Caption等への反映のさせ方も見直しされたほうがよろしいかと思います。
【33135】Re:ユーザーフォーム１と２
回答  卵  - 06/1/3(火) 15:21 -
引用なし
パスワード
   ROWSOURCE　=番号とし番号は、名前にてﾃﾞｰﾀｼｰﾄの番号列を登録しています。
【33136】Re:ユーザーフォーム１と２
発言  かみちゃん E-MAIL  - 06/1/3(火) 15:29 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>RowSource　=番号

データシートの番号列ということですが、この番号は、1番ごと続き番号でいいですか？
卵さんの使い方では、「続き番号であること」が制約条件になるのですが・・・

なお、〜.Offset(UserForm1.ComboBox1.ListIndex).Value〜
としてはいかがでしょうか？
【33149】Re:ユーザーフォーム１と２
質問  卵  - 06/1/3(火) 18:18 -
引用なし
パスワード
   かみちゃんさん
ありがとうございます。
エラーは出なくなりました。
Private Sub ComboBox1_Change()
Label1.Caption = Range("ﾃﾞｰﾀｼｰﾄ!A8").Offset(UserForm1.ComboBox1.ListIndex).Value
End Sub
Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Private Sub ComboBox2_Change()
Label13.Caption = Range("ﾃﾞｰﾀｼｰﾄ!N8").Offset
(UserForm2.ComboBox1.ListIndex).Value
End Sub
と言うようにしてみたのですが、コンパイルエラーやオブジェクトなしの
エラーは出なくなったのですが、今度は、ユーザーフォーム２のラベルに
写るはずの内容が写りません。
理想としては、ユーザーフォーム１のコンボボックスをチェンジしたときに
その値に対する内容がユーザーフォーム2に写ってくれるとありがたいですが。
どうしたらよいですか？
【33152】Re:ユーザーフォーム１と２
質問  卵  - 06/1/3(火) 18:20 -
引用なし
パスワード
   かみちゃんさん
ありがとうございます。
エラーは出なくなりました。
Private Sub ComboBox1_Change()
Label1.Caption = Range("ﾃﾞｰﾀｼｰﾄ!A8").Offset(UserForm1.ComboBox1.ListIndex).Value
End Sub
Private Sub CommandButton2_Click()
UserForm2.Show
End Sub

Private Sub ComboBox2_Change()
Label13.Caption = Range("ﾃﾞｰﾀｼｰﾄ!N8").Offset
(UserForm2.ComboBox2.ListIndex).Value
End Sub
と言うようにしてみたのですが、コンパイルエラーやオブジェクトなしの
エラーは出なくなったのですが、今度は、ユーザーフォーム２のラベルに
写るはずの内容が写りません。
理想としては、ユーザーフォーム１のコンボボックスをチェンジしたときに
その値に対する内容がユーザーフォーム2に写ってくれるとありがたいですが。
どうしたらよいですか
【33154】Re:ユーザーフォーム１と２
発言  かみちゃん  - 06/1/3(火) 18:33 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>理想としては、ユーザーフォーム１のコンボボックスをチェンジしたときに
>その値に対する内容がユーザーフォーム2に写ってくれる

各コントロールが、UserForm1、UserForm2のどちらにあるのかよくわからいのですが、
Label3.Caption = 〜 の前に、UserForm1.Label3.Caption = 〜　のように
UserForm名を明示してあげればいいと思います。
なお、
UserForm1.Label3.Caption = 〜
DoEvents
としてフォームの表示を更新させたほうがいいかもしれません。

[#33152]とは、二重投稿ですか？
【33168】Re:ユーザーフォーム１と２
質問  [名前なし]  - 06/1/4(水) 12:18 -
引用なし
パスワード
   ▼コントロール（コマンドボタン、コンボボックス）は、ユーザーフォーム１にあり、コマンドボタンを押すとユーザーフォーム2が現れますが、ラベルはすべて、データｼｰﾄの項目を参照しています。コンボボックスにデータNo.が入っており、
ラベル順に、Ａ，Ｂ，Ｃ，列を参照する事になっています。
ユーザーフォーム1ではＡ，Ｂ，を、ユーザーフォーム2ではＣ，Ｄ列をコンボボックスをチェンジした時に写したいのです。そして、ユーザーフォーム2は、コンボイボックスで参照したいNo.を選び、ユーザーフォーム1に参照項目が映った後、コマンドボタンをクリックすると、コンボボックスで選んだNo.に対してのＣ列Ｄ列のセル内容が映るようなものを作りたいのですが。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8465 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free