[第51期][已结题]数字游戏——数字格式变换

zldccmx

呵呵，公式嘛，N伤脑筋，暂时没有想出来。
先写一个VBA的自定义函数。要求中没有限制VBA，所以就提交一个答案。(不求加分，但求莫扣分!)
插入一个标准模块，植入如下代码：

1. 
   
2. Public Function zh(rng As Range)
   
3.     a = Split(rng, "*")
   
4.     For i = 0 To 3
   
5.         a(i) = Format(a(i), "0000")
   
6.     Next
   
7.     zh = Join(a, "*")
   
8. End Function
   

复制代码

然后在对应单元格中，写入 =zh(A1) 就OK

shlzml

数组公式 =TEXT(SUM(MID(SUBSTITUTE(A2,"*",REPT(" ",99)),ROW(1:4)*99-98,99)*10^{12;8;4;0}),"0000"&REPT("\*0000",3))
水平有限

[ 本帖最后由 shlzml 于 2009-9-3 11:20 编辑 ]

moon2778

=TEXT(SUM(MID(SUBSTITUTE(A2,"*",REPT(" ",20)),{1,9,41,61},20)*10^{12,8,4,0}),REPT("0000!*",3)&"0000")

三键结束。。。101

[ 本帖最后由 moon2778 于 2009-9-2 10:53 编辑 ]

xiongkehua2008

費盡九牛二虎之力終於在原來基礎上精減一個字符,也驗證了版主所提出的另外三個數據!

=TEXT(SUM(TRIM(MID(SUBSTITUTE(A2,"*",REPT(" ",99)),{0,1,2,3}*99+1,99))*10^{12,8,4,0}),REPT("0000!*",3)&"0000")

請版主核對!

再想想看...唉,就差一個字符了!

[ 本帖最后由 xiongkehua2008 于 2009-9-2 09:32 编辑 ]

xiongkehua2008

=TEXT(SUM(--MID(SUBSTITUTE(A3,"*",REPT(" ",99)),{0,1,2,3}*99+1,99)*10^{12,8,4,0}),REPT("0000!*",3)&"0000")

106個字符...

其實--也可以省略的!總記得文本前要加--來轉換,忘記了後面有乘法可以轉!

=TEXT(SUM(MID(SUBSTITUTE(A3,"*",REPT(" ",99)),{0,1,2,3}*99+1,99)*10^{12,8,4,0}),REPT("0000!*",3)&"0000")

104個字符!

[ 本帖最后由 xiongkehua2008 于 2009-9-2 09:44 编辑 ]

nyafullee

对公式函数不太熟，第一次参加公式竞赛，费了九牛二虎之力，终于完成了功能，但公式精减不多，头痛呀!!,期待楼主的精彩解答

泓()

110字：
=TEXT(SUM(TRIM(MID(SUBSTITUTE(A2,"*",REPT(" ",19)),19*{0;1;2;3}+1,19))*10^{12;8;4;0}),REPT("0000!*",3)&"0000")
104字：
=TEXT(SUM(MID(SUBSTITUTE(A2,"*",REPT(" ",19)),19*{0;1;2;3}+1,19)*10^{12;8;4;0}),REPT("0000!*",3)&"0000")
102字：
=TEXT(SUM(MID(SUBSTITUTE(A2,"*",REPT(" ",19)),{1;20;39;58},19)*10^{12;8;4;0}),REPT("0000!*",3)&"0000")

[ 本帖最后由 泓() 于 2009-9-3 09:18 编辑 ]

zhanhewang

先交108个字符。看能否再优化。
=TEXT(SUM(TRIM(MID(SUBSTITUTE(A2,"*",REPT(" ",20)),{1,21,41,61},20))*100^{6,4,2,0}),"0000"&REPT("!*0000",3))

wshcw

本题主要还是考数字的折分与合并,照顾高级会员有一次拿分的机会,所以得一分很宽松,得两分是奇迹.现将评分情况公布给大家,不合理的请大家提出来,以便更正.

E友	最佳答 题楼层	最佳公 式长度	评分 情况		备注
			技术	财富
kkitt	3楼	104	1
biaotiger1	5楼	108	1
wjzwang	6楼	102	1	10
冻豆腐	9楼	101	1	20
shuts32	10楼	101	1	20
yvhgydn	11楼	101	1	20
lzzgzby	13楼	102	1	10
风冷	14楼	103	1
jyhxr	16楼	109	1
ff8feng	17楼	110		40
syz105729913	18楼	108	1
kowloon	19楼	107	1
新田美香	20楼	109	1
zldccmx	21楼			30	VBA答题
shlzml	22楼	106	1
moon2778	23楼	101	1	20
xiongkehua2008	25楼	104	1
nyafullee	26楼	638		2
泓()	27楼	102	1	10
zhanhewang	28楼	108	1

开放式竞赛区竞赛通告:

计算题——提取括号内的表达式并计算。


赶快行动啦,答题赚技术分.

[ 本帖最后由 wshcw 于 2009-9-4 23:53 编辑 ]

moon2778

原帖由 zldccmx 于 2009-9-1 11:00 发表
呵呵，公式嘛，N伤脑筋，暂时没有想出来。
先写一个VBA的自定义函数。要求中没有限制VBA，所以就提交一个答案。(不求加分，但求莫扣分!)
插入一个标准模块，植入如下代码：
Public Function zh(rng As Range)
   ...

悲伤，我真以为老朽大爷写函数了，期待了半天，还是老V。