[已解决]VBA数据问题

liumiaomiao

ＶＢＡ统计的每个学生的总分不要在“立即窗口”显示，所要的结果在Ｆ２：Ｆ５８显示
谢谢我心飞翔４１０

VBA统计求助.rar (18.9 KB, 下载次数: 9)

2013-8-22 11:07 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-8-22 17:15

难道是这样

跳转到最佳答案楼层

我心飞翔410

用函数不是很简单么 干嘛用v啊

我心飞翔410

看看是不是这样

liumiaomiao

我心飞翔410 发表于 2013-8-22 11:26
用函数不是很简单么 干嘛用v啊

用函数我会，但是通过ＶＢＡ来计算还不熟练

liumiaomiao

我心飞翔410 发表于 2013-8-22 11:46
看看是不是这样

首先表示感谢
与我想象的有点区别，我在里面定义了一个类模块“函数”，有求和；模块１（Sub 计算()）是通过调用“函数”来计算每个学生的成绩，在“立即窗口”会显示，我现在就是希望算出的数据在单元格显示，这才是我的目的

我心飞翔410

Sub 计算()
Dim f As New 函数
sheets("sheet1").Range("f60") = "各人总分：" & f.求和(Range("C2:E2"))
sheets("sheet1").Range("f61") = "全班语数英总分：" & f.求和(Range("C2:E58"))
End Sub
这样就可以了 你看看 sheet1中 f60    f61 单元格中就知道了 呵呵

liumiaomiao

我心飞翔410 发表于 2013-8-22 12:19
Sub 计算()
Dim f As New 函数
sheets("sheet1").Range("f60") = "各人总分：" & f.求和(Range("C2:E2" ...

显示的位置有点问题，另外只显示了第一个学生的成绩，还有５６个没成绩。

各人的总分要在Ｆ２：Ｆ５８显示，共５７个记录；      
全班语文、数学、英语的总分在Ｆ５９显示。

我心飞翔410

liumiaomiao 发表于 2013-8-22 13:34
显示的位置有点问题，另外只显示了第一个学生的成绩，还有５６个没成绩。

各人的总分要在Ｆ２：Ｆ５８ ...

我给你的附件就是啊  
你要向那种显示嘛？

我心飞翔410

难道是这样

liumiaomiao

我心飞翔410 发表于 2013-8-22 17:15
难道是这样

请问：能不能把“个人总分：　”、“全班语数英总分：　”拿掉？