VBA:如何使用 if 条件检查列的单元格(已知列号)是否等于某个值？

Question

我是 VBA 新手，所以这可能是一个简单的问题。

首先，我在一个工作表中搜索以查找包含单词“TABLES”的列号。

然后，我想检查此列的单元格是否等于 400 到 450 之间的数字，当条件为真时，我创建打印预览。

Sub CustomPrint()

Dim Lost As Variant

Lost = TABLES

With ActiveSheet.Range("A1").CurrentRegion
Set c = .Find(Lost, LookIn:=xlValues)
End With

For i = 400 To 450 Step 1
If (ActiveSheet.Columns(c).Value = i) Then ActiveSheet.PrintOut preview:=True
Next

End Sub

ActiveSheet.Columns(c).Value = i -> 这是我收到错误消息的地方。

提前谢谢您。

Answer 1

我认为这对你有用。一旦找到 TOTAL(字符串，而不是变体)，它将循环遍历该行(从 TOTAL 下面开始)直到最后一行。然后它将查看该范围内是否有任何单元格在 400 | 之间。 450 并在 true 时显示打印预览

Sub CustomPrint()

Dim ws As Worksheet: Set ws = ThisWorkbook.Sheets("Sheet1")

Dim Found As Range, SearchRange As Range, MyCell As Range, LRow as Long

Set Found = ws.Range("A1").CurrentRegion.Find("TABLES", LookIn:=xlValues)
If Found Is Nothing Then Exit Sub

LRow = ws.Cells(ws.Rows.Count, Found.Column).End(xlUp).Row
Set SearchRange = ws.Range(ws.Cells(Found.Row + 1, Found.Column), ws.Cells(LRow, Found.Column))

For Each MyCell In SearchRange
    If MyCell > 400 And MyCell < 450 Then
        MyCell.WorkSheet.PrintOut Preview:=True
    End If
Next MyCell

End Sub