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

Вход

Регистрация

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

 

= Мир MS Excel/Замена части кода с макрорекодера для автозаполнения формул - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена части кода с макрорекодера для автозаполнения формул (Формулы/Formulas)
Замена части кода с макрорекодера для автозаполнения формул
Артем_П Дата: Понедельник, 16.04.2018, 09:16 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Всем здравствуйте!
Помогите пожалуйста подправить код в макросе (записывал в макрорекодере).
Суть макроса: в столбце Е есть данные по продолжительности звонка, которые имеют вид "N мин", "N мин, N сек", "N сек" и "пустые". Формулой в столбце М я проверяю содержит ли ячейка в столбце Е слово "мин", если содержит то она вставляется без изменения, если нет, то сцепляю ячейку вставляя "0 мин, ", чтобы получить формат там где нет значения минут "0 мин, N сек". Затем двойным нажатием по черному крестику протягиваю формулу до конца таблицы. Удаляю формулы в столбце М. После этого разделяю значение в столбце М с помощью "Текст по столбцам" через пробел, так чтобы цифры минут и секунд были в отдельных столбцах ( М и О соответственно). в столбце Q через формулу =ВРЕМЯ(0;М;О) преобразую данные во время, меняю формат на 37:30:55, и двойным щелчком по черному крестику протягиваю до конца таблицы. После удаляю формулы из столбца Q, и вырезаю столбцы до столбца Q, так чтобы эти значения оказались в столбце М. В ячейку М1 вставляю название столбца таблицы "Трафик".
Макрорекодер записал так что формулы протягиваются до 250 строки, руками подправил, так чтобы автозаполнение было до 5000 строки, но мне это не подходит, так как строк может быть от 100 и до 500к, мне нужно чтобы макрос протягивал формулу до конца таблицы. Понимаю что нужно что-то поменять в строках кода 11-12 и 29-30, но на что менять так и не понял, так как не в зуб ногой в ВБА. Просмотрел ответы на форуме, но так и не разобрался. Поэтому прошу людей знающих помочь подправить код.
Заранее огромное спасибо!!!
Пример в приложении.
P/S: Эксель 2016
К сообщению приложен файл: 7725507.xlsm(54.2 Kb)


Сообщение отредактировал Артем_П - Понедельник, 16.04.2018, 09:22
 
Ответить
СообщениеВсем здравствуйте!
Помогите пожалуйста подправить код в макросе (записывал в макрорекодере).
Суть макроса: в столбце Е есть данные по продолжительности звонка, которые имеют вид "N мин", "N мин, N сек", "N сек" и "пустые". Формулой в столбце М я проверяю содержит ли ячейка в столбце Е слово "мин", если содержит то она вставляется без изменения, если нет, то сцепляю ячейку вставляя "0 мин, ", чтобы получить формат там где нет значения минут "0 мин, N сек". Затем двойным нажатием по черному крестику протягиваю формулу до конца таблицы. Удаляю формулы в столбце М. После этого разделяю значение в столбце М с помощью "Текст по столбцам" через пробел, так чтобы цифры минут и секунд были в отдельных столбцах ( М и О соответственно). в столбце Q через формулу =ВРЕМЯ(0;М;О) преобразую данные во время, меняю формат на 37:30:55, и двойным щелчком по черному крестику протягиваю до конца таблицы. После удаляю формулы из столбца Q, и вырезаю столбцы до столбца Q, так чтобы эти значения оказались в столбце М. В ячейку М1 вставляю название столбца таблицы "Трафик".
Макрорекодер записал так что формулы протягиваются до 250 строки, руками подправил, так чтобы автозаполнение было до 5000 строки, но мне это не подходит, так как строк может быть от 100 и до 500к, мне нужно чтобы макрос протягивал формулу до конца таблицы. Понимаю что нужно что-то поменять в строках кода 11-12 и 29-30, но на что менять так и не понял, так как не в зуб ногой в ВБА. Просмотрел ответы на форуме, но так и не разобрался. Поэтому прошу людей знающих помочь подправить код.
Заранее огромное спасибо!!!
Пример в приложении.
P/S: Эксель 2016

Автор - Артем_П
Дата добавления - 16.04.2018 в 09:16
Nic70y Дата: Понедельник, 16.04.2018, 09:23 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4839
Репутация: 1047 ±
Замечаний: 0% ±

Excel 2013
файла нет
а уже есть, но написал без файла
что-то много манипуляций....
[vba]
Код
    u = Cells(Rows.Count, 1).End(xlUp).Row
    Range("b1:b" & u).FormulaR1C1 = "=RC[-1]+18"
[/vba]
думаю все можно упростить


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Понедельник, 16.04.2018, 09:24
 
Ответить
Сообщениефайла нет
а уже есть, но написал без файла
что-то много манипуляций....
[vba]
Код
    u = Cells(Rows.Count, 1).End(xlUp).Row
    Range("b1:b" & u).FormulaR1C1 = "=RC[-1]+18"
[/vba]
думаю все можно упростить

Автор - Nic70y
Дата добавления - 16.04.2018 в 09:23
Артем_П Дата: Понедельник, 16.04.2018, 09:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
думаю все можно упростить

Я бы конечно с радостью все упростил, Но не умею в ВБА.
Ваш код мне необходимо вставить в строчки 11, 12 и 29,30 только заменить имена столбцов на свои, формулу прописать свою, я правильно понял?
 
Ответить
Сообщение
думаю все можно упростить

Я бы конечно с радостью все упростил, Но не умею в ВБА.
Ваш код мне необходимо вставить в строчки 11, 12 и 29,30 только заменить имена столбцов на свои, формулу прописать свою, я правильно понял?

Автор - Артем_П
Дата добавления - 16.04.2018 в 09:29
Karataev Дата: Понедельник, 16.04.2018, 09:35 | Сообщение № 4
Группа: Проверенные
Ранг: Старожил
Сообщений: 1256
Репутация: 485 ±
Замечаний: 0% ±

Excel
Артем_П, в Excel'e есть такое понятие "поиск последней строки". Вам нужно в макросы добавлять код по поиску последней строки.


Киви-кошелек: 9166309108
Яндекс-деньги: 410014131888288
 
Ответить
СообщениеАртем_П, в Excel'e есть такое понятие "поиск последней строки". Вам нужно в макросы добавлять код по поиску последней строки.

Автор - Karataev
Дата добавления - 16.04.2018 в 09:35
Артем_П Дата: Понедельник, 16.04.2018, 09:42 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Karataev, Nic70y, спасибо вам ОГРОМНОЕ за помощь.
Все работает!
Буду сидеть рассматривать код и понимать как вы это сделали. Теперь свободного времени станет немного больше и появиться возможность поучить ВБА.
Еще раз огромное спасибо за помощь!
 
Ответить
СообщениеKarataev, Nic70y, спасибо вам ОГРОМНОЕ за помощь.
Все работает!
Буду сидеть рассматривать код и понимать как вы это сделали. Теперь свободного времени станет немного больше и появиться возможность поучить ВБА.
Еще раз огромное спасибо за помощь!

Автор - Артем_П
Дата добавления - 16.04.2018 в 09:42
Артем_П Дата: Понедельник, 16.04.2018, 11:00 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Karataev, как человек знающий подскажите пожалуйста пару книг с которых можно было бы начать изучение ВБА для эксель.
Простите не разобрался сразу как писать в личку.


Сообщение отредактировал Артем_П - Понедельник, 16.04.2018, 11:01
 
Ответить
СообщениеKarataev, как человек знающий подскажите пожалуйста пару книг с которых можно было бы начать изучение ВБА для эксель.
Простите не разобрался сразу как писать в личку.

Автор - Артем_П
Дата добавления - 16.04.2018 в 11:00
Nic70y Дата: Понедельник, 16.04.2018, 12:50 | Сообщение № 7
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4839
Репутация: 1047 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub U__749()
    u = Cells(Rows.Count, 1).End(xlUp).Row
    Range("m2:m" & u).FormulaR1C1 = _
        "=(IF(ISERR(SEARCH(""мин"",RC[-8])),""0:"","""")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-8],""мин"","":""),""сек"",),"","",))/60"
    Range("m2:m" & u) = Range("m2:m" & u).Value
    Range("m2:m" & u).NumberFormat = "[$-F400]h:mm:ss AM/PM"
    Range("m1") = "Трафик"
End Sub
[/vba]
вдруг правильно


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)


Сообщение отредактировал Nic70y - Понедельник, 16.04.2018, 12:53
 
Ответить
Сообщение[vba]
Код
Sub U__749()
    u = Cells(Rows.Count, 1).End(xlUp).Row
    Range("m2:m" & u).FormulaR1C1 = _
        "=(IF(ISERR(SEARCH(""мин"",RC[-8])),""0:"","""")&SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(RC[-8],""мин"","":""),""сек"",),"","",))/60"
    Range("m2:m" & u) = Range("m2:m" & u).Value
    Range("m2:m" & u).NumberFormat = "[$-F400]h:mm:ss AM/PM"
    Range("m1") = "Трафик"
End Sub
[/vba]
вдруг правильно

Автор - Nic70y
Дата добавления - 16.04.2018 в 12:50
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Замена части кода с макрорекодера для автозаполнения формул (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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