Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Объединение нескольких CSV в один XLS, Необходимо объединять несколько csv в один xls
 
Цитата
MKStudio_ang написал:
Интересная задачка... viverov а на карту не оплачиваете?
Оплачиваем, skype для связи - удалено
Объединение нескольких CSV в один XLS, Необходимо объединять несколько csv в один xls
 
Доброго времени суток!

Пошаговое ТЗ скриншотами лежит в облаке по ссылке ниже:
https://yadi.sk/d/x70x3O3Jm5X7o

Предлагайте свою цену и сроки.

P.S. Оплата webmoney
Простейший макрос условного форматирования
 
Sanja, Спасибо что прониклись проблемой, потратили время и предложили решение!
Простейший макрос условного форматирования
 
На одном из форумов ответили, итоговое решение съедает по 2к строк за минуту и не виснет. Вдруг кому еще нужно будет, прикладываю код.
Код
Sub FormatConditionsByRows()
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
        .DisplayStatusBar = False
        .DisplayAlerts = False
    End With
    ActiveSheet.DisplayPageBreaks = False
    lr = Cells(Rows.Count, 1).End(xlUp).Row
    For i = 2 To 2000
    Range(Cells(i, 2), Cells(i, 36)).Select
        Selection.FormatConditions.AddColorScale ColorScaleType:=3
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        Selection.FormatConditions(1).ColorScaleCriteria(1).Type = _
            xlConditionValueLowestValue
        With Selection.FormatConditions(1).ColorScaleCriteria(1).FormatColor
            .Color = 7039480
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).ColorScaleCriteria(2).Type = _
            xlConditionValuePercentile
        Selection.FormatConditions(1).ColorScaleCriteria(2).Value = 50
        With Selection.FormatConditions(1).ColorScaleCriteria(2).FormatColor
            .Color = 8711167
            .TintAndShade = 0
        End With
        Selection.FormatConditions(1).ColorScaleCriteria(3).Type = _
            xlConditionValueHighestValue
        With Selection.FormatConditions(1).ColorScaleCriteria(3).FormatColor
            .Color = 8109667
            .TintAndShade = 0
        End With
        Selection.FormatConditions.AddIconSetCondition
        Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
        With Selection.FormatConditions(1)
            .ReverseOrder = False
            .ShowIconOnly = False
            .IconSet = ActiveWorkbook.IconSets(xl3Symbols)
        End With
        With Selection.FormatConditions(1).IconCriteria(2)
            .Type = xlConditionValuePercent
            .Value = 33
            .Operator = 7
        End With
        With Selection.FormatConditions(1).IconCriteria(3)
            .Type = xlConditionValuePercent
            .Value = 67
            .Operator = 7
        End With
    Next i
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
        .DisplayStatusBar = True
        .DisplayAlerts = True
    End With
    'ActiveSheet.DisplayPageBreaks = True
End Sub

Простейший макрос условного форматирования
 
V,Как быть то? 70к строк ведь никуда не денутся.  
Простейший макрос условного форматирования
 
Sanja,Проверил, все работает, но машина лагает ужас как. 1000 строк обошла минуты за полторы.
Визуально = как времена диалапа) Грузит линиями. Линия/белый экран, линия/белый экран и т.д.
UPD. Завис excel на 2500+ строке.
Простейший макрос условного форматирования
 

Имеется всегда одинаковая таблица, первая строка даты.
Начиная со второй строки идет полезная инфа. Алгоритм действий:
Выделяю строку полностью, условное форматирование, цветовые шкалы, цветовая шкала "Зеленый-желтый-красный"
Следом на ту же строку выполняю, условное форматирование, наборы значков, индикаторы "3 символа в кружках"

Пытаясь автоматизировать это действие, записал макрос, но для его адекватного исполнению, нужно проделать эту процедуру на 70 000 строках (
Можно ли как-то указать макросу: парень повтори условное форматирование как на первой строке, со всеми непустыми строчками?

На одном из форумов ответили: можно в цикл загнать:
Код
For i = 1 to 100
Range(cells(i,1), cells(i, 10)).Selection
'...код из макрорекордера
next i

Но вот что такое в цикл загнать и с чем его едят, совершенно непонятно(
Подскажите пожалуйста как все таки решить задачу?
 
Визуализация статистики
 
Работу принял. Отзыв по ссылке http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=7&TID=53854&TITLE_SEO=53854
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
Исполнитель : B.Key
ТЗ: http://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=7&TID=59868&TITLE_SEO=59868-vizualizatsiya-statistiki

На ТЗ ответил готовым макросом с ограничением по функционалу. Оплатил, снял ограничение, теперь пользуюсь файлом. Были пожелания по правкам (хорошая мысль приходит последней), внес правки без доп оплаты. Как по мне, мега адекватный мужик, все по делу!
Визуализация статистики
 
Доброго времени суток!
ТЗ будет корявым, задавайте уточняющие вопросы.

1. Есть пул excel книг в каждой заполнена 1 страница
2. Необходимо объединить все книги в одну разнеся всю инфу по листам
3. Провести преобразования с текстом на каждой странице (для этого макрос уже готов)
4. Вытянуть информацию со всех листов и упаковать в графики (визуализиция на одном листе, при необходимости деталей лезем в лист и глазками сами изучаем цифры). Инфа для графиков двух типов: цифры как вершины по вертикали, слова как вехи по горизонтали.

Для наглядности в ссылке скрины с комментариями https://yadi.sk/d/Mx--fLiTbM24g
Оплата через Яндекс.Деньги
Озвучьте пожалуйста стоимость и срок выполнения.

Спасибо!
Изменено: viverov - 10.09.2014 11:25:41
Упорядочивание текста в листе
 
Цитата
B.Key пишет:
500 wmr уже готово, если интересно обращайтесь (без форматирования и только 30 строк)
Спасибо за оперативность!
Пришлите пожалуйста номер R кошелька для оплаты
Изменено: viverov - 09.09.2014 20:47:17
Упорядочивание текста в листе
 
Доброго времени суток!

Необходимо решение согласно ТЗ. Задание оформлено "Было-Стало" (вложенный файл)
Озвучьте пожалуйста срок и стоимость выполнения. Оплата webmoney или перевод на карту.

Спасибо
Страницы: 1
Наверх