设置窗体相关属性
输入代码 Private Sub CommandButton1_Click() Dim c As Range Dim c1, n, i As Integer n = 0 For i = 1 To Workbooks.Count For Each c In Sheets(i).UsedRange If c.Value >= 150 And c.Value <= 160 Then c1 = c1 + c.Value n = n + 1 End If ‘更多条件…… Next Next
TextBox1.Text = n TextBox2.Text = c1 End Sub
按 F5 运行 运行效果
注意: 设置宏安全性,否则可能无法运行 工具——宏——安全性
本站仅提供存储服务,所有内容均由用户发布,如发现有害或侵权内容,请
点击举报。