エクセルVBAでユーザーフォームのコマンドボタンをクリックするたびに

解決済

質問者：miho_feb5
質問日時：2009/12/17 23:11
回答数：3件

社内アンケートを作っています。質問は８０問あり、１問ごとにユーザーフォームが表示されます。ユーザーフォームには「次へ進む」のコマンドボタンと質問内容を表示させるテキストボックスがあり、１問目を答えて「次へ進む」をクリックすると２問目の質問が表示され、さらに「次へ進む」をクリックすると３問目が表示されるという風にしたいのですが、２問目以降の質問を表示させられません。うまく表示させるにはどういうコードにすればよいのでしょうか？

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.1ベストアンサー

回答者： lotilyxoen
回答日時：2009/12/18 05:13

回答形式が不明なのでオプションボタンを2つ配置しYes,Noの二択で答えるということにしました。

参考までに。

使用コントロール
TextBox1
cmdSusumu
optYes
optNo

'コードここから
Dim Question(80) As String
Dim QNo As Long

Private Sub UserForm_Initialize()
Question(1) = "1ですか？"
Question(2) = "2ですか？"
Question(3) = "3ですか？"
'　　：
Question(80) = "80ですか？"

QNo = 1
TextBox1.Text = Question(QNo)
End Sub

'次へ進むボタン
Private Sub cmdSusumu_Click()

If optYes Or optNo Then　　'回答しないと進めない

If optYes Then
'yesを記録
optYes.Value = False
Else
'noを記録
optNo.Value = False
End If

If QNo < 80 Then　　'次の問題の表示
QNo = QNo + 1
TextBox1.Text = ""
TextBox1.Text = Question(QNo)
End If

End If
End Sub

- 1
- 件

通報する

この回答へのお礼

ありがとうございました！
オプションボタンはラジオボタンのことでしょうか？説明不足でしたが回答はラジオボタンで５段階評価、回答結果はシートに入力・保存しています。
変数の宣言に対して苦手意識を持っているので、Dim i As ～とかってなるとそれだけでため息出ちゃいます。

通報する

お礼日時：2009/12/18 21:53

No.2

回答者： winarrow07
回答日時：2009/12/18 12:49

やり方は色々あると思いますが、肝心の回答結果などをどうするのかが分かりません。

次へで次の質問を出すのは簡単ですが、回答をどう管理したいのか等がわかりません。集計したりするんでしょうから重要だと思います。
結果をどこかのシート等に保存していかないと回答してエクセルを終了したら回答結果はどこにも残らないし。また1人に1ファイル配ってやらせるのか共有フォルダに置いておいてやらせるのかなどによっても変わってくるだろうし。