Спасибо Вам большое за помощь! И можно последний вопрос, пытаюсь скопировать и вставить новую функцию, а она не вставляется, в строке появляется это =ToRows(#ССЫЛКА!;#ССЫЛКА!;#ССЫЛКА!;#ССЫЛКА!;#ССЫЛКА!), ссылки естественно меняю на нужные, но тогда значение остается прошлое: Каталог запчастей|BMW|BMW X3|Фильтры|Фильтр масляный, что не так делаю?
Спасибо Вам большое за помощь! И можно последний вопрос, пытаюсь скопировать и вставить новую функцию, а она не вставляется, в строке появляется это =ToRows(#ССЫЛКА!;#ССЫЛКА!;#ССЫЛКА!;#ССЫЛКА!;#ССЫЛКА!), ссылки естественно меняю на нужные, но тогда значение остается прошлое: Каталог запчастей|BMW|BMW X3|Фильтры|Фильтр масляный, что не так делаю?pashatank
Да, виноват, прицепил прайс, в нем две вкладки, пытаюсь вставить новую функцию во вкладку Прайс, ссылки меняю на: =ToRows(Данные!A2;Данные!B2;Данные!C2;Данные!E2;Данные!D2) Но значение выходит прошлое: Каталог запчастей|BMW|BMW X3|Фильтры|Фильтр масляный, как вставить в ячейку во вкладке прайс новую функцию?
Да, виноват, прицепил прайс, в нем две вкладки, пытаюсь вставить новую функцию во вкладку Прайс, ссылки меняю на: =ToRows(Данные!A2;Данные!B2;Данные!C2;Данные!E2;Данные!D2) Но значение выходит прошлое: Каталог запчастей|BMW|BMW X3|Фильтры|Фильтр масляный, как вставить в ячейку во вкладке прайс новую функцию?pashatank
Пробовал и просто из ячейки скопировать вставить, с заменой нужных ссылок и из модуля vba код копировать и вставлять в ячейку в прайсе, ничего не выходит..
Пробовал и просто из ячейки скопировать вставить, с заменой нужных ссылок и из модуля vba код копировать и вставлять в ячейку в прайсе, ничего не выходит..pashatank
да, так и делаю, но ничего не происходит вот этот код пытаюсь вставить и сохранить [vba]
Код
Public Function ToRows(ByVal Cat$, ByVal SubCat1$, ByVal SubCat2$, ByVal SubCat3, ByVal SubCat4) As String Dim s, i& s = Split(SubCat2, "|") For i = 0 To UBound(s) ToRows = ToRows & Cat & "|" & SubCat3 & "|" & SubCat4 & "|" & SubCat1 & "|" & s(i) & Chr(10) Next i ToRows = Left(ToRows, Len(ToRows) - 1) End Function
[/vba]
да, так и делаю, но ничего не происходит вот этот код пытаюсь вставить и сохранить [vba]
Код
Public Function ToRows(ByVal Cat$, ByVal SubCat1$, ByVal SubCat2$, ByVal SubCat3, ByVal SubCat4) As String Dim s, i& s = Split(SubCat2, "|") For i = 0 To UBound(s) ToRows = ToRows & Cat & "|" & SubCat3 & "|" & SubCat4 & "|" & SubCat1 & "|" & s(i) & Chr(10) Next i ToRows = Left(ToRows, Len(ToRows) - 1) End Function
Помогите пожалуйста решить задачку с UDF, Вы помогали сделать функцию, которая склеивает категории и располагает их в нужном порядке вот так:
вот отсюда функция берет данные
только сейчас нужно исключить "Каталог запчастей" и еще склеить Подкатегорию 4 и Подкатегорию 3 и расположить их в этой же ячейке на следующей строке вот так:
собственно сама функция, которая сейчас склеивает вместе с категорией "Каталог запчастей" [vba]
Код
Public Function ToRows(ByVal Cat$, ByVal SubCat1$, ByVal SubCat2$, ByVal SubCat3, ByVal SubCat4) As String Dim s, i& s = Split(SubCat2, "|") For i = 0 To UBound(s) ToRows = ToRows & Cat & "|" & SubCat1 & "|" & s(i) & "|" & SubCat3 & "|" & SubCat4 & Chr(10) Next i ToRows = Left(ToRows, Len(ToRows) - 1) End Function
[/vba]
Pelena, здравствуйте!
Помогите пожалуйста решить задачку с UDF, Вы помогали сделать функцию, которая склеивает категории и располагает их в нужном порядке вот так:
вот отсюда функция берет данные
только сейчас нужно исключить "Каталог запчастей" и еще склеить Подкатегорию 4 и Подкатегорию 3 и расположить их в этой же ячейке на следующей строке вот так:
собственно сама функция, которая сейчас склеивает вместе с категорией "Каталог запчастей" [vba]
Код
Public Function ToRows(ByVal Cat$, ByVal SubCat1$, ByVal SubCat2$, ByVal SubCat3, ByVal SubCat4) As String Dim s, i& s = Split(SubCat2, "|") For i = 0 To UBound(s) ToRows = ToRows & Cat & "|" & SubCat1 & "|" & s(i) & "|" & SubCat3 & "|" & SubCat4 & Chr(10) Next i ToRows = Left(ToRows, Len(ToRows) - 1) End Function
Дорогая Pelena, подскажите пожалуйста последний раз, немного ошибся, в первой строке марки и модели необходимо вынести вперед, а после уже должны идти подкатегории: BMW|BMW 3 E36|Фильтры|Фильтр воздушный
ну а на следующей строке ниже все также оставить подкатегории: Фильтры|Фильтр воздушный
т.е. чтобы был вид: BMW|BMW 3 E36|Фильтры|Фильтр воздушный Фильтры|Фильтр воздушный
Дорогая Pelena, подскажите пожалуйста последний раз, немного ошибся, в первой строке марки и модели необходимо вынести вперед, а после уже должны идти подкатегории: BMW|BMW 3 E36|Фильтры|Фильтр воздушный
ну а на следующей строке ниже все также оставить подкатегории: Фильтры|Фильтр воздушный
т.е. чтобы был вид: BMW|BMW 3 E36|Фильтры|Фильтр воздушный Фильтры|Фильтр воздушныйpashatank
Здравствуйте! У меня очень похожий вопрос, только мне нужно ячейки расположенные в столбик объединить в одну с переносом текста аналогично тому, как было в раздельных ячейках. Пример во вложении. Очень прошу помочь.
Здравствуйте! У меня очень похожий вопрос, только мне нужно ячейки расположенные в столбик объединить в одну с переносом текста аналогично тому, как было в раздельных ячейках. Пример во вложении. Очень прошу помочь.gendozzz