RADIO BUTTON LINKS SWITCHING BACK TO NUMBER

Discussion in 'General Software' started by LordVankar, May 14, 2012.

  1. LordVankar

    LordVankar

    Joined:
    May 10, 2012
    Messages:
    6
    Likes Received:
    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
     
    LordVankar, May 14, 2012
    #1
    1. Advertisements

  2. LordVankar

    LordVankar

    Joined:
    May 10, 2012
    Messages:
    6
    Likes Received:
    0
    I have converted the IST TEST worksheet to pdf format so anyone who can help can see how everything is laid in relation to the code.
     

    Attached Files:

    LordVankar, May 14, 2012
    #2
    1. Advertisements

Want to reply to this thread or ask your own question?

It takes just 2 minutes to sign up (and it's free!). Just click the sign up button to choose a username and then you can ask your own questions on the forum.
Similar Threads
  1. SkullMblem

    Back-Up vs.Win Easy Transfer! Which one?

    SkullMblem, Jun 23, 2010, in forum: General Software
    Replies:
    2
    Views:
    1,227
    SkullMblem
    Jun 23, 2010
  2. Abarbarian

    BBC iPlayer - Radio Downloader

    Abarbarian, Jan 9, 2011, in forum: General Software
    Replies:
    6
    Views:
    8,191
    floppybootstomp
    Feb 11, 2011
  3. LordVankar

    Linking Radio Buttons for Test

    LordVankar, May 11, 2012, in forum: General Software
    Replies:
    3
    Views:
    544
    LordVankar
    May 14, 2012
  4. bootneck02

    Links will not work

    bootneck02, Sep 8, 2012, in forum: General Software
    Replies:
    3
    Views:
    550
    EvanDavis
    Sep 8, 2012
  5. CoopNL

    Links in Outlook 2010

    CoopNL, Oct 21, 2014, in forum: General Software
    Replies:
    2
    Views:
    663
    Encryptomatic
    Mar 6, 2015
Loading...

Share This Page