Есть форма для теста ( Не моя, спасибо огромное 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 заносится значение без спецсимвола переноса.. Файл пример прилагаю, спасибо большое.
Добрый день уважаемые форумчане.
Есть форма для теста ( Не моя, спасибо огромное 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
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]
Здравствуйте, пробуйте так [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
Сейчас по какой-то причине начал выдавать предупреждение: "Программе microsoft excel не удается найти данные для замены. Проверьте правильность указания условий поиска и параметров форматирования. Если вы уверены, что в этой книге есть данные, удовлетворяющие заданным условиям, то, вероятно, эти данные находятся на защищенном листе. Excel не может заменять данные на защищенных листах."
Сейчас по какой-то причине начал выдавать предупреждение: "Программе microsoft excel не удается найти данные для замены. Проверьте правильность указания условий поиска и параметров форматирования. Если вы уверены, что в этой книге есть данные, удовлетворяющие заданным условиям, то, вероятно, эти данные находятся на защищенном листе. Excel не может заменять данные на защищенных листах."Amon
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
