|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
昨天看了大半天楼主的帖子,可看到最后也没见楼主公布答案,——你想急死人是不是?{:soso_e120:}
结合、比较前边朋友们的成果,连夜也做了一个,现在拿出来晒晒。不说“抛砖引玉”了,就厚着脸皮说是“打擂台”吧,看是不是还有短的?
打擂公式:主函数 LEFT+RIGHT
B3: =IF($A3,LEFT(RIGHT(" ¥"&RMB($A3)*100,COLUMN($L3)-COLUMN()+1)),"")
(65字节,最多12个步骤)
待改进公式:主函数 MID
B3: =IF($A3,MID(REPT(" ",11-LEN(RMB($A3)*100))&"¥"&RMB($A3,2)*100,COLUMN()-COLUMN($B3)+2,1),"")
(91字节,最多12个步骤)
打擂要求:
1、必须具有通用性。判断方法是:不能在上方和左边插入空行或空列后,显示结果就面目全非。
2、不能把公式中的“*100”改成“/1%“,为了省一个字节多了一个计算步骤,得不偿失,哈哈。
附件内有参数说明,便于移植。
|
|