Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Запрет ввода букв в ячейки или удаление их сразу после ввода
 
#1
29.03.2015 16:47:35
Нашел неплохой макрос:
Код
PrivateSub Worksheet_Change(ByVal Target As Range)
ForEach cl In Target.Cells
If WorksheetFunction.IsText(cl) Then cl.ClearContents
Next
End Sub
Отлично работает. Но не с объединенными ячейкам. Как обойти проблему, подскажите, кто знает?  
 
 
 
#2
29.03.2015 16:53:45
Примерчик файла покажите, а то лень аналог рисовать.
 
 
 
#3
29.03.2015 16:58:16
Вот так работает и с объединенными
Код
If WorksheetFunction.IsText(cl) Then cl.Value = ""
 
 
 
#4
29.03.2015 17:00:10
Привожу пример.  
Изменено: Обамка - 29.03.2015 17:01:18
 
 
 
#5
29.03.2015 17:02:44
Спасибо, помогли.  
 
 
 
Страницы: 1
Наверх