Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Запрет ввода букв в ячейки или удаление их сразу после ввода
 
Нашел неплохой макрос:
Код
PrivateSub Worksheet_Change(ByVal Target As Range)
ForEach cl In Target.Cells
If WorksheetFunction.IsText(cl) Then cl.ClearContents
Next
End Sub

Отлично работает. Но не с объединенными ячейкам. Как обойти проблему, подскажите, кто знает?  
 
Примерчик файла покажите, а то лень аналог рисовать.
 
Вот так работает и с объединенными
Код
If WorksheetFunction.IsText(cl) Then cl.Value = ""

 
Привожу пример.  
Изменено: Обамка - 29 Мар 2015 17:01:18
 
Спасибо, помогли.  
Страницы: 1
Читают тему (гостей: 1)