UC知道excel vba 简单的3题目 请大家帮忙
来源：百度知道 编辑：UC知道 时间：2024/05/22 09:41:36
很简答的题目希望大大们帮忙。
运行宏 INPUTBOX内容是 张三语文成绩 然后输入比如90 然后表格B1显示90
张三数学成绩 89 然后C1显示89
以此类推 全部输入完毕 平均和合计自动算出
第二题：运行宏 直接算出劳动时间和日给 合计
时给按800算
SHEET1 SHEET2 SHEET3 都能算出来 一个宏这三个都能算出来
第三题：A1 红色格子里是红色 B1蓝色 C1黄色 背景色
然后MSGBOX 显示游戏开始 点击开始 先是红色比如红色走3格 那么A5那格变成红色
然后 蓝色 然后 黄色 以此开始 下一轮红色再走5格 那么A12 那格变成 红色
在依次 其他的格子背景色不变 还是白色 直到比如 红色走到胜利了 那么MSGBOX 显示红色胜利 A27那格子变成 红色
可能说的不清楚 但是做了原件 请大大们留下 邮箱 我会发过去 谢谢
或者直接 发内容到zhuangw123@yahoo.com.cn 我会帮文件传送出去
运行宏 INPUTBOX内容是 张三语文成绩 然后输入比如90 然后表格B1显示90
张三数学成绩 89 然后C1显示89
以此类推 全部输入完毕 平均和合计自动算出
第二题：运行宏 直接算出劳动时间和日给 合计
时给按800算
SHEET1 SHEET2 SHEET3 都能算出来 一个宏这三个都能算出来
第三题：A1 红色格子里是红色 B1蓝色 C1黄色 背景色
然后MSGBOX 显示游戏开始 点击开始 先是红色比如红色走3格 那么A5那格变成红色
然后 蓝色 然后 黄色 以此开始 下一轮红色再走5格 那么A12 那格变成 红色
在依次 其他的格子背景色不变 还是白色 直到比如 红色走到胜利了 那么MSGBOX 显示红色胜利 A27那格子变成 红色
可能说的不清楚 但是做了原件 请大大们留下 邮箱 我会发过去 谢谢
或者直接 发内容到zhuangw123@yahoo.com.cn 我会帮文件传送出去
Sub Macro1()
'
' Macro1 Macro
' 宏由 W.helper 录制，时间: 2009-7-12
'
Range("A1").Select
ActiveCell.FormulaR1C1 = "语文成绩"
Range("B1").Select
ActiveCell.FormulaR1C1 = "数学成绩"
Range("C1").Select
ActiveCell.FormulaR1C1 = "英语成绩"
Range("D1").Select
ActiveCell.FormulaR1C1 = "平均分"
Range("E1").Select
ActiveCell.FormulaR1C1 = "总分"
X = InputBox("", "输入语文成绩")
Range("A2").Select
ActiveCell.FormulaR1C1 = X
Y = InputBox("", "输入数学成绩")
Range("B2").Select
ActiveCell.FormulaR1C1 = Y
Z = InputBox("", "输入英语成绩")
Range("C2").Select
ActiveCell.FormulaR1C1 = Z
Range("D2").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-3]:RC[-1])"