如何设置单元格格式如果A1单元格中含有“入库”两个字，那么B1单元格就无法录入数据

DZ-CCP-CCP-C

如何设置单元格格式，如果A1单元格中含有“入库”两个字，那么B1单元格就无法录入数据，C1单元格则可以录入数据；相反，如果如果A1单元格中含有“出库”两个字，那么B1单元格就可以录入数据，C1单元格则不能录入数据？

一剑惊心

数据有效性
=ISERR(FIND("入库",A1))

旭日升

无法录入数据得保护工作表，公式实现可能有点困难。提供段代码供参考使用：
右击工作表标签选择查看代码，将此段代码复制进去
Sub WORKSHEET_SELECTIONCHANGE(ByVal TARGET As Range)
    On Error Resume Next
    ActiveSheet.Unprotect
    If Not [A1].Find("入库") Is Nothing Then
        Cells.Locked = False
        Cells.FormulaHidden = False
        Range("B1").Locked = True
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
    If Not [A1].Find("出库") Is Nothing Then
        Cells.Locked = False
        Cells.FormulaHidden = False
        Range("C1").Locked = True
        ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
    End If
End Sub

DZ-CCP-CCP-C

谢谢，我知道用VBA应该是可以解决问题，VBA功能非常强大，简直是“只有想不到，没有做不到”，所以我对此很感兴趣，也一直在学习，正处于婴儿阶段水平，还要多多向各位老师学习，路漫漫呀呀！

DZ-CCP-CCP-C

谢谢大侠相助！ ，解决问题了

DZ-CCP-CCP-C

用三楼的方法解决了，谢谢您！

谋盛

感谢楼主，学习了