0

我正在尝试根据来自单行和单列的信息将某些单元格变为红色。我的算法应该做的是搜索单个列并找到匹配的字符串并保存列号，然后对行执行相同的操作。然后脚本选择单元格并将其变为红色。

我搜索的所有键都来自我在网上找到的一段代码，并根据我的需要进行了修改。它完美地工作。问题是我无法让搜索正常工作。

Option Explicit


Sub Blahbot()

Dim xRow As Long
Dim x As Long, y As Long
Dim xDirect$, xFname$, InitialFoldr$, xFF$

InitialFoldr$ = "G:\" '<<< Startup folder to begin searching from

With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = Application.DefaultFilePath & "\"
    .Title = "Please select a folder to list Files from"
    .InitialFileName = InitialFoldr$
    .Show
    If .SelectedItems.Count <> 0 Then
        xDirect$ = .SelectedItems(1) & "\"
        xFname$ = Dir(xDirect$, 7) '<<< Where the search terms come from
        Do While xFname$ <> ""
            y = Application.WorksheetFunction.Match(Mid(xFname$, 11, 4), Range("D2:KD2"), 0) '<<< Find a matching string in table header
            x = Application.WorksheetFunction.Match(Mid(xFname$, 16, 4), Range("B3:B141"), 0) '<<< Find matching string in column B
            Cells(x, y).Select '<<<Select the cell and turn it red
            With Selection.Interior
                .Pattern = xlSolid
                .PatternColorIndex = xlAutomatic
                .Color = 255
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With
            xFname$ = Dir
        Loop
    End If
End With
End Sub

代码的作用是读取文件夹、获取文件名并将它们拆分。名称将始终为@@@@_####（其中@= 大写字母和#### 是24 小时格式的时间）。

Mid 函数将该名称拆分为 4 个字母和时间。

如果您了解我要做什么，您能否建议一个更好的搜索算法或查看我的代码做错了什么？

4

1 回答 1

1

我简化了我的答案，因为我可能误解了你的问题。MATCH返回一个相对于您查看的范围的值。因此，如果匹配项在 D 列中，则MATCH返回 1。因此，您需要偏移返回的值。

'Add 2 to x, since we start on 3rd row, add 3 to y since we start on 4th column
Cells(x+2, y+3).Select

您可能还需要包含代码以检查是否不匹配。要查看您是否遇到此问题，您可以使用下面的代码对此进行测试或添加手表。

On Error Resume Next
y = Application.WorksheetFunction.Match(...)
If Err = 0 Then
    MsgBox "All is well"
Else
    MsgBox "There was an error with Match"
End If
On Error Goto 0
于 2012-07-30T14:49:20.980 回答