Tag: while循环

VBA转到下一个过滤的单元格

我目前使用下面的代码： Sub SendEmail() Dim objOutlook As Object Dim objMail As Object Dim RowsCount As Integer Dim Index As Integer Dim Recipients As String Dim Category As String Dim CellReference As Integer Set objOutlook = CreateObject("Outlook.Application") Set objMail = objOutlook.CreateItem(0) If ActiveSheet.FilterMode = True Then RowsCount = ActiveSheet.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count – 1 ElseIf ActiveSheet.FilterMode = False Then RowsCount […]

如何与其他人在一起

所以我在这里有这段代码： While day = "M" Call Schedule(i) Wend While day = "T" Call Schedule(i) Wend While day = "W" Call Schedule(i) Wend While day = "R" Call Schedule(i) Wend While day = "F" Call Schedule(i) Wend 有没有更简单的方法来编写所有这些while语句。 澄清事情，我有一个表格，有2000行与信息有关的课程，我希望代码阅读的日子顺序wekk：星期一，星期二，星期三，星期四，星期五，我怎么能这样做在这里。 提前致谢

为包含stringsearch和sumifs的公式创buildVBA循环

我有一个公式，在另一张表上search列标题，然后一旦它发现它通过一些sumifs 。 我的数据大致如下所示： 1 8 10 11 12 Column E … Column N … Column O … Column AB Column AC Column AD Column AE Existing CCS data 100.00 100.00 120.00 150.00 列名上面的数字是重要的，我用它们来指定与我的公式相关的列。 现在，实际上只有less数几个单元对循环很重要。 单元格A1有我想终止的列号。 单元格B1有我想要开始的列号。 所以，如果我selectA1=8和B1=1 ，我希望下面的代码运行sumifs开始search列1 ，然后是第2列，一直到第8列，并将所有的值从每个循环加在一起，给我总数。 以上面的表格为例，如果我设置A1="12"和B1="10" ，我希望它吐出370.00 。 我现在的公式是这样的： =SUMIFS(INDEX('Program Data'!$A:$GA,0,MATCH(A1,'Data'!$1:$1,0)),'Data'!$N:$N,"CCS", 'Data'!$E:$E,"Existing")+SUMIFS(INDEX('Data'!$A:$GA,0,MATCH(A1,'Data'!$1:$1,0)), 'Data'!$N:$N,"CCS",'Data'!$E:$E,"Deep") 上面的公式只给出了包含A1数值string的列的总数，但是我需要一个包含B1 -> A1string的所有列的总和。 编辑 按照要求，这是我在这个循环失败的尝试。 由于B1本质上总是一个静态数字（意味着它总是45或88），所以我想我可以创build一个循环，告诉它以B1的值开始，并且根据需要创build并删除公式它。 所以对于这个，B1 = […]