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

DZ-CCP-CCP-C · 发表于 2011-4-27 17:15

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

一剑惊心 · 发表于 2011-4-27 18:11

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

旭日升 · 发表于 2011-4-27 17:48

无法录入数据得保护工作表，公式实现可能有点困难。提供段代码供参考使用：
右击工作表标签选择查看代码，将此段代码复制进去
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 · 发表于 2011-4-28 08:38

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

DZ-CCP-CCP-C · 发表于 2011-4-28 08:50

谢谢大侠相助！

，解决问题了

DZ-CCP-CCP-C · 发表于 2011-5-7 15:14

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

谋盛 · 发表于 2011-5-7 21:19

感谢楼主，学习了

		自动登录	找回密码
密码			免费注册

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

回复 2楼旭日升的帖子

回复 3楼一剑惊心的帖子

回复 2楼旭日升的帖子

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

回复 2楼 旭日升 的帖子

回复 3楼 一剑惊心 的帖子

回复 2楼 旭日升 的帖子

回复 2楼旭日升的帖子

回复 3楼一剑惊心的帖子

回复 2楼旭日升的帖子