cpsaku

## 回答データ整理プログラム
Option Explicit


Private Const DATA_BEGIN_ROW     As Long = 2


Public Sub sortAndSerialize()

    Dim ws          As Worksheet
    Dim lCol        As Long

## Excel 4択クイズ実行プログラム Ver. 1.0
Option Explicit
Dim CorrectAns, CmntRow

Private Sub UserForm_Initialize()
   info.Visible = False
End Sub

Private Sub ToggleButton5_Click()
    setQuizData


## 4択クイズ実行プログラム ver.0.2
Option Explicit
Dim CorrectAns, CmntRow

Private Sub UserForm_Initialize()
   info.Visible = False
End Sub

Private Sub ToggleButton5_Click()
    setQuizData


## 4択クイズ実行プログラム ver.0.1
Option Explicit
Dim CorrectAns

Private Sub UserForm_Initialize()
   info.Visible = False
End Sub

Private Sub ToggleButton5_Click()
    setQuizData


## 4択クイズ実行プログラム ver.0
Option Explicit
Dim CorrectAns

Private Sub UserForm_Initialize()
   info.Visible = False
End Sub

Private Sub ToggleButton5_Click()
    setQuizData


## クイズVBAエラーあり
Option Explicit
Dim CorrectAns

Private Sub UserForm_Initialize()
   info.Visible = False
End Sub

Private Sub ToggleButton5_Click()
    setQuizData
	Option Explicit


	Private Const DATA_BEGIN_ROW As Long = 2


	Public Sub sortAndSerialize()

	Dim ws As Worksheet
	Dim lCol As Long
	Option Explicit
	Dim CorrectAns, CmntRow

	Private Sub UserForm_Initialize()
	info.Visible = False
	End Sub

	Private Sub ToggleButton5_Click()
	setQuizData
	Option Explicit
	Dim CorrectAns

	Private Sub UserForm_Initialize()
	info.Visible = False
	End Sub

	Private Sub ToggleButton5_Click()
	setQuizData