EXCEL 一个单元格，已经有了数据验证。但是需要额外设置成必填项目。如何实现？

Question

N列的故障类型，已经用“数据验证”功能设置了“机械、电器、程序”的选项H列的故障类型，已经用“数据验证”设置了“大、中、小、无、质量事故、换型”的选项但是人工输入的时候，往往在故障类型中忘记了选择，导致数据统计有出入现在想实现以下的一个功能 当H列，选择“换型”时，N列为空 当H列，选择“大、中、小、无、质量事故”中，任一值时，N列为必填项，否则出现报警中断后续输入 请教各位大神有没有能实现该功能的？在线求。

Answer 1

山不转水转吧！…………

你的要求在直接输入中很难用公式实现，但是，你可在最上面设置一个单元格函数公式，比如在K1单元格输入公式：

=IF(COUNTA(H:H)>COUNTA(N:N),"故障类型未填齐全","")

即可对未填齐全对应H列的直接提醒显示了，而且还可以设置条件格式，对于未完成的自动变成红底黄字的提醒。

Answer 2

用VBA

'原单元格地址
Public strRow
Public strCol

'使用如果单元格内容变化时会发生的动作
'从H列跳出时，如果内容不为换型，就跳到N列
'
Private Sub Worksheet_Change(ByVal Target As Range)
'如果是第8列，且为第2行以后
If Target.Column = 8 And Target.Row > 1 And Target.Row <= UsedRange.Rows.Count Then
'如果内容不为换型，就跳到本行第14列
If Target.Value <> "换型" Then
Cells(Target.Row, 14).Select
End If
End If

End Sub

'使用单元格位置变化发生的动作
'如果是从N列跳出的，就判断是否该行H列是否换型，且N列有没填内容
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'如果是第14列，且为第2行以后
If strCol = 14 And strRow > 1 And strRow <= UsedRange.Rows.Count Then
'如果该行H列不为换型，且该行N列为空
If Cells(strRow, 8).Value <> "换型" And Cells(strRow, 14).Value = "" Then
'保留在该行第14列
Cells(strRow, 14).Select
MsgBox ("请填写内容")
Exit Sub
End If
End If
'记录下原来的单元格地址
strRow = Target.Row
strCol = Target.Column
End Sub

Answer 3

这个需要代码，哪一列有内容的不允许N列为空。

Answer 4

要用代码，单元格事件来完成哟