Question

求Excel VBA代码：如果A列内容为“a”或E列内容为“e”或空白或H列为“H”，则：K列自动填写为：“K“。

不知道是否说明白了，意思也就是出现指定三列中合适的数值，结果列就标识为”xx“结果。
对,是的，要用VBA代码，因为我想实现填写完毕指定列侯自动出答案

Answer 1

'说明:E列要空白的单元格要按规定要输入一个空格,由于change事件触发机制,不进入单元格的编辑状态 不会触发change事件 为了保证能触发change事件 强制规定留空的单元格输入一个空格以保证该单元格触发change事件

Private Sub Worksheet_Change(ByVal Target As Range)
aaa = Target.Address(rowabsolute:=False, columnabsolute:=False)
Select Case Target.Text
Case "a"
If InStr(1, aaa, "A") Then Range("k" & Target.Row) = "K"
Case "e", " " ' If InStr(1, aaa, "E") Then Range("k" & Target.Row) = "K"
Case "H"
If InStr(1, aaa, "H") Then Range("k" & Target.Row) = "K"
End Select
End

追问

高手！测试可用，唯一的错漏是最后少了个SUB。呵呵。再想请教多一个问题，如果我前面的这些填入指定列（A，E，H）中的某一个数据手动修改了，比如A列里面把“a”改为“c”导致K列结果应该不再填写K， 这样我仍然想程序做响应做修改，这个需要添加那些代码呢？如果解决我可以给分了，谢谢！！

追答

你是要在A列多加一个条件 "c" 还是修改 A列的条件为"c"?

追问

没有修改任何条件，意思是如果在指定列填写完毕，如果发现填写有误，再次手动修改指定列的数据（如A列本不该填写“a”现在更正填写“b”）导致 根据原来规则 A列="a",或者E列=“e”,或者H列="H"则 K列填写“K”不再符合，而要求程序自动更正K列的结果，不填写"K"。

追答

Private Sub Worksheet_Change(ByVal Target As Range)
aaa = Target.Address(rowabsolute:=False, columnabsolute:=False)
istr = Target.Text
Select Case istr
Case "a"
If InStr(1, aaa, "A") Then Range("k" & Target.Row) = "K"
Case "e", " "
If InStr(1, aaa, "E") Then Range("k" & Target.Row) = "K"
Case "H"
If InStr(1, aaa, "H") Then Range("k" & Target.Row) = "K"
Case Else
If InStr(1, aaa, "K") = 0 Then Range("k" & Target.Row) = ""
End Select
End Sub

Answer 2

IF(A1="a" or E1="e" or H1="H","K","")

Answer 3

不太明白,定要用VBA？
K1=IF(OR(A1="a",E1="e",E1="",ISBLANK(E1),H1="H"),"K","") 下拉