Schulte table

[caccarazza]

Good morning,
I'm trying to do a schulte table 3x3 with random 5 alphanumeric.
Can you help me pls ? I need to see this table for just 1 second and then after 7 seconds another one with random positions, the numers are from 1 to 9 and the letters from A to Z.

 

[Aryatect]

Hi,

Below should work, sometimes it might give a duplicate value. For refreshing, you can press F9 key. If you need auto-refresh VBA code needs to be written for that as far as I know. You can refer to the below 2 links:

https://www.exceltip.com/tips/auto-refresh-excel-every-1-second-using-vba-in-excel.html

https://www.mrexcel.com/forum/excel-questions/362595-auto-refresh-every-3-minutes-using-macro.html

Sheet1​

Worksheet Formulas Cell Formula A1 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) B1 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) C1 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) A2 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) B2 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) C2 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) A3 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) B3 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) C3 =VLOOKUP(RANDBETWEEN(1,35),$F$1:$G$35,2,FALSE) <tbody> </tbody>

<tbody>
</tbody>

	F	G
1	1	1
2	2	2
3	3	3
4	4	4
5	5	5
6	6	6
7	7	7
8	8	8
9	9	9
10	10	A
11	11	B
12	12	C
13	13	D
14	14	E
15	15	F
16	16	G
17	17	H
18	18	I
19	19	J
20	20	K
21	21	L
22	22	M
23	23	N
24	24	O
25	25	P
26	26	Q
27	27	R
28	28	S
29	29	T
30	30	U
31	31	V
32	32	W
33	33	X
34	34	Y
35	35	Z

<tbody>
</tbody>

​

 

[lrobbo314]

Does this do what you are looking for?

Sub Shulte()
Dim AR(1 To 3, 1 To 3)
Dim AL As Object: Set AL = CreateObject("System.Collections.ArrayList")
Dim Board As Range
Dim r As Integer, Rounds As Integer

Set Board = Range("A1").Resize(UBound(AR), UBound(AR, 2))
For Rounds = 1 To 10
    For i = 65 To 90
        If i < 65 + (UBound(AR) * UBound(AR, 2)) Then AL.Add i - 64
        AL.Add Chr(i)
    Next i
    For j = 1 To UBound(AR)
        For k = 1 To UBound(AR, 2)
            r = Int((AL.Count - 1) * Rnd + 1)
            AR(j, k) = AL(r)
            AL.Removeat r
        Next k
    Next j
        
    Board.Font.ColorIndex = 0
    Board.Value = AR
    Application.Wait Now() + TimeValue("0:00:01")
    Board.Font.ColorIndex = 2
    Application.Wait Now() + TimeValue("0:00:07")
    AL.Clear
    DoEvents
Next Rounds
End Sub

 

[caccarazza]

Irobbo314 your vb is ok, but i just need 5 alphanumerical and not 9 as random....
for the orther one I'm trying but it's more complicate for me

 

[lrobbo314]

I don’t know what you mean. Can you post an example or explain in more detail?

 

[caccarazza]

I don’t know what you mean. Can you post an example or explain in more detail?

I'm trying to put the screenshot here, I give you the link https://ibb.co/d2RpXGP

I jus need a table 3x3 with 5 random alphanumerical numbers or letters

 

[lrobbo314]

Ok, how about this?

Sub Shulte()
Dim AR(1 To 3, 1 To 3)
Dim AL As Object: Set AL = CreateObject("System.Collections.ArrayList")
Dim SQ As Object: Set SQ = CreateObject("System.Collections.ArrayList")
Dim Board As Range
Dim r As Integer, Rounds As Integer


Set Board = Range("A1").Resize(UBound(AR), UBound(AR, 2))
For Rounds = 1 To 10
    For i = 65 To 90
        If i < 65 + (UBound(AR) * UBound(AR, 2)) Then
            AL.Add i - 64
            SQ.Add i - 64
        End If
        AL.Add Chr(i)
    Next i
    For j = 1 To UBound(AR)
        For k = 1 To UBound(AR, 2)
            r = Int((AL.Count - 1) * Rnd + 1)
            AR(j, k) = AL(r)
            AL.removeat r
        Next k
    Next j


        
    Board.Font.ColorIndex = 0
    Board.Value = AR
    For l = 1 To 4
        r = Int((SQ.Count - 1) * Rnd + 1)
        Board.Cells(SQ(r)).ClearContents
        SQ.removeat r
    Next l
    Application.Wait Now() + TimeValue("0:00:01")
    Board.Font.ColorIndex = 2
    Application.Wait Now() + TimeValue("0:00:07")
    AL.Clear
    DoEvents
Next Rounds
End Sub

 

[caccarazza]

yes, thank you very much, it is perfect now, ok the numbers are less cause are fm 1 to 9 and the alphabet from A to Z, but it's ok.... many thanks

 

[lrobbo314]

If it’s an issue, I can amend to code to have a more even distribution, but if it’s good as is, then I’m glad it works for you. Good luck on the speed reading.

 

[caccarazza]

Don't worry, it's not a issue... thank you !