具体 *** 作方法步骤总结如下
这个Excel增加一个宏程序就能解决,具体 *** 作方法
1、打开excel表,导入学习名单
2、打开宏,录制宏,跟剧个人需要进行 *** 作
3、保存宏,用的时候打开使用就可以了。
你建个宏,执行一下就行了。如下Sub Macro1()
Dim n As Long
Dim SX As Long
Dim YW As Long
SX = 0
YW = 0
n = 2
Do While Not IsEmpty(Cells(n, 1).Value)
If Cells(n, 1).Interior.ColorIndex = 6 And Cells(n, 1).Interior.Pattern = xlSolid Then
If Cells(n, 1).Value = "数学" Then SX = SX + 1
If Cells(n, 1).Value = "语文" Then YW = YW + 1
End If
n = n + 1
Loop
Cells(1, 2).Value = "语文:" &YW
Cells(1, 3).Value = "数学:" &SX
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)