Excel登记成绩的一个宏

假设由好几个助教, 我们希望合成一个表格, 需要将其它助教的纸质档成绩登记到现有excel表格. 可以使用以下宏来完成:
1. 自动录入A+(Ctrl+Shift+A), A(Ctrl+a), A-(Ctrl+q), B+(Ctrl+Shift+B), B(Ctrl+b), B-(Ctrl+g)
2. 上面括号里面是快捷键, 需要自己定义(方法: 宏->查看宏->选项->快捷键)
3. 我们可以使用Alt+F11来编辑宏, 然后将下面的代码粘贴进去即可.
4. 下面的代码中, 会自动添加颜色为暗红色, 这在一定程度上实现了自动改变输入的颜色
4. 助教成绩的统计很容易通过COUNTIF(range, "A+")来实现(这里是统计A+的个数)

Sub redA()
'
' redA 宏
' 红色A
'
' 快捷键: Ctrl+a
'
    ActiveCell.FormulaR1C1 = "A"
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
End Sub

Sub red_A()
'
' red_A 宏
' 红色A+
'
' 快捷键: Ctrl+Shift+A
'
    ActiveCell.FormulaR1C1 = "A+"
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
End Sub

Sub redA_()
'
' redA_ 宏
' 红色A-
'
' 快捷键: Ctrl+q
'
    ActiveCell.FormulaR1C1 = "A-"
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
End Sub
Sub redB()
'
' redB 宏
' 红色B
'
' 快捷键: Ctrl+b
'
    ActiveCell.FormulaR1C1 = "B"
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
End Sub

Sub red_B()
'
' red_B 宏
' 红色B+
'
' 快捷键: Ctrl+Shift+B
'
    ActiveCell.FormulaR1C1 = "B+"
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
End Sub
Sub redB_()
'
' redB_ 宏
' 红色B-
'
' 快捷键: Ctrl+g
'
    ActiveCell.FormulaR1C1 = "B-"
    With Selection.Font
        .Color = -16777024
        .TintAndShade = 0
    End With
End Sub

Sub redA()

' redA 宏

' 红色A

' 快捷键: Ctrl+a

ActiveCell.FormulaR1C1 = "A"

With Selection.Font

.Color = -16777024

.TintAndShade = 0

End With

End Sub

Sub red_A()

' red_A 宏

' 红色A+

' 快捷键: Ctrl+Shift+A

ActiveCell.FormulaR1C1 = "A+"

With Selection.Font

.Color = -16777024

.TintAndShade = 0

End With

End Sub

Sub redA_()

' redA_ 宏

' 红色A-

' 快捷键: Ctrl+q

ActiveCell.FormulaR1C1 = "A-"

With Selection.Font

.Color = -16777024

.TintAndShade = 0

End With

End Sub

Sub redB()

' redB 宏

' 红色B

' 快捷键: Ctrl+b

ActiveCell.FormulaR1C1 = "B"

With Selection.Font

.Color = -16777024

.TintAndShade = 0

End With

End Sub

Sub red_B()

' red_B 宏

' 红色B+

' 快捷键: Ctrl+Shift+B

ActiveCell.FormulaR1C1 = "B+"

With Selection.Font

.Color = -16777024

.TintAndShade = 0

End With

End Sub

Sub redB_()

' redB_ 宏

' 红色B-

' 快捷键: Ctrl+g

ActiveCell.FormulaR1C1 = "B-"

With Selection.Font

.Color = -16777024

.TintAndShade = 0

End With

End Sub

本作品采用创作共用版权协议, 要求署名、非商业用途和保持一致. 转载本站内容必须也遵循署名-非商业用途-保持一致的创作共用协议.

一	二	三	四	五	六	日
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30	31

Excel登记成绩的一个宏

相关文章

实验数据独立性检验小记

发表回复 取消回复

发表回复取消回复