Страницы: 1
RSS
Если "текст", то...
 
Доброго всем!  
 
Есть столбец, в ячейках или текст или число. Как в цикле сделать проверку - If (содержимое ячейки) = "текст" Then .....
 
Если с помощью VBA, тогда так.  
 
--------------------------  
If Application.IsText(Range("A1")) = True Then    
  MsgBox "Ячейка содержит текст"    
Else    
  MsgBox "Ячейка не содержит текст"    
End If    
--------------------------
<FONT COLOR="CadetBlue">
 
Про цикл забыл...  
 
Вот так.  
--------------------------  
Dim Ячейка as Object  
For each Ячейка in AvtiveSheet.UsedRange.Columns(1).Cells  
If Application.IsText(Ячейка) = True Ячейка.Select: Then MsgBox "Ячейка содержит текст"    
End If    
Next Ячейка    
--------------------------
<FONT COLOR="CadetBlue">
 
Дъмитръ & The_Prist  
Спасибо. Все замечательно. Вопрос закрыт.  
Решение предложенное Дъмитръ подходит практически идеально...
 
Спасибо Дмитрий (The_Prist)!  
 
Все красиво и понятно! :)
<FONT COLOR="CadetBlue">
 
The_Prist !  
без комментариев...  
здорово...  
еще раз спасибо...
Страницы: 1
Читают тему
Наверх