带有颜色的盒子的填充单元，作为用定义位置名称填充表的响应

Question

我是Excel宏的初学者。

如果我有一个表格，例如，与具有不同位置的单元格矩阵相对应的位置。我将如何创建一个宏，该宏根据I输入表中的位置（例如1,1：a）会为矩阵的相应单元格上色吗？

这可能很简单，但任何帮助/提示都会对此表示赞赏。

Answer 1

这是一个宏：

Sub test()
Dim cll As Range, txt As String, coordsX As String, coordsY As String
Dim i As Integer, j As Integer

    For Each cll In Range("A1:A14")
        txt = cll.Value
        coordsX = Mid(txt, _
                        WorksheetFunction.Find(":", txt) + 1, _
                        Len(txt) - WorksheetFunction.Find(":", txt) - Len(txt) + WorksheetFunction.Find(",", txt) - 1)
        coordsY = Right(txt, Len(txt) - WorksheetFunction.Find(",", txt))
        
        For i = 1 To WorksheetFunction.CountA(Range("E4:I5"))
            For j = 1 To WorksheetFunction.CountA(Range("D5:D11"))
                If Cells(j + 4, 3).Value = coordsY And Cells(4, i + 3).Value = coordsX Then
                    MsgBox Cells(j + 4, 3).Value & " " & Cells(4, i + 3).Value
                    Cells(j + 4, i + 3).Interior.Color = 500
                End If
            Next j
        Next i
    Next cll
    End Sub

范围A1：A14是这些坐标为（1：1，A ...）的范围；
范围E4：i5是表标头所在的地方（在这种情况下为数字）；
范围D5：D11是行号的位置（在这种情况下为字母）；

内饰500是背景的颜色代码。它也可以是RGB。