学生名次对比工具

lzqlaj · 发表于 2016-7-6 18:53

可以对比学生两次考试后名次变化情况。点击附件中“比较”，看看有什么变化。欢迎测试。。

lsc900707 · 发表于 2016-7-6 21:53

老师又有新作品面世，了不起！对毕业班师生很有价值的。下载收藏学习！

lsc900707 · 发表于 2016-7-6 21:56

老师，今天恰好接触一程序，是销量涨跌的。我们也可以借鉴一下：进步的我们表示红色；退步的我么显示绿色。加点颜色更醒目。您看如何？

lsc900707 · 发表于 2016-7-7 06:46

本帖最后由 lsc900707 于 2016-7-7 07:30 编辑

If cha > 0 Then Cells(i0, k2 + 2) = "↑" & cha
Cells(i0, k2 + 2).Font.Color = -16776961
If cha < 0 Then Cells(i0, k2 + 2) = "↓" & cha * (-1)
Cells(i0, k2 + 2).Font.Color = -11489280
老师，怎么字体颜色都显示为绿色？

lsc900707 · 发表于 2016-7-7 09:01

lsc900707 发表于 2016-7-7 06:46
If cha > 0 Then Cells(i0, k2 + 2) = "↑" & cha
Cells(i0, k2 + 2).Font.Color = -16776961
If ...

谢谢，原来要和上面的if模块一起运行才可以。
               If arr1(i) = arr2(j) Then
                           i0 = i + bth
                           j0 = j + ybmbth
                           cha = Sheets(ybm).Cells(j0, k1 + 1) - Cells(i0, k2 + 1)
                           ElseIf cha > 0 Then
                              Cells(i0, k2 + 2) = "↑" & cha
                              Cells(i0, k2 + 2).Font.Color = -16776961
                           ElseIf cha < 0 Then
                              Cells(i0, k2 + 2) = "↓" & cha * (-1)
                              Cells(i0, k2 + 2).Font.Color = -11489280
                           ElseIf cha = 0 Then Cells(i0, k2 + 2) = "---"

lsc900707 · 发表于 2016-7-8 20:51

大师，今天再次测试时，发现一个奇怪的现象：d64居然无任何显示！不知到底是什么原因。查了很久，没结果！

lsc900707 · 发表于 2016-7-9 08:03

                     If arr1(i) = arr2(j) Then
                           i0 = i + bth
                           j0 = j + ybmbth
                           cha = Sheets(ybm).Cells(j0, k1 + 1) - Cells(i0, k2 + 1)
                           If cha > 0 Then
                              Cells(i0, k2 + 2) = "↑" & cha
                              Cells(i0, k2 + 2).Font.Color = -16776961
                           ElseIf cha < 0 Then
                              Cells(i0, k2 + 2) = "↓" & cha * (-1)
                              Cells(i0, k2 + 2).Font.Color = -11489280
                           ElseIf cha = 0 Then Cells(i0, k2 + 2) = "---"
                              Cells(i0, k2 + 2).Font.Color = -16711681
                           End If
今次测试，如想三色突出显示，代码须做如上修改，方不致出错！

lzqlaj · 发表于 2016-7-9 08:45

用我的附件D64显示,速度很快。用你的附件D64不显示，而且很慢，即使不显示字体颜色的情况下。

lsc900707 · 发表于 2016-7-9 09:34

lzqlaj 发表于 2016-7-9 08:45
用我的附件D64显示,速度很快。用你的附件D64不显示，而且很慢，即使不显示字体颜色的情况下。

大师，这个问题，症结在哪里？如何解决呢？

lsc900707 · 发表于 2016-7-9 09:48

lzqlaj 发表于 2016-7-9 08:45
用我的附件D64显示,速度很快。用你的附件D64不显示，而且很慢，即使不显示字体颜色的情况下。

大师，我的附件慢的原因是改过代码，残留了字体颜色格式设置。光清除内容不行，还要改回字体颜色设置才行。

		自动登录	找回密码
密码			免费注册

学生名次对比工具

评分