LinkBack URL
About LinkBacks
My name is not Cradino.
Cradino is an anagram of my name "arcindo".
Who can help me developing a formula or a macro to make excel generate combinations with all anagrams of my name??????????
Thanks
Anagrams
My name is not Cradino.
Cradino is an anagram of my name "arcindo".
Who can help me developing a formula or a macro to make excel generate combinations with all anagrams of my name??????????
Thanks
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
arcindo
User defined function for you....
Function SCRAMBLE(text, Optional recalc)
' Scrambles its single-cell argument
' If second argument is 1, then recalc it each time sheet is calculated
Dim Num As Integer, i As Integer, rpos As Integer
Dim temp As String, text2 As String
If IsMissing(recalc) Then recalc = 0
If recalc Then Application.Volatile
If IsArray(text) Then text2 = text(1) Else text2 = text
Num = Len(text2)
For i = 1 To Num
temp = Mid(text2, i, 1)
rpos = Int((Num - 1 + 1) * Rnd + 1)
Mid(text2, i, 1) = Mid(text2, rpos, 1)
Mid(text2, rpos, 1) = temp
Next i
SCRAMBLE = text2
End Function
Usage is =SCRAMBLE(cellref) or =SCRAMBLE(acrindo)
If you want result to be re-scrambled each time the sheet calculates....
=SCRAMBLE(arcindo,1)
Another method is by macro.........See John Walkenbach's site for code or a
downloadable workbook.
http://j-walk.com/ss/excel/tips/tip46.htm
Gord Dibben Excel MVP
On Thu, 2 Jun 2005 11:28:01 -0500, cradino
<[email protected]> wrote:
>
>My name is not Cradino.
>Cradino is an anagram of my name "arcindo".
>Who can help me developing a formula or a macro to make excel generate
>combinations with all anagrams of my name??????????
>Thanks
This was subject of discussion months ago. Do a Google newsgroup search to
locate messages.
You know that with 7 no-repeating letters you will get 7! = 5040 answers?
Did you know 'carthorse' and 'orchestra' are anagrams?
--
Bernard V Liengme
www.stfx.ca/people/bliengme
remove caps from email
"cradino" <[email protected]> wrote in
message news:[email protected]...
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile:
> http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
>
Does it have to be excel?
http://www.wordsmith.org/anagram/
cradino wrote:
>
> My name is not Cradino.
> Cradino is an anagram of my name "arcindo".
> Who can help me developing a formula or a macro to make excel generate
> combinations with all anagrams of my name??????????
> Thanks
>
> --
> cradino
> ------------------------------------------------------------------------
> cradino's Profile: http://www.excelforum.com/member.php...o&userid=18521
> View this thread: http://www.excelforum.com/showthread...hreadid=376032
--
Dave Peterson
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks