Get the drinks in!

thorpyuk

Well-known Member
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

Excel Facts

Difference between two dates
Secret function! Use =DATEDIF(A2,B2,"Y")&" years"&=DATEDIF(A2,B2,"YM")&" months"&=DATEDIF(A2,B2,"MD")&" days"

Fazza

MrExcel MVP
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

MrExcel MVP
Code:
``````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

MrExcel MVP
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

Last edited:

MrExcel MVP
using morefunc:

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

thorpyuk

Well-known Member
lol

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

Oorang

Well-known Member
Code:
``````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

Well-known Member
Another way:
Code:
``````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

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

1,191,516
Messages
5,987,038
Members
440,074
Latest member
Emmanuelian

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back