想实现某条件下自动清空内容，禁止输入并在输入时给出警告的功能

小白01

02761752696 发表于 2022-10-18 15:16
两个红框的内容任意用一个都能解决你的问题

完美解决，感谢！【抱拳】

小白01

02761752696 发表于 2022-10-18 15:16
两个红框的内容任意用一个都能解决你的问题

老师，我又有新的问题解决不了了，在之前的表格基础上，我想加一个i别的sht页某选项框有变化时，录入页面清空的功能。比如：部门页面里选择部门时，“10月份”页面B6到N500清空，因该很容易实现吧，我就是不懂不同sht页之间的控制【抱拳】

02761752696

小白01 发表于 2022-10-19 16:26
老师，我又有新的问题解决不了了，在之前的表格基础上，我想加一个i别的sht页某选项框有变化时，录入页面 ...

写在部门工作表内

02761752696

小白01 发表于 2022-10-19 16:26
老师，我又有新的问题解决不了了，在之前的表格基础上，我想加一个i别的sht页某选项框有变化时，录入页面 ...

可以对照需求更改

小白01

02761752696 发表于 2022-10-20 08:06
可以对照需求更改

明白了，感谢！

天（小白一个）

怎么回复图片呀，我需要请教，我这个更简单，比如说只要B1单元格=0，则自动执行清空单元格A1，求指导

天（小白一个）

feilanga 发表于 2022-10-15 20:19

怎么回复图片呀，我需要请教，我这个更简单，比如说只要B1单元格=0，则自动执行清空单元格A1，A列每一个单元格对应B列同行单元格，求指导

天（小白一个）

这是我改的，为啥不起作用呢，压缩文件不知道咋上传
Sub 清空单元格()
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

'实现清空的功能
If Target.Row >= 3 And Target.Row <= 33 Then
      If Target.Column = 10 Then
            If Target.Value = "0" Then
                  Target.Offset(0, -8).Resize(1, 2).ClearContents
            End If
      End If
End If
Application.EnableEvents = True
End Sub

feilanga

天（小白一个） 发表于 2022-12-19 16:17
这是我改的，为啥不起作用呢，压缩文件不知道咋上传
Sub 清空单元格()
End Sub

建议新建提问帖，编辑回复选择高级模式即可上传附件，上传图片直接截图后粘贴在回复框里面

天（小白一个）

天（小白一个） 发表于 2022-12-19 16:17
这是我改的，为啥不起作用呢，压缩文件不知道咋上传
Sub 清空单元格()
End Sub