Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Ограничение количества символов в ячейке - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир MS Excel » Работа и общение » Мозговой штурм » Ограничение количества символов в ячейке (Маросом, без использования функций)
Ограничение количества символов в ячейке
_Boroda_ Дата: Суббота, 16.06.2012, 20:38 | Сообщение № 1
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Quote (LightZ)
Наверное легкий вопрос, но всё таки попробую расшевелить "макросоведов"

Тоже легкий вопрос.
Ситуация - сотрудник вручную или копи-пастом вводит в некую таблицу данные. Для простоты примем, что ввод происходит поячеечно (никаких Ctrl+Enter и вставок в несколько ячеек сразу). В силу каких-либо (не важно) причин, в каждой ячейке может быть не более 20 символов. Сотрудник не очень внимателен и периодически вводит больше.
Задача - ограничить количество символов в ячейке (с помощью Worksheet_Change) 20-ю первыми символами (лишнее тупо отбрасывается без предупреждения - по типу сам дурак, считать нужно уметь).
Ограничение - все это нужно сделать без использования функций (всяких там лефтов, мидов и проч.).
Еще раз повторюсь - задача легкая, можно сказать, что больше не на знания, а на сообразительность.
Да, еще - Данные-Проверка данных-Длина текста при этом не используем.


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Quote (LightZ)
Наверное легкий вопрос, но всё таки попробую расшевелить "макросоведов"

Тоже легкий вопрос.
Ситуация - сотрудник вручную или копи-пастом вводит в некую таблицу данные. Для простоты примем, что ввод происходит поячеечно (никаких Ctrl+Enter и вставок в несколько ячеек сразу). В силу каких-либо (не важно) причин, в каждой ячейке может быть не более 20 символов. Сотрудник не очень внимателен и периодически вводит больше.
Задача - ограничить количество символов в ячейке (с помощью Worksheet_Change) 20-ю первыми символами (лишнее тупо отбрасывается без предупреждения - по типу сам дурак, считать нужно уметь).
Ограничение - все это нужно сделать без использования функций (всяких там лефтов, мидов и проч.).
Еще раз повторюсь - задача легкая, можно сказать, что больше не на знания, а на сообразительность.
Да, еще - Данные-Проверка данных-Длина текста при этом не используем.

Автор - _Boroda_
Дата добавления - 16.06.2012 в 20:38
LightZ Дата: Суббота, 16.06.2012, 22:09 | Сообщение № 2
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Quote (_Boroda_)
Тоже легкий вопрос.

Пока получается только с помощью Len
наверное сообразительность "сломалась", но ещё подумаю
может дадите подсказку, хотя бы в какую сторону рыть? smile


E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение
Quote (_Boroda_)
Тоже легкий вопрос.

Пока получается только с помощью Len
наверное сообразительность "сломалась", но ещё подумаю
может дадите подсказку, хотя бы в какую сторону рыть? smile

Автор - LightZ
Дата добавления - 16.06.2012 в 22:09
_Boroda_ Дата: Суббота, 16.06.2012, 22:09 | Сообщение № 3
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Quote (LightZ)
может дадите подсказку, хотя бы в какую сторону рыть?

Я даже не представляю себе, как дать подсказку, не ответив при этом на сам вопрос


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Quote (LightZ)
может дадите подсказку, хотя бы в какую сторону рыть?

Я даже не представляю себе, как дать подсказку, не ответив при этом на сам вопрос

Автор - _Boroda_
Дата добавления - 16.06.2012 в 22:09
LightZ Дата: Суббота, 16.06.2012, 22:09 | Сообщение № 4
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Quote (_Boroda_)
Тоже легкий вопрос.

Выложите Ваш ответ? Т.к. кроме left - ничего больше в голову не приходит

[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.Value = Left(.Value, 20)
End With
End Sub
[/vba]


E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение
Quote (_Boroda_)
Тоже легкий вопрос.

Выложите Ваш ответ? Т.к. кроме left - ничего больше в голову не приходит

[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
With Target
.Value = Left(.Value, 20)
End With
End Sub
[/vba]

Автор - LightZ
Дата добавления - 16.06.2012 в 22:09
_Boroda_ Дата: Суббота, 16.06.2012, 22:09 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Quote (LightZ)
Выложите Ваш ответ? Т.к. кроме left - ничего больше в голову не приходит

Да тут все просто на самом деле - штука в том, чтобы не считать каждый раз, ресурсы не тратить, а заранее указать, сколько символов переменная занимать будет
[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String * 20
a = Target
Target = a
End Sub
[/vba]


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Quote (LightZ)
Выложите Ваш ответ? Т.к. кроме left - ничего больше в голову не приходит

Да тут все просто на самом деле - штука в том, чтобы не считать каждый раз, ресурсы не тратить, а заранее указать, сколько символов переменная занимать будет
[vba]
Code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As String * 20
a = Target
Target = a
End Sub
[/vba]

Автор - _Boroda_
Дата добавления - 16.06.2012 в 22:09
LightZ Дата: Суббота, 16.06.2012, 22:10 | Сообщение № 6
Группа: Авторы
Ранг: Форумчанин
Сообщений: 120
Репутация: 48 ±
Замечаний: 0% ±

Quote (_Boroda_)
Да тут все просто на самом деле

Хех, хитро однако
ps. сейчас попробую какую-то задачку накидать, может попозже выложу


E-mail: overseerpower@gmail.com
Skype: Bogdan_Rud
WMR: R166238237296
 
Ответить
Сообщение
Quote (_Boroda_)
Да тут все просто на самом деле

Хех, хитро однако
ps. сейчас попробую какую-то задачку накидать, может попозже выложу

Автор - LightZ
Дата добавления - 16.06.2012 в 22:10
Мир MS Excel » Работа и общение » Мозговой штурм » Ограничение количества символов в ячейке (Маросом, без использования функций)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!