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

Вход

Регистрация

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

 

= Мир MS Excel/Из ячейки в Label с символом переноса строки - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Из ячейки в Label с символом переноса строки (Макросы/Sub)
Из ячейки в Label с символом переноса строки
Amon Дата: Четверг, 19.07.2018, 11:28 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день уважаемые форумчане.

Есть форма для теста ( Не моя, спасибо огромное Mikael за нее).
В форме 2 Label. В первый заносится значение из столбца B во второй из столбца С одной строки, и варианты ответа да\нет. При нажатии на "да" происходит поиск пересечения столбца с датой и строки из которой значение выводится в лейбл 1.
Но проблема в 3 строке.
[vba]
Код

1 For Each rcell In rRoute
2            If bNext Then lNext = rcell.Row: bNext = 0
3            If rcell = Me.Label1.Caption Then lRow = rcell.Row: bNext = 1 'Здесь проблема, для перехода к следующей строке он сравнивает значение из лейбла 1 и ячейку. Проблема заключается в том что в лейбл выводится символ переноса строки( ALT+ENTER), а в ячейке она не отображается, таким образом он считает что значение Label.caption не = ячейке и не назначает номер строки для занесения результата.
4            ii = ii + 1: If ii = rRoute.Count Then lLast = rcell.Row
5        Next rcell
[/vba]

Как сделать так чтобы в лейбл отображалось содержимое ячейки с переносом пункты, допустим 1) 2) 3) и тд.
и при этом он переходил к следующей строке? Пытался поменять label на textbox , пытался сравнивать .value все равно один результат в Range rCell заносится значение без спецсимвола переноса..
Файл пример прилагаю, спасибо большое.
К сообщению приложен файл: 1267015.xlsm(33.0 Kb)


Сообщение отредактировал Amon - Четверг, 19.07.2018, 11:29
 
Ответить
СообщениеДобрый день уважаемые форумчане.

Есть форма для теста ( Не моя, спасибо огромное Mikael за нее).
В форме 2 Label. В первый заносится значение из столбца B во второй из столбца С одной строки, и варианты ответа да\нет. При нажатии на "да" происходит поиск пересечения столбца с датой и строки из которой значение выводится в лейбл 1.
Но проблема в 3 строке.
[vba]
Код

1 For Each rcell In rRoute
2            If bNext Then lNext = rcell.Row: bNext = 0
3            If rcell = Me.Label1.Caption Then lRow = rcell.Row: bNext = 1 'Здесь проблема, для перехода к следующей строке он сравнивает значение из лейбла 1 и ячейку. Проблема заключается в том что в лейбл выводится символ переноса строки( ALT+ENTER), а в ячейке она не отображается, таким образом он считает что значение Label.caption не = ячейке и не назначает номер строки для занесения результата.
4            ii = ii + 1: If ii = rRoute.Count Then lLast = rcell.Row
5        Next rcell
[/vba]

Как сделать так чтобы в лейбл отображалось содержимое ячейки с переносом пункты, допустим 1) 2) 3) и тд.
и при этом он переходил к следующей строке? Пытался поменять label на textbox , пытался сравнивать .value все равно один результат в Range rCell заносится значение без спецсимвола переноса..
Файл пример прилагаю, спасибо большое.

Автор - Amon
Дата добавления - 19.07.2018 в 11:28
krosav4ig Дата: Четверг, 19.07.2018, 13:04 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1658
Репутация: 690 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте, пробуйте так
[vba]
Код
        rRoute.Replace vbCrLf, vbLf
        rRoute.Replace vbLf, vbCrLf
        For Each rcell In rRoute
            If bNext Then lNext = rcell.Row: bNext = 0
            If rcell = Me.Label1.Caption Then lRow = rcell.Row: bNext = 1
            ii = ii + 1: If ii = rRoute.Count Then lLast = rcell.Row
        Next rcell
[/vba]


(_)Õvõ(_)

Сообщение отредактировал krosav4ig - Четверг, 19.07.2018, 13:04
 
Ответить
СообщениеЗдравствуйте, пробуйте так
[vba]
Код
        rRoute.Replace vbCrLf, vbLf
        rRoute.Replace vbLf, vbCrLf
        For Each rcell In rRoute
            If bNext Then lNext = rcell.Row: bNext = 0
            If rcell = Me.Label1.Caption Then lRow = rcell.Row: bNext = 1
            ii = ii + 1: If ii = rRoute.Count Then lLast = rcell.Row
        Next rcell
[/vba]

Автор - krosav4ig
Дата добавления - 19.07.2018 в 13:04
Amon Дата: Четверг, 19.07.2018, 14:06 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
пробуйте так

Спасибо вам. Это то что мне было нужно. Все работает как надо! :-)
 
Ответить
Сообщение
пробуйте так

Спасибо вам. Это то что мне было нужно. Все работает как надо! :-)

Автор - Amon
Дата добавления - 19.07.2018 в 14:06
Amon Дата: Вторник, 31.07.2018, 11:03 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 65
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Здравствуйте, пробуйте так

Сейчас по какой-то причине начал выдавать предупреждение: "Программе microsoft excel не удается найти данные для замены. Проверьте правильность указания условий поиска и параметров форматирования. Если вы уверены, что в этой книге есть данные, удовлетворяющие заданным условиям, то, вероятно, эти данные находятся на защищенном листе. Excel не может заменять данные на защищенных листах."
 
Ответить
Сообщение
Здравствуйте, пробуйте так

Сейчас по какой-то причине начал выдавать предупреждение: "Программе microsoft excel не удается найти данные для замены. Проверьте правильность указания условий поиска и параметров форматирования. Если вы уверены, что в этой книге есть данные, удовлетворяющие заданным условиям, то, вероятно, эти данные находятся на защищенном листе. Excel не может заменять данные на защищенных листах."

Автор - Amon
Дата добавления - 31.07.2018 в 11:03
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Из ячейки в Label с символом переноса строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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