With Range("g8").Validation
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertWarning, Operator _
:=xlBetween, Formula1:= _
"=G8/ЗНАЧЕН(ЛЕВСИМВ(F8;ПОИСК("" "";F8)-1))=ЦЕЛОЕ(G8/ЗНАЧЕН(ЛЕВСИМВ(F8;ПОИСК("" "";F8)-1)))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Внимание"
.InputMessage = _
"Заказывайте товар" & Chr(10) & " СТРОГО " & Chr(10) & "в соответствии с количествами," & Chr(10) & " указанными в колонке" & Chr(10) & " КРАТНОСТЬ" & Chr(10) & " (первое число)."
.ErrorMessage = _
"Вы вводите количество," & Chr(10) & " некратное минимальному." & Chr(10) & " Пожалуйста, обратите" & Chr(10) & " внимание на цифры в колонке " & Chr(10) & "кратность, особенно на первую." & Chr(10) & "вторая - количество в упаковке," & Chr(10) & " - дана для справки."
.ShowInput = False
.ShowError = True
.Parent.Copy
End With
на одном компе работает без ошибок, на другом спотыкается на операции .add
офис и там и там русский 2003
.Delete
.Add Type:=xlValidateCustom, AlertStyle:=xlValidAlertWarning, Operator _
:=xlBetween, Formula1:= _
"=G8/ЗНАЧЕН(ЛЕВСИМВ(F8;ПОИСК("" "";F8)-1))=ЦЕЛОЕ(G8/ЗНАЧЕН(ЛЕВСИМВ(F8;ПОИСК("" "";F8)-1)))"
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = "Внимание"
.InputMessage = _
"Заказывайте товар" & Chr(10) & " СТРОГО " & Chr(10) & "в соответствии с количествами," & Chr(10) & " указанными в колонке" & Chr(10) & " КРАТНОСТЬ" & Chr(10) & " (первое число)."
.ErrorMessage = _
"Вы вводите количество," & Chr(10) & " некратное минимальному." & Chr(10) & " Пожалуйста, обратите" & Chr(10) & " внимание на цифры в колонке " & Chr(10) & "кратность, особенно на первую." & Chr(10) & "вторая - количество в упаковке," & Chr(10) & " - дана для справки."
.ShowInput = False
.ShowError = True
.Parent.Copy
End With
на одном компе работает без ошибок, на другом спотыкается на операции .add
офис и там и там русский 2003
Живи и дай жить..