Excel VBA Если range.value = что-то тогда

-1

Что я ищу это -Excel VBA Если range.value = что-то тогда

Если значение в диапазоне ячеек равно некоторое значение или же значение, то он должен показать «Позитивный» другой «Отрицательный Но. когда я пишу, как показано ниже синтаксиса, он выдает ошибку -

If range("F3:H5").value = "X" then 

Msgbox "Positive result" 

else 

Msgbox "Negative result" 

end if

источник

2016-10-18 Praveen Behera

"Он выдает ошибку" не приносит никакой пользы. «Он выбрасывает ошибку несоответствия типа» дает нам еще кое-что для работы. – jsheeran

Вам нужно что-то вроде:

Dim found As Boolean 
found = False 
For Each cell In Range("F3:h5").Cells 
    if cell.Value = "X" Then 
     found = True 
    end if 
Next 

If found = True Then 
    Msgbox "Positive result" 
else 
    Msgbox "Negative result" 
End if

источник

2016-10-18 05:58:22 Paul

спасибо, но у меня есть несколько диапазонов, которые я не могу запустить в цикле. есть ли способ, в котором я могу напрямую его проверить? без каких-либо петель –

Я так не думаю. Это отвечает на вопрос, как было заявлено в любом случае. Цикл For/Next представляет собой тривиальное количество дополнительного кода, чтобы сделать эту работу. – Paul

Вы можете использовать эту функцию

Function EvalRange(inRng As Range, inVal As Variant) As Variant 

    Dim CntAll, CntMatch As Double 

    CntAll = Application.Count(inRng) 
    CntMatch = Application.CountIf(inRng, inVal) 

    If CntAll = CntMatch Then 
     EvalRange = "Positive Result" 
     Else: EvalRange = "Negative Result" 
    End If 

    End Function

источник

2016-10-18 06:47:13 ArindamD

Примечание: я не добавил обработку ошибок/исключений, поскольку это решение просто для иллюстрации. Предполагая, что пользователь внесет необходимые изменения для этой цели. – ArindamD

Это не правильный синтаксис написания прикладных функций. т.е. Application.count. –

Попробуйте это, чтобы увидеть результат. Я целенаправленно избегал использования «Worksheetfunction» и использовал «Приложение» для использования функции. В двух словах утверждение вроде Application.Count более стабильно, чем Worksheetfunction.Count – ArindamD

VBA.MsgBox VBA.IIf(Evaluate("=SUMPRODUCT(--(F3:H5 = ""X""))"), "Positive result", "Negative result")

"" X "" двойные кавычки из-за двух внешних цитат

F3: Н5 = "" X "" представляет собой массив булевых результатов F3 = X, F4 = Х и т.д.

- отрицательные обороты булевы до 0/1; другая отрицательная «спина» до 1/0

IIf, Оценить, СУМПРОВАТЬ ... Функции. Извините, GIYF.

источник

2017-09-17 10:11:04 1jack

Было бы лучше, если вы немного объясните свой код. –

Добро пожаловать в StackOverflow. Обычно лучше объяснять решение, а не просто размещать несколько строк анонимного кода. Вы можете прочитать [Как написать хороший ответ] (https://stackoverflow.com/help/how-to-answer), а также [Объяснение полностью основанных на кодах ответов] (https://meta.stackexchange.com/вопросы/114762/объяснения-entirely-% E2% 80% 8C% E2% 80% 8Bcode на основе-ответы). –

Это должно служить цели:

Sub string_validation() 

    Dim cel As Range 

    For Each cel In Range("F3:H8") 
     If cel.Value = "hassle" Then 
      MsgBox "Positive result" 
     Else 
      MsgBox "Negative result" 
     End If 
    Next cel 

End Sub

источник

2017-10-11 06:00:43 SIM

Excel VBA Если range.value = что-то тогда

ответ

Смежные вопросы