Excel VBA質問箱 IV

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

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


33844 / 76738 ←次へ | 前へ→

【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というのが出てくるのですが勉強方法が悪いのでイマイチ意味が理解できなく、本を見ても...トホホ!)

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

0 hits

【48110】ユーザーフォームを使った検定ソフト 超初心者 07/4/4(水) 0:59 質問
【48115】Re:ユーザーフォームを使った検定ソフト りん 07/4/4(水) 8:36 発言
【48136】Re:ユーザーフォームを使った検定ソフト 超初心者 07/4/5(木) 1:25 お礼
【48217】Re:ユーザーフォームを使った検定ソフト 超初心者 07/4/9(月) 0:56 質問
【48218】Re:ユーザーフォームを使った検定ソフト りん 07/4/9(月) 1:05 発言
【48265】Re:ユーザーフォームを使った検定ソフト 超初心者 07/4/10(火) 17:11 お礼

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