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.
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