Ｐａｇｅ 607 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼publicとuserformの関係について BB 03/1/23(木) 16:19 ┣Re:publicとuserformの関係について Jaka 03/1/23(木) 17:23 ┃ ┣重ね重ね・・失礼しました・・・ ichinose 03/1/23(木) 17:32 ┃ ┗ごめんなさい。間違って書いちゃった。 Jaka 03/1/23(木) 17:43 ┗Re:publicとuserformの関係について ichinose 03/1/23(木) 17:30 ┗Re:publicとuserformの関係について BB 03/1/24(金) 16:51 ─────────────────────────────────────── ■題名 ： publicとuserformの関係について ■名前 ： BB ■日付 ： 03/1/23(木) 16:19 -------------------------------------------------------------------------
| 初心者なので教えてください。 モジュールの内でｐｕｂｌｉｃで変数を宣言してｕｓｅｒｆｏｒｍを呼び出したの ですが、ｕｓｅｒｆｏｒｍ内ではｐｕｂｌｉｃ変数が繁栄されません。 どうすればいいのですか？ Public a As Integer Public b As Integer Public c As Integer Public d As Integer Private Sub Worksheet_SelectionChange(ByVal Target As Range) Select Case Target.Address Case Is = "$B$5", "$C$5" a = 0 b = 1 c = 0 d = 1 userform2.Show End Select End Sub ”下がユーザーフォーム２です。 Private Sub CommandButton1_Click() If OptionButton1.Value Then Sheets("AA").Select Range("F32").Value = a Range("H32").Value = b Range("J32").Value = c Range("L32").Value = d Range("B28").Select userform2.Hide ElseIf OptionButton2.Value Then Sheets("AA").Select Range("F44").Value = a Range("H44").Value = b Range("J44").Value = c Range("L44").Value = d Range("F47").Select userform2.Hide End If End Sub |
| こんにちは。 Public a As Integer Public b As Integer Public c As Integer Public d As Integer 上の部分を、シートモジュールに書くか、 フォームの方をこんな感じに。 Range("F44").Value = Sheet1.a Range("H44").Value = Sheet1.b Range("J44").Value = Sheet1.c Range("L44").Value = Sheet1.d |
| ▼Jaka さん： こんにちは。 > >Public a As Integer >Public b As Integer >Public c As Integer >Public d As Integer > >上の部分を、シートモジュールに書くか、 >フォームの方をこんな感じに。 > >Range("F44").Value = Sheet1.a >Range("H44").Value = Sheet1.b >Range("J44").Value = Sheet1.c >Range("L44").Value = Sheet1.d すみません、かぶっみたいです。 |
| >上の部分を、シートモジュールに書くか、 標準モジュールです。 |
| ▼BB さん： こんばんは。 >初心者なので教えてください。 >モジュールの内でｐｕｂｌｉｃで変数を宣言してｕｓｅｒｆｏｒｍを呼び出したの >ですが、ｕｓｅｒｆｏｒｍ内ではｐｕｂｌｉｃ変数が繁栄されません。 >どうすればいいのですか？ > > >Public a As Integer >Public b As Integer >Public c As Integer >Public d As Integer > この変数どこで宣言してますか？ 標準モジュールに宣言していれば、大丈夫なはずですが・・。 それとも、どこかのシートのモジュールということでしょうか？ そうだとしたら・・・ 仮に宣言しているシートのシート名が"bb"とすると、 >Private Sub Worksheet_SelectionChange(ByVal Target As Range) > >Select Case Target.Address > Case Is = "$B$5", "$C$5" > a = 0 > b = 1 > c = 0 > d = 1 > userform2.Show > >End Select >End Sub > >”下がユーザーフォーム２です。 > >Private Sub CommandButton1_Click() > > > If OptionButton1.Value Then > Sheets("AA").Select Range("F32").Value = sheets("bb").a Range("H32").Value = sheets("bb").b Range("J32").Value = sheets("bb").c Range("L32").Value = sheets("bb").d > Range("B28").Select > userform2.Hide > > ElseIf OptionButton2.Value Then > Sheets("AA").Select Range("F44").Value = sheets("bb").a Range("H44").Value = sheets("bb").b Range("J44").Value = sheets("bb").c Range("L44").Value = sheets("bb").d > Range("F47").Select > userform2.Hide > > End If > End Sub としてはどうでしょうか？すみません、確認してないですが・・。 さ、雪かきしなくっちゃ！！ 本日、大雪です・・。 |
| みなさんご丁寧に教えてくれてありがとうございました。 |