想成立一个Excel联盟，大家有没有兴趣？

hubeck

楼上的问题说的不是太清楚，我先按照我的猜测说一下 s4 Q* K0 g: C: i4 Q* C' R z! v4 Q- a& H) ]2 _1，你说的分数形式是不是类似4/5这种没计算出结果的文本格式？如果是的话可以用Mid（中文或者英文Excel)或者teil(德文版Excel)公式取得分子和分母,然后计算就行了，估计用时两分钟。 0 b1 V/ \4 Y, ^$ W* U 2，如果我理解正确的话，这个貌似不用程序。第一行是你的48个数字，下一行求他们的平方根，然后随便什么地方sum一下就行了吧？还是你们要求一定要用VBA写点儿什么？

zhuli23

感谢您的及时回复,您对我的问题的理解完全正确,您说的mid是啥,我咋不会操作呢, 8 O1 |5 \6 I! C, n关于第二个问题您的回答我已理解,我想最好还是在一行里用个命令解决,谢谢您!

hubeck

mid是一个公式，点插入公式，搜索mid，不会用的话就点F1看帮助。 % S8 E/ c9 K( ^0 b , R$ X: ~- T7 ]第二个问题你一定要在一行内解决的话，可以找个单元格敲等于号，然后老老实实的写公式，或者也可以用宏，如果以后这个操作要重复，但也工作量也差不多。还是建议原来的答案。

kangson

'第二个问题的答案 '计算平方根，然后求和 + A8 D+ Q$ @, ^) l: D5 |5 xSub aaa() & W0 Y7 s8 d" \% N. X Dim i As Long Dim Sht As Worksheet Dim SqrResult As Double - |+ L8 r* [* F9 l2 [! y# q, b Set Sht = ThisWorkbook.ActiveSheet 2 E; U/ P& y" A) G SqrResult = 0 For i = 1 To 48 7 D/ _4 i4 x* ]) D4 R3 ~" Z! R6 @ SqrResult = SqrResult + Sqr(Sht.Cells(1, i)) Next i # W' N) w2 O0 a1 N _! o( X, g' y Sht.Cells(1, 49) = SqrResult '将结果写入第一行的第49列 1 H4 s" _* F3 fEnd Sub

kangson

'第一个问题的解决方法，写一个循环，对每个单元格进行操作，比如说处理范围是: 100*100, 如下: 4 s4 V; ^% A, ~Sub bbb() 4 i; l1 ~+ g8 W8 G6 g2 D/ V Dim i As Long, ii As Long, curStr As String, pos As Long, curValue As Double 3 a) i/ k8 {5 ^0 F1 i Dim Sht As Worksheet . l/ |; ~6 Z* n; n Set Sht = ThisWorkbook.ActiveSheet 6 m( F8 P3 W- O5 h# k4 I4 Z# b For i = 1 To 100 For ii = 1 To 100 ' ^2 ]' ]% E/ k' C7 V! ^$ W6 Z" j6 b) W curStr = Sht.Cells(i, ii) 0 b( x4 q% c. K8 M If Len(curStr) > 0 Then pos = InStr(curStr, "/") If pos > 0 Then curValue = CDbl(Left$(curStr, pos - 1)) / Right$(curStr, Len(curStr) - pos) Sht.Cells(i, ii) = curValue End If 5 x' Y4 v% X$ V4 o# L End If 4 }! c1 m) h! v' x& X/ f* A. U4 j Next ii : T+ H& q5 D- ?5 L+ C- A) I' i Next i End Sub 不怎么会用excel, 所以代码可能麻烦了，如果哪位高人有更简单的转换方法，欢迎赐教。 [ 本帖最后由 kangson 于 13.8.2008 23:13 编辑 ]

kangson

viel spass

zhuli23

好感动呀,大家这么热心!由衷感谢!我的是中文版的,楼上写的我看不懂呀,我不怎么会德语!

zhuli23

我的是英文版的

kangson

代码对任何版本都适用。 \1 J1 F G$ n/ `另外， 除了·viel spass·这两个跟问题无关的词以外，我没有写任何德语阿 6 S' f6 M% u Z# f8 b [ 本帖最后由 kangson 于 13.8.2008 23:47 编辑 ]

zhuli23

再次感谢hubeck和kangson!好人好报! 昨晚仔细研读二位的指点,发现以下问题,关于问题1,我的意思是上百个单元格的分数变成数值,我现在的做法是一个个弄等号,然后得出,我找到了mid,虽然没有成功运用,但我想楼上还是以为我要把一个单元格的文本变成数值,我的意思是上千个文本,也许我没把mid就是干这个的,我研究了半天感觉好像不是,请赐教! " n/ U' t7 }' w3 ]& g关于问题2,我试了SUM(SQRT(A1):SQRT(Z1))不好用,我想肯定是我的书写有问题,也许就这样一个简单命令,就可以在一行中解决?