Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.10.2007, 13:37   #1
serjii
Новичок
Джуниор
 
Регистрация: 03.10.2007
Сообщений: 2
По умолчанию Ограничение на вводимое кол-во символов???

Ребята, подскажите рядовому пользователю - можно ли поставить на ячейку ограничение на ввод символов, например на больше 10, и если их больше, что-бы сам эксель убирал лишние!
serjii вне форума
Старый 04.10.2007, 13:50   #2
Pavel55
Форумчанин
 
Регистрация: 21.08.2007
Сообщений: 292
По умолчанию

Если без макросов, то можно пропробывать Данные - Проверка
1) Выделяете ячейки
2) меню Данные-Проверка...
3) Тип данных - Длинна текста
4) Значение - Меньше или равно
5) в поле Максимум пишите 10
6) ОК
Pavel55 вне форума
Старый 04.10.2007, 20:49   #3
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Serjii, Если же данные могут вводиться не только непосредственно с клавиатуры, но и, например, копироваться, а в этом случае проверка данных, по понятным причинам, производиться не будет, или Вам необходимо будет отсечь ненужные символы, а проверка данных для этого не предназначена, то можно воспользоваться макросом, точнее сказать событием рабочего листа (см. далее)

Нижеопубликованный код необходимо разместить в модуле нужного рабочего листа, и это можно осуществить, выполнив, например, следующие действия : подведите курсор мышки к ярлычку рабочего листа, затем кликните правой кнопкой мышки и в появившемся контекстном меню выберите команду Исходный текст затем скопируйте весь код и сохраните изменения.

Код:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Not Intersect(Target, [A2:A100,F2:F100]) Is Nothing Then
       Application.EnableEvents = False
       Dim iCell As Range
       For Each iCell In Intersect(Target, [A2:A100,F2:F100])
           If Len(CStr(iCell)) > 10 Then _
              iCell = Left(CStr(iCell), 10) 'отсечь ненужные символы
              'iCell.ClearContents 'запретить, т.е. удалить, выбрать только одно
       Next
       Application.EnableEvents = True
    End If
End Sub
pashulka вне форума
Старый 05.10.2007, 10:55   #4
serjii
Новичок
Джуниор
 
Регистрация: 03.10.2007
Сообщений: 2
По умолчанию

Ребята, огромное спасибо за варианты, будем пробовать, по итогу отпишусь !
serjii вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ограничение запусков программы?? John_chek Общие вопросы Delphi 14 24.11.2008 14:26
Ограничение по вводу символов в Edit-e Alexij Общие вопросы Delphi 1 26.06.2008 16:27
Ограничение ввода символов. Delphi Alex_2017 Общие вопросы Delphi 2 05.06.2008 18:45
Ограничение ввода символов. Delphi Alex_2017 Помощь студентам 0 04.06.2008 17:26
Ограничение ввода в Edit Макс84 Компоненты Delphi 7 23.07.2007 09:38