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

Вход

Регистрация

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

 

= Мир MS Excel/Сцепить должность и ФИО в родительном падеже. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить должность и ФИО в родительном падеже. (Макросы/Sub)
Сцепить должность и ФИО в родительном падеже.
ekut Дата: Воскресенье, 29.05.2022, 08:06 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Уважаемые Екселисты, помогите! Есть ли возможность сократить путь и избавиться от четырех столбцов? У меня здесь и макрос и формулы! Благодарю заранее!!!!!
К сообщению приложен файл: 9885061.xls(90.0 Kb)
 
Ответить
СообщениеУважаемые Екселисты, помогите! Есть ли возможность сократить путь и избавиться от четырех столбцов? У меня здесь и макрос и формулы! Благодарю заранее!!!!!

Автор - ekut
Дата добавления - 29.05.2022 в 08:06
bmv98rus Дата: Воскресенье, 29.05.2022, 17:05 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3942
Репутация: 721 ±
Замечаний: 0% ±

Excel 2013/2016
Сделайте отдельную функцию
[vba]
Код
Function j(ByRef Arr As Range) As String
Arr1 = Arr
For i = LBound(Arr1, 1) To UBound(Arr1, 1)
j = j & "; " & LCase(left(Arr1(i, 1),1)) & Mid(SklonDoljn(Arr1(i, 1), "Rod"), 2) & " - " & SklonDoljn(Arr1(i, 2), "Rod")
Next
j = Mid(j, 3)
End Function
[/vba]
На вход ваши два столбца с значениями.


Замечательный Временно просто медведь , процентов на 20.

Сообщение отредактировал bmv98rus - Воскресенье, 29.05.2022, 21:43
 
Ответить
СообщениеСделайте отдельную функцию
[vba]
Код
Function j(ByRef Arr As Range) As String
Arr1 = Arr
For i = LBound(Arr1, 1) To UBound(Arr1, 1)
j = j & "; " & LCase(left(Arr1(i, 1),1)) & Mid(SklonDoljn(Arr1(i, 1), "Rod"), 2) & " - " & SklonDoljn(Arr1(i, 2), "Rod")
Next
j = Mid(j, 3)
End Function
[/vba]
На вход ваши два столбца с значениями.

Автор - bmv98rus
Дата добавления - 29.05.2022 в 17:05
ekut Дата: Воскресенье, 29.05.2022, 19:08 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо большое за ответ, но немного с ошибками отрабатывает!
К сообщению приложен файл: 7345351.xls(126.5 Kb)
 
Ответить
СообщениеСпасибо большое за ответ, но немного с ошибками отрабатывает!

Автор - ekut
Дата добавления - 29.05.2022 в 19:08
bmv98rus Дата: Воскресенье, 29.05.2022, 19:14 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3942
Репутация: 721 ±
Замечаний: 0% ±

Excel 2013/2016
Я выше исправил.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеЯ выше исправил.

Автор - bmv98rus
Дата добавления - 29.05.2022 в 19:14
ekut Дата: Воскресенье, 29.05.2022, 19:24 | Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Со строки j всю выделил красным цветом, не работает....
К сообщению приложен файл: 0888001.png(177.6 Kb)


Сообщение отредактировал ekut - Воскресенье, 29.05.2022, 20:00
 
Ответить
СообщениеСо строки j всю выделил красным цветом, не работает....

Автор - ekut
Дата добавления - 29.05.2022 в 19:24
bmv98rus Дата: Воскресенье, 29.05.2022, 21:43 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3942
Репутация: 721 ±
Замечаний: 0% ±

Excel 2013/2016
; на , замените.


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение; на , замените.

Автор - bmv98rus
Дата добавления - 29.05.2022 в 21:43
ekut Дата: Понедельник, 30.05.2022, 07:24 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Михаил, спасибо огромное!!! Если не трудно, подскажите, как изменится макрос, если между заполненных строк с будут пустые строки? Еще раз спасибо огромное!!!
К сообщению приложен файл: 6746313.png(167.3 Kb)
 
Ответить
СообщениеМихаил, спасибо огромное!!! Если не трудно, подскажите, как изменится макрос, если между заполненных строк с будут пустые строки? Еще раз спасибо огромное!!!

Автор - ekut
Дата добавления - 30.05.2022 в 07:24
bmv98rus Дата: Понедельник, 30.05.2022, 14:05 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3942
Репутация: 721 ±
Замечаний: 0% ±

Excel 2013/2016
Ну есть 2 варианта, надежный - это сравнивать на пустоту значения в массиве и если пусто- то пропускать.
или просто
Код
j = Replace(Mid(j, 3), "  - ;", "")

в надежде что не будет такого в тексте


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
СообщениеНу есть 2 варианта, надежный - это сравнивать на пустоту значения в массиве и если пусто- то пропускать.
или просто
Код
j = Replace(Mid(j, 3), "  - ;", "")

в надежде что не будет такого в тексте

Автор - bmv98rus
Дата добавления - 30.05.2022 в 14:05
ekut Дата: Понедельник, 30.05.2022, 14:18 | Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 171
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо еще раз, все работает отлично!!!
 
Ответить
СообщениеСпасибо еще раз, все работает отлично!!!

Автор - ekut
Дата добавления - 30.05.2022 в 14:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Сцепить должность и ФИО в родительном падеже. (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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