CHAR 97-122 mean a-z. what need wright that exel mean a-z or 0-9

[tdtemo]

I make two Letter Combination (a-z) in exel and CHAR 97-122 mean a-z:

To do it in the cells, put 97 in A1 and B1
In C1 put: =CHAR(A1)&CHAR(B1)

In A2 put =A1
In B2 put =B1+1
In C2 put =CHAR(A2)&CHAR(B2)

Fill down to row 26.

In A27 put =A1+1
In B27 put =B1

Fill down to row 676


Now I need make two leter kombinacion but where need was a-z or 0-9

for example:
A1 - 0a
A2 - 0b
......
A37 -00
A38 - 1a
....
A 1296 - 9z


how make it?

Sorry For Bad English...

Best Regards,
Tdtemo

 

[VoG]

There is a table of ASCII codes here http://www.ascii-code.com/

 

[tdtemo]

thank you for answer.

I dont know how write now there

"=CHAR(A1)&CHAR(B1)"

please give me advice

 

[VoG]

Like this?

Excel Workbook
	A
1	48
2	97
3	0a
Sheet1

 

[tdtemo]

No.
A3= a-z or 0-9, how it must make?

 

[VoG]

I don't really understand what you are trying to do. Maybe

=CHAR(RANDBETWEEN(48,57))&CHAR(RANDBETWEEN(97,122))

 

[martindwilson]

to generate all 1296 permutations
in a1 down to a26 put a...z in a27 to a36 put 0 thro to 9
then in b1
=INDEX($A$1:$A$36,CEILING(ROW(A1)/36,1))&INDEX($A$1:$A$36,MOD(ROW(A36),36)+1) drag down to row 1296
oops this is a bit big but it stops at row39 just carry on dragging down

Excel Workbook
	A	B
1	a	aa
2	b	ab
3	c	ac
4	d	ad
5	e	ae
6	f	af
7	g	ag
8	h	ah
9	i	ai
10	j	aj
11	k	ak
12	l	al
13	m	am
14	n	an
15	o	ao
16	p	ap
17	q	aq
18	r	ar
19	s	as
20	t	at
21	u	au
22	v	av
23	w	aw
24	x	ax
25	y	ay
26	z	az
27	0	a0
28	1	a1
29	2	a2
30	3	a3
31	4	a4
32	5	a5
33	6	a6
34	7	a7
35	8	a8
36	9	a9
37	*	ba
38	*	bb
39	*	bc
Sheet1

 

[tdtemo]

I dont know English (((

I need letter and cipher 2 sumbol All combination.
understand?

Thank you very much for careful.

 

[Scott Huish]

Put this function in a standard module:

Public Function Bas2Bas(Number As String, Optional ByVal FromBase As Byte = 10, Optional ByVal ToBase As Byte = 16) As String
    Const BaseDigits As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    Dim MyResult As String
    Dim dRemainder As Double
    Dim MyPlace As Byte
    Dim MyDigit As Byte
    Dim dValue As Long
    On Error Resume Next
     
    Number = UCase(Number)
    If (ToBase < 2) Or (ToBase > 36) Then GoTo Done
     
    For MyPlace = 1 To Len(Number)
        For MyDigit = 0 To 36
            If MyDigit >= FromBase Then GoTo Done
            If Mid(BaseDigits, MyDigit + 1, 1) = Mid(Number, MyPlace, 1) Then Exit For
        Next
        dValue = dValue + MyDigit * FromBase ^ (Len(Number) - MyPlace)
    Next
     
    Do
        dRemainder = dValue - (ToBase * Int((dValue / ToBase)))
        MyResult = Mid(LCase(BaseDigits), dRemainder + 1, 1) & MyResult
        dValue = Int(dValue / ToBase)
    Loop While (dValue > 0)
Done:
    Bas2Bas = MyResult
End Function

Then in the spreadsheet:

In A1:
=RIGHT("0"&bas2bas(ROW(),10,36),2)

Copy down.

 

[tdtemo]

martindwilson


exelent, thanks you Very very much!!!

please tell me how make If will 3 simbols?
it will 46,656 variant

HOTPEPPER

thank you

how Put this function in a standard module?

now me interestid make 3 simbols (46,656 variant)