声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 3116|回复: 9

[其它软件] 在 Excel 中编写 VBA 程序提高工作效率

[复制链接]
发表于 2006-11-10 07:47 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
在学生成绩统计时,要将工作表中成绩小于 60 的数字标记为红色,如果表非常多,则手工操作十分麻烦,也容易出错。这时,可以编写一段 vba 程序来实现,既快又准确。在 excel 中打开工作表,在“工具”菜单中选择“宏”子菜单下的“宏…”,在弹出的“宏”对话框中输入宏名,如 hong,然后单击“创建”按钮,随后出现“microsoft visual basic”窗口,在模块窗口中输入以下语句,再返回 excel 界面执行宏即可。
   sub 标记成绩()
    for i = 2 to 100
     for j = 2 to 20
     score = activesheet.cells(i, j)
     if score < 60 then
       activesheet.cells(i, j).font.colorindex = 3 '3 = 红色
     else
       activesheet.cells(i, j).font.colorindex = 1 '1 = 黑色
     end if
     next i
    next j
   end sub
回复
分享到:

使用道具 举报

发表于 2006-11-11 08:16 | 显示全部楼层
看来无老的学生真是多啊!
发表于 2007-1-5 10:34 | 显示全部楼层
感谢楼主,编译了一下,楼主有的小错误。
发表于 2007-1-6 20:01 | 显示全部楼层
原帖由 nymail 于 2007-1-5 10:34 发表
感谢楼主,编译了一下,楼主有的小错误。



是有点错误,修正后如下:
  1.    sub 标记成绩()
  2.     for i = 2 to 100
  3.      for j = 2 to 20
  4.      score = activesheet.cells(i, j)
  5.      if score < 60 then
  6.        activesheet.cells(i, j).font.colorindex = 3 '3 = 红色
  7.      else
  8.        activesheet.cells(i, j).font.colorindex = 1 '1 = 黑色
  9.      end if
  10.      next j
  11.     next i
  12.    end sub
复制代码
发表于 2007-1-7 10:47 | 显示全部楼层

请教各位大侠

我有几组个数不等的速度数据,想求出他们的加速度值,如何去求?在excel中,谢谢各位!
发表于 2007-1-8 15:33 | 显示全部楼层
原帖由 05115237 于 2007-1-7 10:47 发表
我有几组个数不等的速度数据,想求出他们的加速度值,如何去求?在excel中,谢谢各位!


Excel没有直接求导的函数,不过如果是数值求导的话,可以自己使用导数关系式实现
发表于 2007-1-8 18:01 | 显示全部楼层

详细

能说一下用哪个公式吗?线性可以吗?
发表于 2007-1-9 08:34 | 显示全部楼层
原帖由 05115237 于 2007-1-8 18:01 发表
能说一下用哪个公式吗?线性可以吗?



y(i+1)-y(i)
------------
x(i+1)-x(i)

当然也可以是其他差分公式
发表于 2008-5-30 15:42 | 显示全部楼层
不错的。很好用,以前是浪费精力了。
发表于 2008-6-22 13:24 | 显示全部楼层
受教了,我一定要试一下。谢谢LZ
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-25 01:34 , Processed in 0.072016 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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