Question

有人可以帮帮我吗。我一直在阅读VBA脚本，它允许根据另一个单元格的值来解锁单元格，但我似乎无法使其与我的电子表格一起使用，甚至可以使用空白电子表格。

以下是我想做的事情：

我的单元格A1：A5的验证值如下（列表）＆＃34;是＆＃34;，＆＃34;否＆＃34;和＆＃34;选择＆＃34;。

如果A2 =＆＃34;是＆＃34; - 我想看看B2 =解锁;

如果A2 =＆＃34;否＆＃34; - 我想看看B2 =解锁;和

如果A2 =＆＃34;选择＆＃34; - 我想看看B2 =锁定。

非常感谢任何输入。

以下是代码：

If LCase(Range("A2:A10")) = "Yes" Then
    Range("B2:B10").Locked = False
ElseIf LCase(Range("A2:A10")) = "No" Then
    Range("B2:B10").Locked = False
ElseIf LCase(Range("A1:A10")) = "Select" Then
    Range("B2:B10").Locked = True
End If
End Sub

聚苯乙烯。我在Stackoverflow上阅读了一些评论，但信息似乎不起作用。

https://www.teachexcel.com/excel-help/excel-how-to.php?i=302178

提前谢谢大家。

Answer 1

循环遍历A列中的单元格，并通过偏移量对B列中的单元格执行操作。

dim rng as range
with worksheets("sheet1")
    for each rng in .range("a2:a10")
        select case lcase(rng.value2)
            case "yes", "no"
                rng.offset(0, 1).locked = false
            case "select"
                rng.offset(0, 1).locked = true
            case else
                'do nothing if not yes, no or select
        end select
    next rng
end with

根据其他单元格的值锁定和解锁单元格（excel 2013）

1 个答案: