The Excel Mind Reader

[Pieter671]

Zie hier een leuk Excel uit 2005.

Bekijk bijlage Mindreader 97.xls

Alleen de VBA-code werkt niet in Excel 2010.


Kan iemand deze code aanpassen zodat ook in Excel 2010 werk!

 

[jkpieterse]

Bij deze!

 

[Pieter671]

Dank je wel.

De tweede macro werkt nog niet helemaal goed.
De range "MAGIC" wordt niet gevuld met hetzelfde karakter. Dit is de kern van de grap, namelijk de tafel van 9.
Kijk maar naar de range "MAGIC", 9 - 18 - 27 etc. Altijd hetzelfde karakter!

ThisWorkbook.Names("MAGIC").RefersToRange.Value = Chr(intMagicToken)

vervangen door:

For Each rngSymbol In ActiveSheet.Range("Magic").Cells
rngSymbol = Chr(intMagicToken)
Next

Kan ongetwijfeld in één regel van code.

 

[E v R]

Om het karakter zichtbaar te krijgen, moest ik Application.ScreenUpdating = True toevoegen na End With in de Sub Amazing()