Excel:具有特定选定单元格的'for loops'的语法是什么?

时间:2015-02-15 19:21:06

标签: excel excel-vba for-loop vba

我的Excel项目有点问题。

我将选择一组单元格,我想要一个宏,当运行时有一个for循环,检查所有包含的单元格以查看它们的样式是否“好”,如果是,则在总框中添加一个< / p>

Excel Example

在这个例子中,当我选择此表格中的单元格并按下按钮时,总计下面的单元格应为5,因为表格中的5个单元格具有“良好”主题。

(例如,假设“总计”单元格下的单元格为D5)

谢谢!

1 个答案:

答案 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