Страницы: 1
RSS
чтобы при открытии файла ячейка "очищалась" (т.е. обнулялась)
 
Добрый день, ув. Знатоки.  
Подскажите, плиз, как сделать чтобы при открытии файла данные в конкретной ячейке удалялись.
 
В стандартном модуле:  
Public Sub Auto_Open()  
  Sheets("Лист1").Range("A1").Clear  
End Sub
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
Добрый день  
 
вставте в модуль ЭтаКнига:  
Private Sub Workbook_Open()  
   ThisWorkbook.Sheets(1).Cells(1, 1).ClearContents  
End Sub  
 
очищает ячейку А1 на первом листе
 
Большое спасибо. Работает.  
 
В догонку еще вопрос. Как сделать чтобы форматирование этой ячейки не изменялось. Т.е. после "зачистки" восстанавливался прежний формат (размер шрифта, выравнивание и т.д.)
 
А что, разве после программной очистки ячейки сам по себе изменяется её формат?  
Не верю!  
Может там УФ применено?
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
 
{quote}{login=Alex_ST}{date=06.12.2010 03:41}{thema=}{post}А что, разве после программной очистки ячейки сам по себе изменяется её формат?  
Не верю!  
Может там УФ применено?{/post}{/quote}  
 
Да, меняется. чесс слово.  
УФ нету.
 
уже все оки :)  
 
при использовании "Clear" форматирование удалялось.  
а при "ClearContents" все остается на своих местах.  
 
Спасибо всем за помощь.
 
{quote}{login=Alex_ST}{date=06.12.2010 03:41}{thema=}{post}А что, разве после программной очистки ячейки сам по себе изменяется её формат?  
Не верю!{/post}{/quote}  
И зря.  
Если чистить методом CLEAR - очистится ВСЁ, включая форматирование.  
Если использовать ClearContents - то исчезнет только значение, а форматирование не нарушится.
 
{quote}{login=Alex_ST}{date=06.12.2010 03:41}{thema=}{post}А что, разве после программной очистки ячейки сам по себе изменяется её формат?Не верю!{/post}{/quote}  
Алекс, а для чего тогда сделали отдельно  .Clear и .ClearContents? :-)
 
Да, признаю свои ошибки...  
Не посмотрел. ПисАл по памяти.
С уважением, Алексей (ИМХО: Excel-2003 - THE BEST!!!)
Страницы: 1
Читают тему
Наверх
Loading...