VBA实现单元格在条件下涂色并锁定

请教：VBA代码！1.选择“二次挽回案例”，B8、B9两单元格锁定并涂灰色（其实就是不让填），其他全可以填。2.选择“深耕案例”，B8单元格锁定并涂灰色，其他全可以填。3.选择“不成功案例”，B9锁定并涂灰色，其他全可以填。。

第1个回答 2018-06-25

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1") = "Accepting" Then
Range("B1:B4").Locked = False
ElseIf Range("A1") = "Refusing" Then
Range("B1:B4").Locked = True
End If
End Sub

录制个宏，在这里面添加代码就行了，只要修改单元格就会触发这个事件

第2个回答 2018-06-25

VBA
利用TEXTBOX的CHANGE事件激活字典
将结果导入到LISTBOX中本回答被网友采纳

相似回答

用vba对表格中带有背景颜色的单元格锁定答：所以将correlation matrix中大于没特定阈值单元格用特定背景颜色加以区分，就可以清晰的看出item之间的相关关系。假设我们有一个64*64的correlation matrix，那么在excel中是用vba对不同范围的correlation值的单元格添加背景颜色的代码如下：1 Sub changeBgColor()2 Dim i As Integer 3 Dim j As Integ...

在EXCEl中,用VBA实现单元格颜色改变答：代码如下：Sub ts()Dim rg As Range Dim r As Long r = Columns("A:C").SpecialCells(xlLastCell).Row For Each rg In Range("A1:C" & r)If rg < Range("E" & rg.Row) Then rg.Interior.Color = RGB(255, 0, 0)Else rg.Interior.Color ...

vba 如何将符合条件的单元格表上颜色?答：Sub 标色()Dim nR As Long, iR As Range, S As String, C As String Dim B As Boolean, i, j nR = Range("A65535").End(xlUp).Row Range("A1:A" & nR).Interior.ColorIndex = 0 For Each iR In Range("A1:A" & nR)S = iR.Value C = Mid(S, 2, 1)If Len(Replace(...

EXCEL如何用VBA设置符合条件的单元格填充颜色为红色?答：1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。3、在VBA编辑器代码框里面输入以下代码：4、在Excel...

如何在vba中实现满足条件的单元格填充相应的颜色答：条件格式，设置四个条件选择A列，条件格式公式输入=AND(A1=MAX($A1:$D1),A1<>"")，填充选择红色选择B列，条件格式公式输入=AND(B1=MAX($A1:$D1),B1<>"")，填充选择绿色选择C列，条件格式公式输入=AND(C1=MAX($A1:$D1),C1<>"")，填充选择蓝色选择D列，条件格式公式输入=AND(D...

Excelvba锁定单元格的代码介绍答：第三，屏蔽撤销保护锁定单元格警告框当我们为工作表单元格保护之后，再编辑单元格，就会弹出下面的对话框，提示：正在试图更改被保护的只读单元格或图表……。如果用vba屏蔽锁定单元格对话框，当我们双击虽然不能进行编辑，但可以将此警告框屏蔽不显示，方法如下：在相应工作表标签，单击右键，选择“查看...

大家正在搜

给满足条件的单元格涂色 excel单元格按条件涂色合并单元格再涂色怎么不涂上字体 vba点击单元格和选中单元格如何对单元格自动涂色怎么筛选涂色单元格 excel怎么把单元格涂色只显示涂色的单元格 excel单元格涂色快捷键