Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

33840 / 76734

←次へ　｜　前へ→


	【48110】ユーザーフォームを使った検定ソフト

超初心者 - 07/4/4(水) 0:59 -


	引用なし

	パスワード

Excelのウィンドウを非表示でユーザーフォームだけを表示した状態で一種の検定ソフトを無謀にも作成している初心者です。

ウィンドウの非表示は

Private Sub Workbook_Open()
　　OLDSTATE = Application.WindowState
　　Application.WindowState = xlMinimized
　　AppActivate "Microsoft Excel"
　　UserForm1.Show
End Sub

といった方法を利用し、設問は

If OptionButton12.Value = True Then
　　　　 Range("b9").Value = "0"
　　　ElseIf OptionButton13.Value = True Then
　　　　 Range("b9").Value = "1"
　　　ElseIf OptionButton14.Value = True Then
　　　　 Range("b9").Value = "10"
　　　Else
　　　　 OptionButton12.Value = False
　　　　 OptionButton13.Value = False
　　　　 OptionButton14.Value = False
　　　　
　　　End If

のようなものを10問づつ3つ程度（total30問）用意して、最後にその合計点によって判定を表示したいと考えています。
（0～20点は”A”、21～40点は”B”...というような）

都合6枚程度UserFormを作成し、UserForm1からUserForm2を開くのにUserForm1にボタンを作成し

Private Sub commandbutton2_click()
　　　 UserForm2.Show
End Sub

みたいな感じで一応動いています。（まだ作成途上ですが）

そこで質問なのですが

1．そもそもこのような作製法はいかがなものか？
（邪道なのか、もしそうならスマートな作成法のヒントや参考になりそうなサイトの情報等も教えていただけると幸いです）

2．UserForm1からUserForm2を開き、またUserForm1に戻る方法は？
（実行するとError400というのが出てくるのですが勉強方法が悪いのでイマイチ意味が理解できなく、本を見ても...トホホ！)

いまいち説明がうまくできなくて皆様にご迷惑をお掛けすると思いますが、恥を忍んで是非お叱りも含めたご一報をいただければ幸いです。

2 hits

▼

【48110】ユーザーフォームを使った検定ソフト 超初心者 07/4/4(水) 0:59

≪