How do you create an invisible button that provides a user with the ability to count the number of cells that are clicked?

[jfatheree]

My wife is a second grade teacher who needs some way to check the reading fluency level for each student. The idea is to type a story into Excel. A different word will be entered into its own cell. For example:
A:1 the; A:2 dog; A:3 ran; A:4 away; A:5 .

I would like to create an invisible button for each cell. The button for each cell would be assigned a numerical value of 1.

The goal would be for her to have the ability to listen to her students read and click on each word the student missed. Excel would keep track of the total number of missed words for each line and for the entire passage. If the 6th column were assigned the task of line totals, a student that missed the word in A:1 and A:3 a score of 2 would appear in A:6.

Can anyone provide some assistance? If so, thanks in advance. This will be a huge time saver for her as a classroom teacher.

 

[My Aswer Is This]

I believe you misspoke

You said:

If the 6th column were assigned the task of line totals
Then you said:

a score of 2 would appear in A:6

A6 is not column 6 A6 means column A Row 6

And I would think:

Your question would be:
You showed:

A:1 the; A:2 dog; A:3 ran; A:4 away; A:5 .

It should be:
A1 would be "the"
B1 would be "dog"
C1 would be "ran"
D1 would be "Away"

And score would be in F1​

Excel has no visible buttons.

But this script may do what you want.

If the student misses a word double click on the word they missed.
And the score would be entered.

This script runs when you double click on any cell in column A to E
The script only runs if there is some value in the cell.
Score is entered into column F
And the missed words are highlighted in Red

This is an auto sheet event script
Your Workbook must be Macro enabled
To install this code:
Right-click on the sheet tab
Select View Code from the pop-up context menu
Paste the code in the VBA edit window

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Modified  7/3/2019  11:21:20 PM  EDT
If Target.Column < 6 And Target.Value <> "" Then
Cancel = True
Cells(Target.Row, 6).Value = Cells(Target.Row, 6).Value + 1
Target.Interior.Color = vbRed
End If
End Sub

​

_{^{<strike>
</strike>}}​