Cell drag and drop game

[dgrosen]

Hi all. I am trying to develop an educational activity for my students in excel. With COVID we educators need to be more resourceful. The idea is to have a table where students drag and drop a text box with the answer into a cell. The final score is displayed once they drop the last text box. Any help on the right direction is very much appreciated
In the example below, students need to drag the box ”red” next to Apple. if they drop it in the right place they get a point.
thanks in advance.

vegetable	color	shape
Apple
Banana
	red	square
	yellow	round
	blue	triangle
	green	elongated

 

[EXCEL MAX]

Hello Dgrosen,
here is one quick created code.
I hope so it will be enough to start...

Option Explicit

Dim vNScore As Integer

Private Sub btnStart_Click()

    vNScore = 0
    Range("B2:C4").Clear
    Range("B6") = "red"
    Range("B7") = "yellow"
    Range("B8") = "blue"
    Range("B9") = "green"
    Range("C6") = "square"
    Range("C7") = "round"
    Range("C8") = "triangle"
    Range("C9") = "elongated"
    
End Sub

Private Sub btnShowResult_Click()
        
    If Not Range("B2") = "" And _
       Not Range("B3") = "" And _
       Not Range("C2") = "" And _
       Not Range("C3") = "" Then _
       MsgBox "Your final score is  " & vNScore
    
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.AlertBeforeOverwriting = False
    
    If Target.Address = "$B$2" And ActiveCell = "red" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX1
        End If
    End If
EX1:
     If Target.Address = "$B$3" And ActiveCell = "yellow" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX2
        End If
    End If
EX2:
     If Target.Address = "$C$2" And ActiveCell = "square" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX3
        End If
    End If
EX3:
  If Target.Address = "$C$3" And ActiveCell = "round" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX4
        End If
    End If
EX4:
   
End Sub

 

[dgrosen]

Hello Dgrosen,
here is one quick created code.
I hope so it will be enough to start...

Option Explicit

Dim vNScore As Integer

Private Sub btnStart_Click()

    vNScore = 0
    Range("B2:C4").Clear
    Range("B6") = "red"
    Range("B7") = "yellow"
    Range("B8") = "blue"
    Range("B9") = "green"
    Range("C6") = "square"
    Range("C7") = "round"
    Range("C8") = "triangle"
    Range("C9") = "elongated"
   
End Sub

Private Sub btnShowResult_Click()
       
    If Not Range("B2") = "" And _
       Not Range("B3") = "" And _
       Not Range("C2") = "" And _
       Not Range("C3") = "" Then _
       MsgBox "Your final score is  " & vNScore
   
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Application.AlertBeforeOverwriting = False
   
    If Target.Address = "$B$2" And ActiveCell = "red" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX1
        End If
    End If
EX1:
     If Target.Address = "$B$3" And ActiveCell = "yellow" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX2
        End If
    End If
EX2:
     If Target.Address = "$C$2" And ActiveCell = "square" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX3
        End If
    End If
EX3:
  If Target.Address = "$C$3" And ActiveCell = "round" Then
        vNScore = vNScore + 1
        Exit Sub
    Else
        If Not Target.Row > 5 Then
            GoTo EX4
        End If
    End If
EX4:
  
End Sub

This is perfect! Thanks a lot

 

[EXCEL MAX]

Thank you too.