VBAについての質問です。

Question

クイズソフトを作成してるのですが、スタートというボタンを押すと、フォーム１からフォーム２に移動するみたいなのを作成したいのですが、どうすればいいのでしょうか？
見よう見まねで作成したのですが、実行するとユーザ定義型は定義されていません。と出てきます。

Private Sub CommandButton1_Click()
Dim frm As Form2
frm = New Form2
frm.Show
End Sub

補足です。
ソースの２行目のFrom２をFrom１に変えたところ、プロパティが不正ですってでてきました

Comments

[imihito]

`Form2`というフォームは存在していますか？またユーザーフォームはオブジェクトですが、オブジェクトの代入はどのように記述しますか？

Answer 1

「質問への追記」でも指摘されていますが、「ユーザ定義型は定義されていません。」というエラーは、単純に、Form2 というフォームが存在しないからでしょう。また、「プロパティが不正です」というエラーは、オブジェクトを代入するときの構文が間違っているからです。オブジェクトの代入にはSetが必要になります。
Form2 が存在しているなら、下記のコードでエラーなく表示できます。

Private Sub CommandButton1_Click()
    Dim frm As Form2
    Set frm = New Form2
    frm.Show
End Sub

また、フォームを一つ表示するだけなら、slashさんの回答の回答のコードでもOKです。

ではどのよう時に上記のようなコードを使うかというと、Form2 を同時に複数表示させたいという時に使います。

例えば、コードを下記のように書き換えると、ボタンをクリックするたびに Form2 が表示されます。
(Form1 の ShowModalプロパティは False に設定しておくこと)

Private Sub CommandButton1_Click()
    Dim frm As Form2
    Set frm = New Form2
    frm.Show False
End Sub

frm.Show Falseと引数にFalseを設定することで、モードレス（ShowModal=False）で開きます。

ちなみに、ShowModalプロパティは 「同時に複数のインスタンスの生成を認めるかどうか」を設定するプロパティというのは微妙に間違っています。

ShowModal=True はモーダル、ShowModal=False はモードレス、という状態で開くということです。
モーダルは、そのフォームが開いている間はVBAコードは進まない、ユーザーはそのフォーム以外は触ることができないという動作、モードレスはその逆の動作（コードは進む、触ることができる）という違いです。

下記の２つのコードでモーダルとモードレスの動作の違いを確認してください。

Private Sub モーダルで開く()
    Dim Frm As UserForm2, Frm2 As UserForm2
    
    'ShowModalの設定に関係なく複数インスタスの生成は可能
    Set Frm = New UserForm2
    Set Frm2 = New UserForm2 
    
    Frm.Show True 'モーダル
    'Frmを閉じるとFrm2が表示される
    Frm2.Show True 'モーダル
End Sub

Private Sub モードレスで開く()
    Dim Frm As UserForm2, Frm2 As UserForm2
    
    'ShowModalの設定に関係なく複数インスタスの生成は可能
    Set Frm = New UserForm2
    Set Frm2 = New UserForm2
    
    Frm.Show False  'モードレス
    Frm2.Show False 'モードレス
    '重なって表示されるので、Frm2の位置を少しずらす
    Frm2.Top = Frm.Top + 50
    Frm2.Left = Frm.Left + 50
End Sub

Comments

[ExcelVBAer]

差し出がましいとは思いますが、
「モーダル」の方が一般的かと思います。

[hatena19]

あら、(｡>﹏<｡)
さっそく、修正しておきます。

[ExcelVBAer]

なんかすいません ^^;

[hatena19]

いえいえ、指摘されなかったら、この先ずっと恥をかきつづけるところでした ^^;

Answer 2

スタートボタンがあるフォームをForm1と仮定した場合、
何らかの方法で、form1.showとしますね。

で、その後に
form1の中のCommandButton1(スタートボタン）をクリックするイベントが発動するわけですね。

Private Sub CommandButton1_Click()
    msgbox "pwnd"
End sub

ここで、thisworkbookの中にForm1のほかに、thisworkbookにForm2があるとすれば、下のコードは不要になりますね。たぶんAs Form2の部分がVBAにとって「Form2という型って何？」を引き起こしています。

Dim frm As Form2

frm = New Form2
frm.Show

具体的には、（走らせていませんが）以下の通りで行けるはずです。

Private Sub CommandButton1_Click()
    Form2.show
End sub

Answer 3

slashさんの回答で概ね正しいですが、フォームについて理解して置くべき点があると思いましたので
補足させてください。

VBAにおいて、フォーム(今回でいうForm1, Form2)には、
ShowModal
というプロパティがあります。
このプロパティは「同時に複数のインスタンスの生成を認めるかどうか」を設定するプロパティです。

これは初期状態ではFalseになっています。
この状態では、インスタンスの生成は出来ません。
つまり、この状態では型宣言や New は出来ません。
なので、VBAで「ユーザ定義型は定義されていません。」(＝自分で作ったクラス、かつインスタンス生成できるものにないよ)というエラーが出ます。

しかし、このプロパティを True にした場合、koarakko様が記載された
「型宣言をしてインスタンスを生成する」
という行為ができるようになります。

もしかすると、クイズの場合、
同じフォームを使いまわして文言だけを変更したりするなど、
同じフォームを同時に表示したいケースがあるかもしれません。
その場合、上記プロパティを True にした上で New を実施すれば良いです。