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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос объединяющий значения из нескольких ячеек - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос объединяющий значения из нескольких ячеек (Макросы/Sub)
Макрос объединяющий значения из нескольких ячеек
GreenDog Дата: Суббота, 11.04.2015, 09:52 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Здравствуйте, помогите пожалуйста решить задачу:

Лист Данные, в столбцах X, Y, Z находятся значения, в формате ХХ% YY% ZZ%
Нужен макрос, который будет автоматически переносить эти значения в один столбец O, в формате XX,YY,ZZ

Пример:
X Y Z
56% 25% 24%
В столбец O копируется:
56,25,24

Пример в файле, Спасибо.
К сообщению приложен файл: 5594109.rar (55.9 Kb)
 
Ответить
СообщениеЗдравствуйте, помогите пожалуйста решить задачу:

Лист Данные, в столбцах X, Y, Z находятся значения, в формате ХХ% YY% ZZ%
Нужен макрос, который будет автоматически переносить эти значения в один столбец O, в формате XX,YY,ZZ

Пример:
X Y Z
56% 25% 24%
В столбец O копируется:
56,25,24

Пример в файле, Спасибо.

Автор - GreenDog
Дата добавления - 11.04.2015 в 09:52
KuklP Дата: Суббота, 11.04.2015, 10:16 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
del


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 11.04.2015, 12:58
 
Ответить
Сообщениеdel

Автор - KuklP
Дата добавления - 11.04.2015 в 10:16
GreenDog Дата: Суббота, 11.04.2015, 10:30 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Спасибо, я сделал всё как в инструкции, но ничего не произошло. Если Вас не затруднит, поясните пожалуйста как вставить макрос? Спасибо.
 
Ответить
СообщениеСпасибо, я сделал всё как в инструкции, но ничего не произошло. Если Вас не затруднит, поясните пожалуйста как вставить макрос? Спасибо.

Автор - GreenDog
Дата добавления - 11.04.2015 в 10:30
KuklP Дата: Суббота, 11.04.2015, 10:45 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
del


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 11.04.2015, 12:58
 
Ответить
Сообщениеdel

Автор - KuklP
Дата добавления - 11.04.2015 в 10:45
GreenDog Дата: Суббота, 11.04.2015, 10:56 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Спасибо огромное, очень круто! Единственное, если можно, сделайте пожалуйста исключение, если в X,Y,Z пусто, чтоб макрос не трогал O

Пример в файле, что бы после нажатия на кнопку, диапазон O2:O20 не пропал. Ещё уберите пожалуйста последнюю запятую, она ломает формулы, чтоб осталось две ХХ,ХХ,ХХ

Спасибо.
К сообщению приложен файл: 0885443.rar (57.5 Kb)


Сообщение отредактировал GreenDog - Суббота, 11.04.2015, 11:26
 
Ответить
СообщениеСпасибо огромное, очень круто! Единственное, если можно, сделайте пожалуйста исключение, если в X,Y,Z пусто, чтоб макрос не трогал O

Пример в файле, что бы после нажатия на кнопку, диапазон O2:O20 не пропал. Ещё уберите пожалуйста последнюю запятую, она ломает формулы, чтоб осталось две ХХ,ХХ,ХХ

Спасибо.

Автор - GreenDog
Дата добавления - 11.04.2015 в 10:56
KuklP Дата: Суббота, 11.04.2015, 12:50 | Сообщение № 6
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Удалил из-за кросса на Планете.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 11.04.2015, 12:57
 
Ответить
СообщениеУдалил из-за кросса на Планете.

Автор - KuklP
Дата добавления - 11.04.2015 в 12:50
GreenDog Дата: Суббота, 11.04.2015, 13:42 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Удалил из-за кросса на Планете.


Там речь идёт о формуле, а здесь я спрашивал про макрос
 
Ответить
Сообщение
Удалил из-за кросса на Планете.


Там речь идёт о формуле, а здесь я спрашивал про макрос

Автор - GreenDog
Дата добавления - 11.04.2015 в 13:42
Pelena Дата: Суббота, 11.04.2015, 14:47 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Привет, Сергей.
Я, конечно, знаю твоё отношение к кросспостерам, но чтобы из-за этого удалять готовое решение... - это перебор (имхо)
А благодаря твоему непререкаемому авторитету эта тема может остаться без решения и здесь, и на Планете yes


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПривет, Сергей.
Я, конечно, знаю твоё отношение к кросспостерам, но чтобы из-за этого удалять готовое решение... - это перебор (имхо)
А благодаря твоему непререкаемому авторитету эта тема может остаться без решения и здесь, и на Планете yes

Автор - Pelena
Дата добавления - 11.04.2015 в 14:47
KuklP Дата: Суббота, 11.04.2015, 15:11 | Сообщение № 9
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
[offtop]Привет, Леночек :) Ну мой авторитет ты явно преувеличиваешь, тем более после года отсутствия на форумах. Однако отношение к кросспостерам у меня с тех пор не изменилось. Кто им не дает кинуть ссылку на обсуждение на других форумах? Тут вопрос элементарного уважения к чужому труду, паче того бескорыстному.[/offtop]
[p.s.]P.S. и да, я старый, вредный и ворчливый yes [/p.s.]


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728


Сообщение отредактировал KuklP - Суббота, 11.04.2015, 15:12
 
Ответить
Сообщение[offtop]Привет, Леночек :) Ну мой авторитет ты явно преувеличиваешь, тем более после года отсутствия на форумах. Однако отношение к кросспостерам у меня с тех пор не изменилось. Кто им не дает кинуть ссылку на обсуждение на других форумах? Тут вопрос элементарного уважения к чужому труду, паче того бескорыстному.[/offtop]
[p.s.]P.S. и да, я старый, вредный и ворчливый yes [/p.s.]

Автор - KuklP
Дата добавления - 11.04.2015 в 15:11
Pelena Дата: Суббота, 11.04.2015, 15:32 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Ладно, дабы тема не оставалась без решения...
Попаразитировала на первом макросе от KuklP, получилось как-то так
[vba]
Код
Public Sub www()
     Dim nrow&, a, b, i&, s$
     nrow = [x65536].End(xlUp).Row
     a = Range("x2:z" & nrow).Value
     b = Range("O2:O" & nrow).Value
     For i = 1 To UBound(a)
         s = Replace(a(i, 1) & a(i, 2) & a(i, 3), "%", ",")
         If s <> "" Then
             b(i, 1) = Left(s, Len(s) - 1)
         End If
     Next
     Range("O2:O" & nrow) = b
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЛадно, дабы тема не оставалась без решения...
Попаразитировала на первом макросе от KuklP, получилось как-то так
[vba]
Код
Public Sub www()
     Dim nrow&, a, b, i&, s$
     nrow = [x65536].End(xlUp).Row
     a = Range("x2:z" & nrow).Value
     b = Range("O2:O" & nrow).Value
     For i = 1 To UBound(a)
         s = Replace(a(i, 1) & a(i, 2) & a(i, 3), "%", ",")
         If s <> "" Then
             b(i, 1) = Left(s, Len(s) - 1)
         End If
     Next
     Range("O2:O" & nrow) = b
End Sub
[/vba]

Автор - Pelena
Дата добавления - 11.04.2015 в 15:32
GreenDog Дата: Суббота, 11.04.2015, 15:47 | Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 43
Репутация: 0 ±
Замечаний: 40% ±

Excel 2013
Прошу прощения за незнание правила, по которому автор обязан указывать ссылку на другой ресурс. Я понимаю Вашу озабоченность тем что, игнорирование этого правила, может привести к бессмысленной трате времени. Прошу Вас заметить что, на Планете вопрос был практически закрыт, формула дана, но не являлась конечным решением, а просить дважды в одной теме я посчитал некорректным. Всем спасибо, решение найдено.
 
Ответить
СообщениеПрошу прощения за незнание правила, по которому автор обязан указывать ссылку на другой ресурс. Я понимаю Вашу озабоченность тем что, игнорирование этого правила, может привести к бессмысленной трате времени. Прошу Вас заметить что, на Планете вопрос был практически закрыт, формула дана, но не являлась конечным решением, а просить дважды в одной теме я посчитал некорректным. Всем спасибо, решение найдено.

Автор - GreenDog
Дата добавления - 11.04.2015 в 15:47
KuklP Дата: Суббота, 11.04.2015, 15:52 | Сообщение № 12
Группа: Проверенные
Ранг: Старожил
Сообщений: 2369
Репутация: 486 ±
Замечаний: 0% ±

2003-2010
Ок. Надеюсь учтете это в будущем.


Ну с НДС и мы чего-то стoим! kuklp60@gmail.com
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеОк. Надеюсь учтете это в будущем.

Автор - KuklP
Дата добавления - 11.04.2015 в 15:52
RAN Дата: Суббота, 11.04.2015, 15:58 | Сообщение № 13
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
GreenDog, девять тем, у всех кросс на Планете, да и не только, и нигде ни одной ссылки на кросс.
Я сразу прошел мимо.


Быть или не быть, вот в чем загвоздка!
 
Ответить
СообщениеGreenDog, девять тем, у всех кросс на Планете, да и не только, и нигде ни одной ссылки на кросс.
Я сразу прошел мимо.

Автор - RAN
Дата добавления - 11.04.2015 в 15:58
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос объединяющий значения из нескольких ячеек (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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