|
楼主 |
发表于 2011-3-20 11:56
|
显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
沒看到44樓有整理附件 小弟剛剛也整理好一份 若公式中無先轉為繁体者 在驗證前會先行轉為繁体
下述三位老師的公式無法在繁体版中運行 煩請版主協助確認他們的公式是否正確
06F_wcymiss- =LOOKUP("做",IF({1,0},"無相鄰",LOOKUP("做",A2:C2&"的下一個生肖是"&MID(A2&B2&C2,FIND(MID("牛虎兔龍蛇馬羊猴雞狗豬鼠",FIND(A2:C2,"鼠牛虎兔龍蛇馬羊猴雞狗豬"),1),A2&B2&C2),1))))
复制代码 13F_山桑弓- =SUBSTITUTE(MID("鼠8牛8虎8兔8龍8蛇8馬8羊8猴8雞8狗8豬8鼠 無相鄰",FIND(11,RMB(SUM((FREQUENCY(FIND(A2:C2,"鼠牛虎兔龍蛇馬羊猴雞狗豬"),ROW($1:$11))>0)/10^ROW($1:$12)),12)&2-OR(A2:C2="鼠")&211)*2-7,3),8,"的下一個生肖是")
复制代码 16F_fjrlgj- =LOOKUP("座",REPLACE(MID("鼠牛虎兔龍蛇馬羊猴雞狗豬鼠",FIND({0,11},SUBSTITUTE(SUBSTITUTE(SUBSTITUTE("鼠牛虎兔龍蛇馬羊猴雞狗豬鼠0",A2,1),B2,1),C2,1)),2),2,,{"無相鄰","的下一個生肖是"}))
复制代码 |
|