Есть форма для теста ( Не моя, спасибо огромное 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