我的Excel项目有点问题。
我将选择一组单元格,我想要一个宏,当运行时有一个for循环,检查所有包含的单元格以查看它们的样式是否“好”,如果是,则在总框中添加一个< / p>
在这个例子中,当我选择此表格中的单元格并按下按钮时,总计下面的单元格应为5,因为表格中的5个单元格具有“良好”主题。
(例如,假设“总计”单元格下的单元格为D5)
谢谢!
答案 0 :(得分:0)
目前尚不清楚“好风格”是什么,但你可以尝试类似的东西:
Sub CheckStyle()
Dim rng As Range
Dim total As Integer
If TypeName(Selection) = "Range" Then
For Each rng In Selection
'enter any 'good' style defintion below
If rng.Style = "Good" Then
total = total + 1
End If
Next rng
'change d5 to result cell address below
ActiveSheet.Range("d5").Value = total
End If
End Sub