Tag: 每个

excel vba为每个循环嵌套

我正在研究excelmacros，并陷入了一个困境。 需要帮助，请解决它。 我必须在表单中查找2行，并且对于1行中的每个值，查找2行中的单元格值。 如果第2行中的值范围等于某个条件值，则从第2行中检出并将该标志设置为true。 为了实现这个，我使用了两个For Each循环： Sub Sendmail () For Each cell in Rows("5").Cells.SpecialCells(xlCellTypeConstant) If cells.Value Like "*@*" Then Subj = "Fill the Sheet" Recipient = cell.Offset(0,-3).Value EmailAddr = cell.Offset.Value For Each row In Sheet14.Range("O244:AK244").Cells If Not row = '8.00" Then found = False Else found = True End If Next row If found = […]

如何停止每个循环

我是VBA新手。 我试图for each循环提供一个值，其中x=y的位置，但我一直在我的陈述(C10)中获得最后一个Y的位置。 我希望有一个人可以帮助我。 亲切的问候 Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant Set CompareRange = Range("C1:C10") For Each x In Selection For Each y In CompareRange If x = y Then y.Select Application.CutCopyMode = False Selection.Copy x.Offset(0, 1).Select Selection.PasteSpecial Paste:=xlPasteFormats Selection.PasteSpecial Paste:=xlPasteValues x.Offset(0, 3).Value = y.Address Next y x.Offset(0, 5).Select […]

对于每个控制variables必须是变体或对象

真的很新的VBA在这里…我环顾四周，试图拼凑一些代码，以满足我的需要。 认为它几乎在那里，但我得到的错误可能容易克服，但我不知道如何。 代码查看当前工作表（STOCK），并从单元格A2获取“目标”文本值。 然后它在另一个表“其他”中search一个命名范围。 如果确定Other中的其中一个单元格（'cand'）等于目标值，则在原始目标的同一行上的STOCK表格的G列将应用“True”值。 希望这是有道理的。 我已经复制了代码，这可能会让事情更清楚。 Dim target As String Dim cand As String Dim currentrow As Integer Sub search_named_range（）'这个范围是硬编码的; 我们可以尝试A：如果硬编码版本工作'对于每个目标在工作表（“STOCK”）。范围（“A2：A1000”）'检索当前范围的行，用于设置目标值'currentrow =范围（target）.Row'FOR循环searchMojave中零件编号的范围'For Each cand In Worksheets（“Other”）。Range（“N9：N150”）如果StrConv（cand.Value，2）= StrConv（target， 2）然后工作表（“STOCK”）。范围（“G”+ currentrow）=“真”转到前端如果下一步cand'如果部分没有find，什么都不做，返回find下一个目标'FORend：Next target End Sub 目前，我收到错误“对于每个控制variables必须是变体或对象”，但无法find任何解释为什么这是。 我相信这是很明显的，但一个steer将非常​​感激。 谢谢。

每个工作表循环的Excel VBA

我正在处理代码，基本上遍历我的工作簿中的每个工作表，然后更新列宽。 下面是我写的代码; 我没有收到任何错误，但实际上也没有做任何事情。 任何帮助是极大的赞赏！ Option Explicit Dim ws As Worksheet, a As Range Sub forEachWs() For Each ws In ActiveWorkbook.Worksheets Call resizingColumns Next End Sub Sub resizingColumns() Range("A:A").ColumnWidth = 20.14 Range("B:B").ColumnWidth = 9.71 Range("C:C").ColumnWidth = 35.86 Range("D:D").ColumnWidth = 30.57 Range("E:E").ColumnWidth = 23.57 Range("F:F").ColumnWidth = 21.43 Range("G:G").ColumnWidth = 18.43 Range("H:H").ColumnWidth = 23.86 Range("i:I").ColumnWidth = 27.43 Range("J:J").ColumnWidth […]