时间戳

首页 > 解决方案 > Souble Loop 表和单元格

excel - Souble Loop 表和单元格

问题描述

请看下面的代码。它工作得很好，但是当我尝试在所有工作表上添加额外的循环时，它会给我一个不匹配错误 13

这个有效

Sub ostdat()

Dim val As String
val = InputBox(Insert)
For Each cell In Range("d2:d20")
If cell = val Then
cell.Interior.ColorIndex = 30
End If
Next cell

End Sub

但是这个不起作用，我只添加了床单循环

Sub ostdat()
Dim val As String
dim ws as worksheet
val = InputBox(Insert)
For Each ws In Worksheets
ws.Activate
For Each cell In Range("d2:d20")
If cell = val Then
cell.Interior.ColorIndex = 30
End If
Next cell
Next ws
End Sub

基本上我要做的是循环所有工作表和 d 列中的所有单元格，并突出显示单元格中的值符合收件箱标准的所有单元格（如“X130”）。

谢谢丹

标签： excelvba

解决方案

Sub ostdat()
Dim val As String
Dim ws As Worksheet
Dim c As Range

val = InputBox("Enter Number")
For Each ws In Worksheets
    For Each c In ws.Range("d2:d20")
         If c = val Then
              c.Interior.ColorIndex = 30
         End If
    Next c
Next ws
End Sub

推荐阅读