我对EXCEL中的数据验证有一个问题。我尝试将此验证添加到单元格范围:
With zakres.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=IF(ISBLANK($" & _
kolumna_litera(kol_Data_oceny_formalnej) _
& "3),FALSE,status_status_RK)"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Nieprawidłowy status!"
.InputMessage = ""
.ErrorMessage = "Wybierz poprawny status z listy rozwijanej!"
.ShowInput = True
.ShowError = True
End With
kolumna_litera -表示返回列字母(String)的函数;kol_Data_oceny_formalnej -表示列的个数(Long);status_status_RK -表示带值列表的命名范围;
问题出在单元格kolumna_litera&3为空的时候。则在Validation.Add行中出现错误1004。填充此单元格时,不会出现错误。我不知道为什么会这样。有人能给我解释一下吗?
发布于 2018-08-09 20:44:48
我想我找到解决方案了。问题出在公式中的FALSE
语句上。当单元格kolumna_litera(kol_Data_oceny_formalnej) & "3
为空时,Excel找不到包含数据的列表,因此无法使用FALSE
语句。因此,我添加了一个包含一个空单元格的命名范围,并将其替换为该范围的名称(称为PUSTA)。代码现在看起来是这样的:
With zakres.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=IF(ISBLANK($" & kolumna_litera(kol_Data_wpływu_RK) & "3),PUSTA,status_status_RK)"
.IgnoreBlank = False
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Nieprawidłowy status!"
.InputMessage = ""
.ErrorMessage = "Wybierz poprawny status z listy rozwijanej! Lista ze statusami pojawi się jeśli wpisana została data z wpływem RK."
.ShowInput = True
.ShowError = True
End With
到目前为止,它工作正常,希望这就是问题所在。
https://stackoverflow.com/questions/51742277
复制相似问题