Фамилия и инициалы из ФИО макросом
bosika
Дата: Среда, 30.01.2019, 20:32 |
Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Очередной раз прошу помощи у ГУРУ. Есть некая база данных сотрудников в Excel. В столбцах В-D Фамилия, имя и отчество соответственно в 3-х ячейках. В столбце Е - формулой фамилия и инициалы и при установки курсора в ячейку столбце Е в строке формулы, отображается формула. Возможно ли макросом выводить данные в столбец Е. Заранее спасибо за помощь.
Очередной раз прошу помощи у ГУРУ. Есть некая база данных сотрудников в Excel. В столбцах В-D Фамилия, имя и отчество соответственно в 3-х ячейках. В столбце Е - формулой фамилия и инициалы и при установки курсора в ячейку столбце Е в строке формулы, отображается формула. Возможно ли макросом выводить данные в столбец Е. Заранее спасибо за помощь. bosika
К сообщению приложен файл:
___.xlsx
(9.7 Kb)
Начинающий. Много и долго не пинать. Больно однако.
Ответить
Сообщение Очередной раз прошу помощи у ГУРУ. Есть некая база данных сотрудников в Excel. В столбцах В-D Фамилия, имя и отчество соответственно в 3-х ячейках. В столбце Е - формулой фамилия и инициалы и при установки курсора в ячейку столбце Е в строке формулы, отображается формула. Возможно ли макросом выводить данные в столбец Е. Заранее спасибо за помощь. Автор - bosika Дата добавления - 30.01.2019 в 20:32
Pelena
Дата: Среда, 30.01.2019, 21:18 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
А какова цель? Если просто избавиться от формулы, то Копировать-Вставить как значения не подойдёт?
А какова цель? Если просто избавиться от формулы, то Копировать-Вставить как значения не подойдёт? Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение А какова цель? Если просто избавиться от формулы, то Копировать-Вставить как значения не подойдёт? Автор - Pelena Дата добавления - 30.01.2019 в 21:18
Karataev
Дата: Среда, 30.01.2019, 22:20 |
Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1334
Репутация:
533
±
Замечаний:
0% ±
Excel
[vba]
Код
Sub Вставить_ФИО() Dim arr(), res() Dim lr As Long, i As Long lr = Cells(Rows.Count, "B").End(xlUp).row arr() = Range("B4:D" & lr).Value ReDim res(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) res(i, 1) = arr(i, 1) & " " & Left(arr(i, 2), 1) & "." & Left(arr(i, 3), 1) & "." Next i Range("E4").Resize(UBound(res)).Value = res() End Sub
[/vba]
[vba]
Код
Sub Вставить_ФИО() Dim arr(), res() Dim lr As Long, i As Long lr = Cells(Rows.Count, "B").End(xlUp).row arr() = Range("B4:D" & lr).Value ReDim res(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) res(i, 1) = arr(i, 1) & " " & Left(arr(i, 2), 1) & "." & Left(arr(i, 3), 1) & "." Next i Range("E4").Resize(UBound(res)).Value = res() End Sub
[/vba]
Karataev
Ответить
Сообщение
[vba]
Код
Sub Вставить_ФИО() Dim arr(), res() Dim lr As Long, i As Long lr = Cells(Rows.Count, "B").End(xlUp).row arr() = Range("B4:D" & lr).Value ReDim res(1 To UBound(arr), 1 To 1) For i = 1 To UBound(arr) res(i, 1) = arr(i, 1) & " " & Left(arr(i, 2), 1) & "." & Left(arr(i, 3), 1) & "." Next i Range("E4").Resize(UBound(res)).Value = res() End Sub
[/vba]
Автор - Karataev Дата добавления - 30.01.2019 в 22:20
bosika
Дата: Четверг, 31.01.2019, 06:37 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Pelena, дело в том что еще используется макрос выборки с этого столбца на другой лист. И при выполнении макроса вместо фамилий вставляется ссылка.
Pelena, дело в том что еще используется макрос выборки с этого столбца на другой лист. И при выполнении макроса вместо фамилий вставляется ссылка. bosika
Начинающий. Много и долго не пинать. Больно однако.
Сообщение отредактировал bosika - Четверг, 31.01.2019, 12:20
Ответить
Сообщение Pelena, дело в том что еще используется макрос выборки с этого столбца на другой лист. И при выполнении макроса вместо фамилий вставляется ссылка. Автор - bosika Дата добавления - 31.01.2019 в 06:37
bosika
Дата: Четверг, 31.01.2019, 06:52 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Karataev, Спасибо большое , ругается на строчку [vba]Код
lr = Cells(Rows.Count, "B").End(xlUp).row
[/vba]
Karataev, Спасибо большое , ругается на строчку [vba]Код
lr = Cells(Rows.Count, "B").End(xlUp).row
[/vba] bosika
Начинающий. Много и долго не пинать. Больно однако.
Сообщение отредактировал bosika - Четверг, 31.01.2019, 12:21
Ответить
Сообщение Karataev, Спасибо большое , ругается на строчку [vba]Код
lr = Cells(Rows.Count, "B").End(xlUp).row
[/vba] Автор - bosika Дата добавления - 31.01.2019 в 06:52
bosika
Дата: Четверг, 31.01.2019, 06:55 |
Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Karataev, Может библиотеку нужно какую то подключить?
Karataev, Может библиотеку нужно какую то подключить? bosika
Начинающий. Много и долго не пинать. Больно однако.
Ответить
Сообщение Karataev, Может библиотеку нужно какую то подключить? Автор - bosika Дата добавления - 31.01.2019 в 06:55
Pelena
Дата: Четверг, 31.01.2019, 09:05 |
Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
при выполнении макроса вместо фамилий вставляется #ссылка
вот я и говорю, что надо просто вставлять как значения. И оформите код тегами с помощью кнопки # в режиме правки поста
при выполнении макроса вместо фамилий вставляется #ссылка
вот я и говорю, что надо просто вставлять как значения. И оформите код тегами с помощью кнопки # в режиме правки постаPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение при выполнении макроса вместо фамилий вставляется #ссылка
вот я и говорю, что надо просто вставлять как значения. И оформите код тегами с помощью кнопки # в режиме правки постаАвтор - Pelena Дата добавления - 31.01.2019 в 09:05
bosika
Дата: Четверг, 31.01.2019, 09:14 |
Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Karataev , не могу в личку Вам сообщение отправить. Я файл делал дома оф. 2016, сегодня сделал на работе аналогичный в оф. 2013, прописал код и выдал ошибку. Выделил строку желтым, 1004 еще ошибка. Руками набирал, не копировал, т.к. на работе на компе нет интернета (работа такая).
Karataev , не могу в личку Вам сообщение отправить. Я файл делал дома оф. 2016, сегодня сделал на работе аналогичный в оф. 2013, прописал код и выдал ошибку. Выделил строку желтым, 1004 еще ошибка. Руками набирал, не копировал, т.к. на работе на компе нет интернета (работа такая).bosika
Начинающий. Много и долго не пинать. Больно однако.
Ответить
Сообщение Karataev , не могу в личку Вам сообщение отправить. Я файл делал дома оф. 2016, сегодня сделал на работе аналогичный в оф. 2013, прописал код и выдал ошибку. Выделил строку желтым, 1004 еще ошибка. Руками набирал, не копировал, т.к. на работе на компе нет интернета (работа такая).Автор - bosika Дата добавления - 31.01.2019 в 09:14
bosika
Дата: Четверг, 31.01.2019, 11:03 |
Сообщение № 9
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Pelena, да, чтоб на другой лист разносилось макросом значением из ячейки, а не формулой.
Pelena, да, чтоб на другой лист разносилось макросом значением из ячейки, а не формулой. bosika
Начинающий. Много и долго не пинать. Больно однако.
Ответить
Сообщение Pelena, да, чтоб на другой лист разносилось макросом значением из ячейки, а не формулой. Автор - bosika Дата добавления - 31.01.2019 в 11:03
bosika
Дата: Четверг, 31.01.2019, 11:16 |
Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 105
Репутация:
0
±
Замечаний:
40% ±
Excel 2010, 2013, 2016
Karataev, Спасибо большое. Заработало! Админов прошу закрыть тему.
Karataev, Спасибо большое. Заработало! Админов прошу закрыть тему. bosika
Начинающий. Много и долго не пинать. Больно однако.
Ответить
Сообщение Karataev, Спасибо большое. Заработало! Админов прошу закрыть тему. Автор - bosika Дата добавления - 31.01.2019 в 11:16
Евген1313
Дата: Пятница, 01.10.2021, 07:27 |
Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Здравствуйте, уважаемые форумчане! Есть макрос сокращения фамилии, имени и отчества в фамилию и инициалы, однако если вызывать макрос кнопкой с другого листа, то значения не вставляются в исходную таблицу. Подскажите, пожалуйста, что необходимо исправить?
Здравствуйте, уважаемые форумчане! Есть макрос сокращения фамилии, имени и отчества в фамилию и инициалы, однако если вызывать макрос кнопкой с другого листа, то значения не вставляются в исходную таблицу. Подскажите, пожалуйста, что необходимо исправить? Евген1313
Ответить
Сообщение Здравствуйте, уважаемые форумчане! Есть макрос сокращения фамилии, имени и отчества в фамилию и инициалы, однако если вызывать макрос кнопкой с другого листа, то значения не вставляются в исходную таблицу. Подскажите, пожалуйста, что необходимо исправить? Автор - Евген1313 Дата добавления - 01.10.2021 в 07:27
Pelena
Дата: Пятница, 01.10.2021, 07:43 |
Сообщение № 12
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация:
4555
±
Замечаний:
±
Excel 365 & Mac Excel
Как-то так
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Как-то так Автор - Pelena Дата добавления - 01.10.2021 в 07:43
Евген1313
Дата: Воскресенье, 03.10.2021, 09:53 |
Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация:
0
±
Замечаний:
0% ±
Pelena, спасибо!
Ответить
Сообщение Pelena, спасибо! Автор - Евген1313 Дата добавления - 03.10.2021 в 09:53