Get the drinks in!

[thorpyuk]

Hiya,

=LEFT("GZYN",1)&MID("AZETBY3",3,2)&MID("AZX983 T12",7,2)&RIGHT("ANMAHE ",3)&"DR"&MID("7*INZX",3,2)&"KS"&MID("78 IN_",3,3)

Does anyone have any better variations on the above? Any code? teehee

 

[Fazza]

Well, with code the options are endless. Assuming some ability to code, one is only limited by creativity. And, unless I've had a few drinks, I am rather limited in creativity... So, I'm hesitating to make a start on a code solution.

A slight obfuscation via a defined name does come to mind. Such as a formula as you have now put into a defined name, say NoMoreDrinks. Then the cell would seem to contain the formula =NoMoreDrinks but would return the same result as it does now. Downside would be users might entirely miss seeing the current formula...

If I have a few drinks at the end of the week I might be in a better frame of mind for a better solution. Regards, F

 

[Colin Legg]

Sub RightBackAtCha()
    Const sCHARS As String = "{73,116,39,115,32,89,111,117,114,32,82,111,117,110,100,33}"
    MsgBox Join(Evaluate("=IF(" & sCHARS & ",CHAR(" & sCHARS & "),"""")"), "")
End Sub

 

[ZVI]

Try that hint <?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o> </o>
String in A1: HINTS GET KINDER !<o></o>
<o> </o>
Formula of A2:<o></o>
=MID(A1,7,3)&MID(A1,6,1)<o></o>
&MID(A1,4,1)&MID(A1,1,1)&MID(A1,15,1)&MID(A1,10,1)<o></o>
&MID(A1,14,1)&MID(A1,16,1)&MID(A1,12,2)&MID(A1,11,1)&MID(A1,5,1)&MID(A1,17,1)<o></o>
&MID(A1,2,2)&MID(A1,18,1)<o></o>
<o> </o>
Each symbol is used only once

 

[PaddyD]

using morefunc:

=MCONCAT(CHAR(70-{-1;-31;-46;38;-46;-34;-31;38;-30;-44;-35;-40;-37;-45;38;-35;-40}))

 

[thorpyuk]

lol

That mconcat formula... what do i need to add in for that one to work? :>

 

[Domski]

Have a look here: http://xcell05.free.fr/morefunc/english/#Download

Dom

 

[Oorang]

Public Sub WootXor()
    MsgBox GTH
End Sub
Public Function GTH$()
    s = Split("156 97 103 216 206 171 110 152 77 232 72 127 18 201 242 1 219 4 71 172 166 206 78 252 63 129 38 20 97 233 155 111")
    For i = 0 To l - 1: r = r & ChrW$(s(i) Xor s(i + l)): Next: GTH = r
End Function

 

[Oorang]

Another way:

Public Sub WootXor2()
    MsgBox GTH2
End Sub
Function GTH2()
    Const s$ = "156097103216206171110152077232072127018201242001219004071172166206078252063129038020097233155111"
    Const w% = 3: Const l% = 48: Dim i%, r$: For i = 1 To l Step w: r = r & ChrW$(Mid$(s, i, w) Xor Mid$(s, i + l, w)): Next: GTH2 = r
End Function

 

[Oorang]

Sorry to spam the thread but I just had a good laugh when I realized I misspelled "Get" *facepalm*