excel vba 简单的3题目 请大家帮忙
发布网友
共1个回答
热心网友
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])"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=SUM(RC[-4]:RC[-2])"
'
End Sub
第一个问题.其它的自己也可以录
