- Joined
- May 10, 2012
- Messages
- 6
- Reaction score
- 0
I have just finished creating a multiple choice test sheet using radio buttons. The answers to each of the questions is in the form of a letter, A,B,C or D. I would have it all set up the way I want, save it, then close and open the worksheet again, and all the letters turn back to numbers. How do I get it so the answers will stay in letter form. That is how my point system is based right now. It is 1 point for each correct answer and the answers are transferred to another Workbook with a Worksheet entitled IST ANSWER SHEET, In there the answers are also listed with the correct letter to each question and when the programming compares the correct ones with the ones from the TEST worksheet, it will result in a percentage. Since I cannot seem to attach the actual excel sheet, I have included the Question 1 and 2 radio buttons. I have 25 questions with only 1 of the questions having a True or False answer in the form of letter A or B.
Sub HideAllGroupBoxes()
Dim Sh As Worksheet
Dim gBox As GroupBox
Set Sh = ActiveSheet
For Each gBox In Sh.GroupBoxes
gBox.Visible = False
Next gBox
End Sub
Sub Button_1A()
ActiveSheet.Shapes("1A").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "A"
End Sub
Sub Button_1B()
ActiveSheet.Shapes("1B").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "B"
End Sub
Sub Button_1C()
ActiveSheet.Shapes("1C").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "C"
End Sub
Sub Button_1D()
ActiveSheet.Shapes("1D").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "D"
End Sub
Sub Button_2A()
ActiveSheet.Shapes("2A").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "A"
End Sub
Sub Button_2B()
ActiveSheet.Shapes("2B").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "B"
End Sub
Sub Button_2C()
ActiveSheet.Shapes("2C").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "C"
End Sub
Sub Button_2D()
ActiveSheet.Shapes("2D").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "D"
End Sub
Sub HideAllGroupBoxes()
Dim Sh As Worksheet
Dim gBox As GroupBox
Set Sh = ActiveSheet
For Each gBox In Sh.GroupBoxes
gBox.Visible = False
Next gBox
End Sub
Sub Button_1A()
ActiveSheet.Shapes("1A").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "A"
End Sub
Sub Button_1B()
ActiveSheet.Shapes("1B").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "B"
End Sub
Sub Button_1C()
ActiveSheet.Shapes("1C").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "C"
End Sub
Sub Button_1D()
ActiveSheet.Shapes("1D").Select
Range("K18").Select
ActiveCell.FormulaR1C1 = "D"
End Sub
Sub Button_2A()
ActiveSheet.Shapes("2A").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "A"
End Sub
Sub Button_2B()
ActiveSheet.Shapes("2B").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "B"
End Sub
Sub Button_2C()
ActiveSheet.Shapes("2C").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "C"
End Sub
Sub Button_2D()
ActiveSheet.Shapes("2D").Select
Range("K25").Select
ActiveCell.FormulaR1C1 = "D"
End Sub