Как сделать проверку диапазона ячеек - VBA

Формулировка задачи:

Помогите,пожалуйста, как сделать такой же макрос на проверку диапазона ячеек, например если в интервале X80:X90 есть хоть одна ячейка равная двум,то выводить сообщение

                    Листинг программы
                
 
                        
                          
                    
Sub Test()
If Range("X84") = 2 Then
MsgBox "Значение в ячейке  равно 1"
Else
MsgBox "Значение в ячейке не единица"
End If
End Sub

Решение задачи: «Как сделать проверку диапазона ячеек»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Test_1()
Range("X84:X90").Select 'убрать немедля
With Selection 'Range("X84:X90")
For Each x In .Cells
  If x.Value = 2 Then
  MsgBox "Значение в ячейке " & x.Address & " равно 2"
'  Else
'  MsgBox "Значение в ячейке " & x.Address & "НЕ равно 2"
  End If
Next x
End With
End Sub

Оцени полезность:

10 голосов , оценка 4.3 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы