根据列标题和行标题解锁单元格？

Question

我有一个看起来像这样的表（它动态变化）。

我正在尝试制作一个宏，它只能解锁“浅黄色”单元格 = 第 1 行包含“预测”作为值，而列 I 包含“实际”作为值。 我稍后会保护工作表，以便用户只能在这些单元格中更改值。

在条件格式中，我使用这个公式： =(INDIRECT(ADDRESS(1;COLUMN();4))="Forecast")*(INDIRECT(ADDRESS(ROW();COLUMN($I$1);4))="Actual")但我没能在 VBA 中做这样的事情。

Answer 1

以防万一有人想知道如何做到这一点。

Sub Lock_Cells()
Dim startCol As Long
startCol = WorksheetFunction.Match("Forecast", Range("1:1"), 0) 'Define in which column Forecast starts

Dim i As Long 
For i = 2 To Range("I" & Rows.Count).End(xlUp).Row
    If Cells(i, "I").Value = "Actual" Then 'Loop through values in column I
        Range(Cells(i, startCol), Cells(i, "U")).Locked = False 'Unlock cells
    End If
Next i
End Sub