Home |
Search |
Today's Posts |
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
I probably just have no idea what I am doing. But I can't
for the life of me figure out how to run this. can anyone help? -----Original Message----- We had this really imporant meeting with the Chief Exec this morning and the two most senior sales reps were invited as a "consultation exercise" Knowing the reps would be bored, I spent 15 long minutes developing an app to keep them occupied in the meeting (code below) However, no more than 5 minutes into the meeting, not only were they projecting the worksheet over my masterly whiteboard presentation but they were also /cheating/ at noughts and crosses. Can anyone provide any code to stop them cheating in future meetings please? Something to stop there being 5 crosses and one nought on the board would be a start :-) Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, _ Cancel As Boolean) 'noughts and crosses (tic-tac-toe) in A1:C3 Dim x% Static s$ With Target If .Cells.Count 1 Then Exit Sub If .Row 3 Or .Column 3 Then Exit Sub If .Value < "" Then Exit Sub If s$ = "X" Then s$ = "O" Else s$ = "X" .Formula = s$ Cancel = True x% = .Column Application.StatusBar = False If Cells(1, x%).Value = Cells(2, x%).Value Then If Cells(1, x%).Value = Cells(3, x%).Value Then Application.StatusBar = .Value & " Wins (column)" Exit Sub End If End If x% = .Row If Cells(x%, 1).Value = Cells(x%, 2).Value Then If Cells(x%, 1).Value = Cells(x%, 3).Value Then Application.StatusBar = .Value & " Wins (row)" Exit Sub End If End If 'don't check diagonals if center square blank If Cells(2, 2).Value = "" Then Exit Sub If Cells(1, 1).Value = Cells(2, 2).Value Then If Cells(1, 1).Value = Cells(3, 3).Value Then Application.StatusBar = .Value & " Wins (diag)" End If End If If Cells(1, 3).Value = Cells(2, 2).Value Then If Cells(1, 3).Value = Cells(3, 1).Value Then Application.StatusBar = .Value & " Wins (diag2)" End If End If End With End Sub . |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Alphabet Code Game | Excel Discussion (Misc queries) | |||
Game score without game being played | Excel Worksheet Functions | |||
VBA Code Security | Excel Programming | |||
Code security | Excel Programming |