Get the drinks in!

thorpyuk

Well-known Member
Joined
Mar 14, 2006
Messages
1,453
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

Do you hate GETPIVOTDATA?
Prevent GETPIVOTDATA. Select inside a PivotTable. In the Analyze tab of the ribbon, open the dropown next to Options and turn it off
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
 
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
 
Try that hint :)<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:eek:ffice:eek:ffice" /><o:p></o:p>
<o:p> </o:p>
String in A1: HINTS GET KINDER !<o:p></o:p>
<o:p> </o:p>
Formula of A2:<o:p></o:p>
=MID(A1,7,3)&MID(A1,6,1)<o:p></o:p>
&MID(A1,4,1)&MID(A1,1,1)&MID(A1,15,1)&MID(A1,10,1)<o:p></o:p>
&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:p></o:p>
&MID(A1,2,2)&MID(A1,18,1)<o:p></o:p>
<o:p> </o:p>
Each symbol is used only once
 
Last edited:
using morefunc:

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

That mconcat formula... what do i need to add in for that one to work? :>
 
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
 
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
 
Sorry to spam the thread but I just had a good laugh when I realized I misspelled "Get" *facepalm*
 

Forum statistics

Threads
1,213,563
Messages
6,114,332
Members
448,566
Latest member
Nickdozaj

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.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

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

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

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
Back
Top