开元周游
德国频道
楼主: hubeck
打印 上一主题 下一主题

想成立一个Excel联盟,大家有没有兴趣?

[复制链接]
21#
 楼主| 发表于 13.8.2008 12:47:38 | 只看该作者
楼上的问题说的不是太清楚,我先按照我的猜测说一下 : i+ C8 K- {4 L" v5 \1 @. Z5 N- c' N( R0 i; B6 v. B) L 1,你说的分数形式是不是类似4/5这种没计算出结果的文本格式?如果是的话可以用Mid(中文或者英文Excel)或者teil(德文版Excel)公式取得分子和分母,然后计算就行了,估计用时两分钟。 ' F% ~+ J( J+ }) {/ D0 y# ]3 C6 I3 j3 N 2,如果我理解正确的话,这个貌似不用程序。第一行是你的48个数字,下一行求他们的平方根,然后随便什么地方sum一下就行了吧?还是你们要求一定要用VBA写点儿什么?
回复 支持 反对

使用道具 举报

22#
发表于 13.8.2008 13:51:20 | 只看该作者
感谢您的及时回复,您对我的问题的理解完全正确,您说的mid是啥,我咋不会操作呢,+ D' I+ R# T. O/ w% }1 d 关于第二个问题您的回答我已理解,我想最好还是在一行里用个命令解决,谢谢您!
回复 支持 反对

使用道具 举报

23#
 楼主| 发表于 13.8.2008 19:58:55 | 只看该作者
mid是一个公式,点插入公式,搜索mid,不会用的话就点F1看帮助。 5 l9 {, g! U' q- `# W- Y, N& M% Z8 B$ G' ~6 G$ ?1 E1 g; ` 第二个问题你一定要在一行内解决的话,可以找个单元格敲等于号,然后老老实实的写公式,或者也可以用宏,如果以后这个操作要重复,但也工作量也差不多。还是建议原来的答案。
回复 支持 反对

使用道具 举报

24#
发表于 13.8.2008 21:39:18 | 只看该作者
'第二个问题的答案 1 m" N* w# m5 f'计算平方根,然后求和 ! T7 I0 V9 Y/ l" cSub aaa(). O# K l. I T6 |5 v Dim i As Long 9 z, i; [+ T. a& ^ Dim Sht As Worksheet & |; ~1 R4 h1 O1 \/ \ Dim SqrResult As Double 8 A6 d. G Y6 d t* v0 A+ d Set Sht = ThisWorkbook.ActiveSheet! w/ |9 w' D' e8 x. O2 E1 F% ?/ ? SqrResult = 0$ w/ K# X' M$ {& a a# r+ K For i = 1 To 48 6 f. [6 W# P) R SqrResult = SqrResult + Sqr(Sht.Cells(1, i))2 `0 Q1 G: L9 v) z; d" \ Next i , z+ g& F7 o9 [5 | Sht.Cells(1, 49) = SqrResult '将结果写入第一行的第49列* B- \3 v0 s5 l/ h S End Sub
回复 支持 反对

使用道具 举报

25#
发表于 13.8.2008 22:06:14 | 只看该作者
'第一个问题的解决方法,写一个循环,对每个单元格进行操作,比如说处理范围是: 100*100, 如下:; z- k/ n1 W8 F% r Sub bbb() & O1 H) m3 y# B" C3 ` Dim i As Long, ii As Long, curStr As String, pos As Long, curValue As Double 1 y# N, J4 F2 i4 E+ K- G Dim Sht As Worksheet 5 k: }0 K: b7 B% | ) |! p! Q L/ X Set Sht = ThisWorkbook.ActiveSheet " n) I3 E4 [7 a' ?" s For i = 1 To 100 1 L) P; j. V1 T4 ~9 A( k% X For ii = 1 To 100 ( e' Z$ D( k% _9 ?0 K+ } curStr = Sht.Cells(i, ii)# t' }7 ~5 Q" ? If Len(curStr) > 0 Then ' i [: [: s+ u+ |5 k' V- g pos = InStr(curStr, "/")# Y9 z5 F% G' \' X If pos > 0 Then S5 {. L/ q$ h3 n- W0 [+ u: l- q curValue = CDbl(Left$(curStr, pos - 1)) / Right$(curStr, Len(curStr) - pos) % ~+ n( C# A6 C' n4 k$ z7 N, S7 z Sht.Cells(i, ii) = curValue ; Q1 L9 z- s. ^& R2 G2 O7 e+ [( y+ ?3 w End If 3 M+ `2 H" s/ ~; e" }. R End If& k, _% f, J4 R8 J& [3 s$ \ Next ii U6 w. ]9 d' D; a* S Next i + U; k3 M" q+ [2 Z; \End Sub. M$ j2 D; x& N ( [9 g( @2 l+ ?8 n! T. x* } 不怎么会用excel, 所以代码可能麻烦了,如果哪位高人有更简单的转换方法,欢迎赐教。 v+ P# F! y' A( q( W' m# x 4 J, ~- J& N+ S/ W/ s [ 本帖最后由 kangson 于 13.8.2008 23:13 编辑 ]
回复 支持 反对

使用道具 举报

26#
发表于 13.8.2008 22:06:52 | 只看该作者
回复 支持 反对

使用道具 举报

27#
发表于 13.8.2008 22:26:49 | 只看该作者
好感动呀,大家这么热心!由衷感谢!我的是中文版的,楼上写的我看不懂呀,我不怎么会德语!
回复 支持 反对

使用道具 举报

28#
发表于 13.8.2008 22:28:44 | 只看该作者
回复 支持 反对

使用道具 举报

29#
发表于 13.8.2008 22:45:29 | 只看该作者
代码对任何版本都适用。5 |- u' @7 i7 Q1 M, m B 另外, 除了·viel spass·这两个跟问题无关的词以外,我没有写任何德语阿 5 X+ g2 R% Y4 y) ]3 C* ?8 g7 y: a: ?2 a+ L& } [ 本帖最后由 kangson 于 13.8.2008 23:47 编辑 ]
回复 支持 反对

使用道具 举报

30#
发表于 14.8.2008 05:40:57 | 只看该作者
再次感谢hubeck和kangson!好人好报! 5 `% J) q8 |2 _) I: @ U昨晚仔细研读二位的指点,发现以下问题,关于问题1,我的意思是上百个单元格的分数变成数值,我现在的做法是一个个弄等号,然后得出,我找到了mid,虽然没有成功运用,但我想楼上还是以为我要把一个单元格的文本变成数值,我的意思是上千个文本,也许我没把mid就是干这个的,我研究了半天感觉好像不是,请赐教! ; m4 V9 a4 l# ~关于问题2,我试了SUM(SQRT(A1):SQRT(Z1))不好用,我想肯定是我的书写有问题,也许就这样一个简单命令,就可以在一行中解决?
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

站点信息

站点统计| 举报| Archiver| 手机版| 小黑屋

Powered by Discuz! X3.2 © 2001-2014 Comsenz Inc.

GMT+1, 19.2.2025 00:05

关于我们|Apps

() 开元网

快速回复 返回顶部 返回列表