Страницы: 1
RSS
заливка
 
Как програмно изменить заливку активной ячейки(ячейка актина изменился её цвет).
 
Активировали ячейку,- она залилась (синим, например,). Ушли с неё, снова вернулись - что должно произойти?
 
Раз молчите - получите вот такой код:  
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
  Target.Interior.ColorIndex = 5  
End Sub  
Вставить в модуль листа.
 
Извините за молчание , но не заходил на форум(не имел возможности).Сегодня опробую и отвечу сразу же.
 
{quote}{login=Юрий М}{date=10.08.2009 09:02}{thema=}{post}Активировали ячейку,- она залилась (синим, например,). Ушли с неё, снова вернулись - что должно произойти?{/post}{/quote}  
Ушли с неё , заливка исчезла , вернулись появилась.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
  If Target.Interior.ColorIndex = xlNone Then  
     Target.Interior.ColorIndex = 5  
  Else  
     Target.Interior.ColorIndex = xlNone  
  End If  
End Sub
 
Юрий М , The_Prist.  
Огромное спасибо за помощь
Страницы: 1
Наверх