Re: Microsoft Excel World Championships!

On 1/23/2025 8:46 AM, DFS wrote:

Twelve Dudes and a Hype Tunnel: Scenes from the ‘Super Bowl for Excel Nerds’

At the Microsoft Excel World Championship in Las Vegas, there was stardust in the air as 12 finance guys vied to be crowned the world’s best spreadsheeter.

https://www.nytimes.com/2025/01/20/us/microsoft-excel-world-championships.html
  This is SO SO cool!
  MS Office is doomed by the LeeberOffice juggernaut

My winning Excel (2003) VBA entry.
* open Excel
* choose View | Toolbars | Visual Basic
* click the 'Visual Basic Editor' icon on the VB Toolbar
* arrange the VB IDE on the right of your screen, and sheet on left
* in the VB IDE, click Insert | Module
* add this line in General | Declarations
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
* in the VB IDE, dbl-click 'This Workbook' on the left
* copy-paste the following code into General | Declarations
Public Sub WorldChamp()
ActiveSheet.Cells.Clear
ActiveSheet.Cells.ColumnWidth = 8.43
ActiveSheet.Cells.RowHeight = 12.75
Dim i, j As Integer
Dim amt As Integer
Dim arr(4) As String
Dim edge As Byte
Dim bgColor As Byte
Dim startRow, startCol As Integer
startRow = ActiveCell.Row
startCol = ActiveCell.Column
edge = 9
For i = 1 To edge
   Rows(ActiveCell.Row).RowHeight = 60
   Columns.ColumnWidth = 15
   ActiveCell.Offset(1, 0).Select
Next i
amt = 50
bgColor = 9
Cells(startRow, startCol).Select
For i = 1 To edge - 1
   ActiveCell.Interior.ColorIndex = bgColor
   Sleep amt
   ActiveCell.Offset(0, 1).Select
Next i
For i = 1 To edge - 1
   ActiveCell.Interior.ColorIndex = bgColor
   Sleep amt
   ActiveCell.Offset(1, 0).Select
Next i
For i = 0 To edge - 2
   ActiveCell.Interior.ColorIndex = bgColor
   Sleep amt
   ActiveCell.Offset(0, -1).Select
Next i
For i = 0 To edge - 2
   ActiveCell.Interior.ColorIndex = bgColor
   Sleep amt
   ActiveCell.Offset(-1, 0).Select
Next i
arr(0) = "ooNhuG wercS"
arr(1) = "FSF eht kcuF"
arr(2) = "namllatS liaJ"
arr(3) = "OL oT oN yaS tsuJ"
Dim rndRow, rndCol As Integer
amt = 25
Cells(startRow + 1, startCol + 1).Select
Randomize
For i = 1 To 100
   rndRow = Int(Rnd * (edge - 2)) + startRow + 1
   rndCol = Int(Rnd * (edge - 2)) + startCol + 1
   Cells(rndRow, rndCol).Select
   cellSettings
   ActiveCell.Value = StrReverse(arr(Int(Rnd * 4)))
   Sleep amt
Next i
Cells(startRow + 1, startCol + 1).Select
For i = 1 To edge - 2
   For j = 1 To edge - 2
    Cells(startRow + j, startCol + i).Select
    If ActiveCell.Value = "" Then
      cellSettings
      ActiveCell.Value = StrReverse("demooD sI lecxE")
    End If
   Next j
Next i
Cells(startRow + 1, startCol + 1).Select
End Sub
Public Sub cellSettings()
    ActiveCell.Interior.ColorIndex = Int(Rnd * 56)
    ActiveCell.Font.ColorIndex = Int(Rnd * 56)
    ActiveCell.VerticalAlignment = xlCenter
    ActiveCell.HorizontalAlignment = xlCenter
    ActiveCell.Font.Bold = True
    ActiveCell.Font.Size = 12
    ActiveCell.WrapText = True
    ActiveCell.Borders.Color = vbWhite
End Sub
Click the Save button to save the new sheet and code
click inside the sheet, in any upper left cell
click the Run button in the VB IDE (or hit F5)
Enjoy the show!