Free Microsoft Excel 2013 Quick Reference

help - create a multiple choice test

I want to be able to have the person put an "X" in a cell or check a
cell and have a numeric value appear in a column to the right of the
test. Does anyone know if this is possible?

Post your answer or comment

comments powered by Disqus
I want to be able to have the person put an "X" in a cell or check a
cell and have a numeric value appear in a column to the right of the
test. Does anyone know if this is possible?

I'm trying to create a multiple choice test in Excel (2002) format and I
would like to create an icon of a box, that when clicked on, will insert a
check in the box (a macro would be running in the background that would keep
a running tally of correct scores). How can I do this?

How do you program a button to give results of a multiple choice test created with a form in excel. It should give the percent grade based on the number of right answers and how do you make a reset button?


I need help creating a Inventory control spreadsheet with multiple
warehouses. I need to be able to link them together. How or if can this be

I need help creating a cost range for the following scenario.
If the value of cell A1 falls between 0-300 I need the following cell A2 to
say $0-$300 or if A1 was 389 I would need A2 to say $300-$600 and so on. In
need it broke down in $300 increments to $6000. Thank You

I need help creating a formula for a worksheet I need for work. Listed below are the colums I will be working with.

a. Insurance
b. Initial Evaluation Date
c. Re-registration Date
d. Prescription Expiration Date

This is what I need. If column "a" says either "Medicare" or "Medicaid", then add 30 business days to the date that's in column "b" and reflect that new date in column "c" , but if column "a" dosent say "Medicare" or Medicaid" then add 90 business days to the date in column "b" and reflect that date in column "c". I don't want Saturday or Sunday to be counted (if that's possible) If not I'll work with the formula. Thank you soooo much.

I need help creating a macro to copy from a cell in sheet1 to a cell in
sheet1. Though when it pastes I can't have it fill the same cell over
again I need it to paste it in the next cell down from it.


Sheet1 -> Sheet2

B12 -> B2
D12 -> C2
I5 -> A2
I17 -> E2
G12 -> D2
I22 -> F2
I27 -> G2

I have merged cells from B through G with rows 16-28 needing to be
copied to H2 but become unmerged in the seperate sheet. Can anyone
help me out?


I'm not sure if anyone knows the answer to this, but here's my problem:

I want to have a multiple-choice quiz with questions that the user fills out. At the end of the test, the user is given a suggestion based on their answers.

For example, let's say this is a quiz for what car would be the best for you to buy. You answer questions like, "Is four wheel drive important to you?" or "What year do you want the model to be?" If you said yes to the first question, then one of the possible cars that may be suggested to you at the end (let's say Volkswagen) gets "points." At the end of the test, the car in the list of possible outcomes with the most points is suggested to the user as the best car for them.

The problem is, I've made something like this in Excel, and it works exactly like I want it to. But no one wants to download an Excel document and fill in the multiple-choice questions by putting answers into the cells, and it looks unprofessional.

Is there any way to somehow take all this Excel information and the formulas I've created and convert it into a better format, or is there some way to do all this without Excel? It would be better if I could have this in a professional-looking test sheet that can be put on a web page for people to take, instead of downloading an .xls Excel document and doing it that way. It would also be nice if I could create the design in Photoshop so I could control how the test looks. But I don't have programming knowledge, so I'm not sure if this is possible to do without Excel.

If anyone could help I'd really appreciate it. Let me know if I didn't explain my problem clearly.

Thanks for any help!


I am not very savvy on VBA. I am trying to create a test in excel using option buttons. What I would like is:

1) A score button that only the examiner has access to (password protected). Once the score button is pressed, it will populate the total score in the appropriate field.

2) Ability to list which questions were answered incorrectly. (Only once "Score" button pressed)

3)Ability to reset the test by clicking on the image (password protected)

A few additions.
-This will be a template for other tests.
-Number of questions may change
-Not all questions will have 4 answers
-Will be printing the test
-If an answer sheet is needed, then will need to hide the sheet until admin password is entered.
-Needs to be done in excel

I know this is a lot to ask, but if anyone can help in the creation of this, I appreciate it. I am trying to create it myself, but again, I am not VBA smart.

Thank you

I need help creating a formula that chooses a result based upon multiple outcomes.

The following is what I trying to express:

If High – Entry >= .002 and Low – Entry < .004 = Profit
If Close – Entry >= 0 and Low – Entry < .0040 = Profit

If High – Entry < .002 and Low – Entry >= .004 = Loss
If High – Entry < .002 and Close – Entry < 0 = Loss

I think I expressed what's above correctly. It's what's below that I'm having problems with. I also want the formula to look for the following possibilities.

If Entry < Resistance1 and Entry + .001 <= Resistance1 and If High + .0004 >= Resistance1 = Close at High
If Entry < Resistance1 and Entry + .001 > Resistance1 = No Entry
If Entry > Resistance1 = Resistance1 Non Factor

If Entry < Resistance2 and Entry + .001 <= Resistance2 and If High + .0004 >= Resistance2 = Close at High
If Entry < Resistance2 and Entry + .001 > Resistance2 = No Entry
If Entry > Resistance2 = Resistance2 Non Factor

Please see the attached spreadsheet. I’ve attempted to do it myself, but I got stuck when working with the adding the resistance options.

Any help you can provide would be greatly appreciated.

- Thanking You In Advance

Here is the scenario.

1. 1 x Unit price excel file
2. Several quotations excel file

The price for each relevant items is included in the [COLOR="rgb(255, 0, 255)"]Unit Price file[/COLOR]. and it is used in the quotation files.

Now, I have to modify unit price file for new prices.

I need to create a 3rd file which will summarize the average discount for all quotations when I change the item price in unit price.

I know after modify the [COLOR="rgb(255, 0, 255)"]unit price file[/COLOR], by opening every quotation file, I would able to get the latest discount. But i have a certain discount figure target to hit, which means I need to modify the[COLOR="rgb(255, 0, 255)"] unit price [/COLOR]several times in order to get the exact discount figure. And it will be painful if I have to manually open each quotation file in each process?

How am I able to achieve this in less painful action? Thanks If you are able to help me.
(sorry for my poor english)

In summary, this is what i want to do:

Modified Unit Price ---> Several Quotation Files affected -----> Summarize the discount compare with the old quotation file.

I would like to create a macros to do the following -- When the user clicks on the "Lessons" button or the "Story" button, macros will detect which row and column the button is being clicked and opens the appropriate Lesson or Story.

Basically, I created a pacing guide for my school for Kindergarten through 6th Grade (sorted by rows) starting from the first week of September 2012 to the second week of June 2013 (sorted by columns). I'd like to create buttons for each grade level and for each week that allow my teachers to just click and view the week's lesson plans for their grade level and the story that corresponds to these lesson plans.

I set up something like this to test opening a PDF when the button was clicked. It worked, but I wanted to avoide writing a separate Macros for each button.

 Sub OpenPDF()
    Dim strFolder As String
    Dim strGrade As String
    Dim strWeek As String

    'Sets Folder Location
    strFolder = "E:PacingGuide"
    'Sets Grade Level
    strGrade = "6"
    'Sets Week Number on Pacing Gude
    strWeek = "1"
    'Declares PDF File Location
    strPDFFile = strFolder & strGrade & strWeek & "LessonPlan.pdf"
    'Open PDF File
    ActiveWorkbook.FollowHyperlink Address:=strPDFFile, NewWindow:=True

 End Sub
I feel like there should be a way to use an If..Then here.

For example,

If the command button being selected is in Row 34 (6th Grade) and Column D (Week 1) Then Open the 6th Grade's 1st Week Lesson Plans

If the command button being selected is in Row 34 (6th Grade) and Column E (Week 2) Then Open the 6th Grade's 2nd Week Lesson Plans


I'm learning VBA programming, so any advice would help =) Thanks to those who post!


For my i.c.t project I have to create a league table where u can type results into a seperate sheet and then the league table would update automatically, but I am not sure what functions I need to use and how to use them. Could you please help.



Hello all,

I need a bit of help in creating a query form.
I currently created a form which my group will use to track on-line incidents.
This form has a command button which then writes everything to a work sheet called "2008 incidents.
I would like to create a "search" form where the user will enter criteria - like a system name (from a combo box) and the the results wil appear and if needed they can edit the information.

Thanks in advance!!!!

Here's my code as of now...

Private Sub cmdAdd_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("2008 Incidents")

'Find first empty row in database
iRow = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 1).Row

'Check for a system
If Trim(Me.SystemCombo.Value) = "" Then
MsgBox "Please enter a system"
Exit Sub
End If

'Check for a start time
If Trim(Me.StartTimePicker.Value) = "" Then
MsgBox "Please enter a start time"
Exit Sub
End If

'Check for a end time
If Trim(Me.EndTimePicker.Value) = "" Then
MsgBox "Please enter an end time"
Exit Sub
End If

'copy the data to the database
'ws.Cells(iRow, 1).Value = Me.txtDate
ws.Cells(iRow, 1).Value = Me.DatePicker
'ws.Cells(iRow, 3).Value = Me.txtStartTime
ws.Cells(iRow, 3).Value = Me.StartTimePicker
'ws.Cells(iRow, 4).Value = Me.txtEndTime
ws.Cells(iRow, 4).Value = Me.EndTimePicker
'ws.Cells(iRow, 6).Value = Me.txtSystem
ws.Cells(iRow, 6).Value = Me.SystemCombo
ws.Cells(iRow, 7).Value = Me.SubSystemCombo
ws.Cells(iRow, 8).Value = Me.txtBriefDescription
ws.Cells(iRow, 9).Value = Me.txtCause
ws.Cells(iRow, 10).Value = Me.txtEffect
ws.Cells(iRow, 11).Value = Me.txtResolution
ws.Cells(iRow, 12).Value = Me.txtFollowup
ws.Cells(iRow, 13).Value = Me.RootCauseOwnerCombo
ws.Cells(iRow, 14).Value = Me.RootCauseCombo
ws.Cells(iRow, 15).Value = Me.EventSeverityCombo
ws.Cells(iRow, 16).Value = Me.MarketImpactCombo
ws.Cells(iRow, 17).Value = Me.UrgencyCombo
ws.Cells(iRow, 18).Value = Me.PriorityCombo
ws.Cells(iRow, 19).Value = Me.FallbackCombo
ws.Cells(iRow, 20).Value = Me.EventSourceCombo
ws.Cells(iRow, 21).Value = Me.MarketTypeCombo
ws.Cells(iRow, 22).Value = Me.txtAssignedTo
ws.Cells(iRow, 23).Value = Me.txtOpenedBy
ws.Cells(iRow, 24).Value = Me.txtSymbol

'Clear the data
'Me.DatePicker.Value = " "
'Me.txtDate.Value = " "
'Me.txtStartTime.Value = " "
'Me.txtEndTime.Value = " "
'Me.txtSystem.Value = " "
Me.SystemCombo.Value = " "
Me.SubSystemCombo.Value = " "
Me.txtBriefDescription.Value = " "
Me.txtCause.Value = " "
Me.txtEffect.Value = " "
Me.txtResolution.Value = " "
Me.txtFollowup.Value = " "
Me.RootCauseOwnerCombo.Value = " "
Me.RootCauseCombo.Value = " "
Me.EventSeverityCombo.Value = " "
Me.MarketImpactCombo.Value = " "
Me.UrgencyCombo.Value = " "
Me.PriorityCombo.Value = " "
Me.FallbackCombo.Value = " "
Me.EventSourceCombo.Value = " "
Me.MarketTypeCombo.Value = " "
Me.txtAssignedTo.Value = " "
Me.txtOpenedBy.Value = " "
Me.txtSymbol.Value = " "

End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub EventSeverityCombo_Change()
With Me.EventSeverityCombo
Select Case .Value
Case "Major"
.BackColor = 8421631
Case "Minor"
.BackColor = 14929859
Case "Non-intrusive"
.BackColor = 13434828
Case Else
.BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Private Sub Frame3_Click()
End Sub

Private Sub ListBox1_Click()

End Sub

Private Sub MarketImpactCombo_Change()
With Me.MarketImpactCombo
Select Case .Value
Case "Halt"
.BackColor = 8421631
Case "High"
.BackColor = 39423
Case "Impaired"
.BackColor = 14929859
Case "Operational"
.BackColor = 13434828
Case Else
.BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Private Sub PriorityCombo_Change()
With Me.PriorityCombo
Select Case .Value
Case "Urgent"
.BackColor = 8421631
Case "High"
.BackColor = 39423
Case "Medium"
.BackColor = 14929859
Case "Low"
.BackColor = 13434828
Case Else
.BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Private Sub RootCauseCombo_Change()

End Sub

Private Sub RootCauseOwnerCombo_Change()
Dim strRange As String
If RootCauseOwnerCombo.ListIndex > -1 Then
strRange = RootCauseOwnerCombo
Label2.Caption = strRange
strRange = Replace(strRange, " ", "_")
With RootCauseCombo
.RowSource = vbNullString
.RowSource = strRange
.ListIndex = 0
End With
Label2.Caption = "Root Cause"
End If
End Sub

Private Sub SystemCombo_Change()
End Sub

Private Sub txtDate_Change()
End Sub

Private Sub txtStartTime_Change()
End Sub

Private Sub UrgencyCombo_Change()
With Me.UrgencyCombo
Select Case .Value
Case "Urgent"
.BackColor = 8421631
Case "High"
.BackColor = 39423
Case "Medium"
.BackColor = 14929859
Case "Low"
.BackColor = 13434828
Case Else
.BackColor = RGB(255, 255, 255)
End Select
End With
End Sub

Private Sub UserForm_Click()
End Sub

hi i am trying to create a payroll for my business that will open up a new payroll page everyday of the week and then at the end of the 7 day work week i have a total page for the week that adds all the daily cells of the previous 7 day.... i have already created my payroll page i just need help on how to install it to open as a new day everyday with the numbers set to zero and install the ability for it to be totaled at the end of the week. if anyone can give me some direction here i would appreciate it a ton. thank you.

I need to create a macro that will move down the spreadsheet for the number of rows that are in column A. I also need it to check a couple of nested If Then Else statements to return a value.

For example:

Until A2 = IsEmpty() Then
If M2 = "29101" and P2 = "SC" Then
Z2 = 31

ElseIF M2 = "29101" and P2 "SC" Then
Z2 = 45
End IF

Please Help. I have tried but keep getting confused on how to walk the If Then down a spread sheet and how to write the If Then.

Thanks in advance.


I am creating a Spreadsheet with daily stats from advisors.

What I need ( and Im pulling my hair out for this) Is a macro that sort these into the relevant day.

The day is picked from a drop down list. But need this macor to pick this up so if was monday, to copy all the detials to the monday tab. and tuesday to tuesday tab and so on.

Am I missing a simple way to do this?

I will be grateful for your help

I need to create a short macro that essentially asks a yes/no question in a message box. On YES, I need to run a separate macro I've already created. On NO, I need to end the macro without launching another macro. I've read the archives related to pausing a macro, but can't find a solution. Thanks for any help.

Hi everyone,

I would like to create a function that will perform some calculations on individual cells in a selected range. The problem is that I don't know how to skip through the selection in a function format.


I want the function to evaluate fn - so for e.g. for f4:

f4=(E x D1) + (E x D2 x (1-E)^1) + (E x D3 x (1-E)^2) + (E x D4 x (1-E)^3)

and for f3:
f3=(E x D1) + (E x D2 x (1-E)^1) + (E x D3 x (1-E)^2)

... if this were all, that would be easy enough, but I want to make the function flexible to handle any number of cells in a selected range - i.e.

fn=(E x Dn) + (E x Dn-1 x (1-E)^1) + (E x Dn-2 x (1-E)^2) + (E x Dn-3 x (1-E)^3) ...

If anyone could help me with this I would be extremely grateful. The problem is I can't just step through rows in a selection like I could do when writing a sub for a macro. The rules are different for a function, and I'm really stuck.

Many thanks!


hi there, first time I'm using this forum. Hope you can help me.

I'm basically creating a file where a userform comes up when you open the workbook, blocks the access to the actual workspace so that no manual entry can be done. What the userform allows you to do is add a new entry to the database (the userform has some text boxes where we type in stuff like location and name or age) after having found the next empty row in the enormous database (3.000 lines)

I have done this and I need help resolving a stupid issue I can't get over (some of you may laugh ).

After having clicked the OK button in the userform and added the data to the database, I would like the userform to have a pop-up message box with specified text like:

"The number assigned to this entry is:" and then I would like to add a variable with excel using the cell in column D of the same row of the new entry. So the end result would be :
The number assigned to this entry is: 01 I've being trying several things but nothing worked (not even close to be honest).



Hi everyone

I'm stuck on a nesting if statement. I am trying to create a multiple if condition whereby a user can select one of four optionboxes and have a particular column filtered. The problem I'm having is that 3 of the 4 boxes must have values of False before the Then statement can then complete the filtering of a specified column. I've never written a nesting If/Then Statement so I was wondering if anyone out there has experience in it. The published dialogues don't really pertain to my needs.

Any help would be great!

Here is the jumbled code that I am working with.

Private Sub optlc_Click()
If(optpc.Value = False,If (optsc.Value = False,If (optwc.Value = False,If (optlc.Value = True)))) Then

Sheets("Sheet2").Range("B1").AutoFilter _
Field:=2, _
End If
End If
End If
End If

Dim Rg As Range
Set Rg = Sheets("Sheet1").Range(Range("R2"), Range("T2").End(xlDown))
Application.CutCopyMode = False
Selection.Sort Key1:=Range("R1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
With lstbxRESULTS
.ColumnCount = 1
.RowSource = Rg.Address
.ColumnHeads = False
End With
End Sub


[ This Message was edited by: luke w on 2002-11-06 16:55 ]

If anyone can help me with this, I would be greatly appreciated.

I am trying to create a formula for an entire "Phone Number" column where if a cell is blank, it defaults to a certain phone number ie "555-1212", but if there is a phone number already in the column it needs to be left alone.

Can anyone help me???

Thanks in advance!

Hi, i need help creating a search database using excel lookup functions:
vlookup, match and index. The criteria is below:

I have a sheet filled with data. Data Sheet:
Title, Season, Air Date, Star Date, Synopsis (Respectively. Data is
sorted alphabetically by Title)

I have to create another worksheet, in which a user types a Season
number, and the formula will display the related results. For example:
User types in Season 1
Sheet displays:

Title Air Date Star Date Synopsis
Pilot xxx xxxx yyyyy
New aaa bbb zzzz


ajaffer's Profile:
View this thread:

Hello. I need to create a formula that will find the amounts on a
spreadsheet that add up to a particular total. Can someone help?

JuliaC's Profile:
View this thread:

No luck finding an answer? You could always try Google.