This post is dedicated to the MS Excel lovers...Flaunt your knowledge of MS Excel in your peer group with the following dragon formulas.
How to use
Ask your peers to paste the following formulae into MS Excel and see what you mean.
HAPPY NEW YEAR
=MID(ADDRESS(1,2^3),2,1)&BIN2HEX(1010)&REPT(CHAR(4^2*(2+3)),2)&CHAR(DEGREES(ASIN(1))-1)&CHAR(CHAR(17*3)&CHAR(5^2*2))&MID(ADDRESS(1,2*6+2),2,1)&BIN2HEX(1110)&CHAR(DEGREES(ATAN(1.732051))+3^3)&CHAR(2+1&2)&MID(ADDRESS(1,4^2+3^2),2,1)&CHAR(DEGREES(ACOS(0.5))+(4-1)^2)&BIN2HEX(1010)&CHAR(BIN2HEX(1000)&BIN2HEX(10))
HAPPY INDEPENDENCE DAY
=MID(ADDRESS(1,2^3),2,1)&BIN2HEX(MODE(10,10,10,11)&10)&REPT(CHAR(2^3*(5+(10-5))),2)&MID(ADDRESS(1,4^2+3^2),2,1)&CHAR(AVERAGE(2,2)^(1+2^2))&CHAR(MODE(4,4,8,2)*3^2*2+1)&CHAR(16*4.875)&MID(ADDRESS(1,2^2),2,1)&BIN2HEX(1110)&MID(ADDRESS(1,(2^4)),2,1)&BIN2HEX(1110)&CHAR(70+2^3)&CHAR(68)&MID(ADDRESS(1,2^2+1),2,1)&CHAR(4^2*4.875)&BIN2HEX(1100)&MID(ADDRESS(1,5*1),2,1)&CHAR(2^5)&CHAR(AVERAGE(68,68,68))&BIN2HEX(1010)&MID(ADDRESS(1,5^2),2,1)
THANKYOU
=CHAR(DEGREES(ACOS(0.5))+5^2-1)&MID(ADDRESS(1,5^2*8+9),2,1)&BIN2HEX(1010)&UPPER(CHAR(DEGREES(ASIN(1))+20))&CHAR(5+2&"5")&CHAR(DEGREES(ATAN(1.732051))+3^3+2)&MID(ADDRESS(1,6*REPT("1",2)+1),3,1)&CHAR((4^2+1)*5)
How to use
Ask your peers to paste the following formulae into MS Excel and see what you mean.
HAPPY NEW YEAR
=MID(ADDRESS(1,2^3),2,1)&BIN2HEX(1010)&REPT(CHAR(4^2*(2+3)),2)&CHAR(DEGREES(ASIN(1))-1)&CHAR(CHAR(17*3)&CHAR(5^2*2))&MID(ADDRESS(1,2*6+2),2,1)&BIN2HEX(1110)&CHAR(DEGREES(ATAN(1.732051))+3^3)&CHAR(2+1&2)&MID(ADDRESS(1,4^2+3^2),2,1)&CHAR(DEGREES(ACOS(0.5))+(4-1)^2)&BIN2HEX(1010)&CHAR(BIN2HEX(1000)&BIN2HEX(10))
HAPPY INDEPENDENCE DAY
=MID(ADDRESS(1,2^3),2,1)&BIN2HEX(MODE(10,10,10,11)&10)&REPT(CHAR(2^3*(5+(10-5))),2)&MID(ADDRESS(1,4^2+3^2),2,1)&CHAR(AVERAGE(2,2)^(1+2^2))&CHAR(MODE(4,4,8,2)*3^2*2+1)&CHAR(16*4.875)&MID(ADDRESS(1,2^2),2,1)&BIN2HEX(1110)&MID(ADDRESS(1,(2^4)),2,1)&BIN2HEX(1110)&CHAR(70+2^3)&CHAR(68)&MID(ADDRESS(1,2^2+1),2,1)&CHAR(4^2*4.875)&BIN2HEX(1100)&MID(ADDRESS(1,5*1),2,1)&CHAR(2^5)&CHAR(AVERAGE(68,68,68))&BIN2HEX(1010)&MID(ADDRESS(1,5^2),2,1)
THANKYOU
=CHAR(DEGREES(ACOS(0.5))+5^2-1)&MID(ADDRESS(1,5^2*8+9),2,1)&BIN2HEX(1010)&UPPER(CHAR(DEGREES(ASIN(1))+20))&CHAR(5+2&"5")&CHAR(DEGREES(ATAN(1.732051))+3^3+2)&MID(ADDRESS(1,6*REPT("1",2)+1),3,1)&CHAR((4^2+1)*5)
BYE BYE
=REPT(MID(ADDRESS(1,2),2,1)&CHAR(DEGREES(ATAN(1.732051))+3^3+2)&BIN2HEX(1110)&CHAR(BIN2HEX(REPT("1",2))&BIN2HEX(REPT("2",2)-REPT("1",2)-1)),2)
Using VBA
Open an excel workbook, Press Alt+F11 >> Insert Module >> Paste the following code
Sub Wish()
thismsg = "Wish you a very happy new year"
Application.Speech.Speak thismsg
End Sub
Note : Press Alt+F8 key , select "Wish" macro and hit Run button.
About Author:
Deepanshu founded ListenData with a simple objective - Make analytics easy to understand and follow. He has over 10 years of experience in data science. During his tenure, he has worked with global clients in various domains like Banking, Insurance, Private Equity, Telecom and Human Resource.
Hi Deepanshu,
ReplyDeleteThank you for your excellent suggestions.
One slight improvement in the VBA "application".
Instead of pressing Alt+F8, selecting the macro and hitting Enter,
it is much simpler to add a button on the worksheet and link the macro
to this button.
Best Regards and Happy New Year,
Meni Porat