Developing.ru

форум программистов
https://www.developing.ru/

составить выборку из повторяющихся значений и создать отчет

https://www.developing.ru/viewtopic.php?t=13435

Страница 4 из 4

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 09:39
VictorM
SunKiSSka,
начальнику понравилось!!!!!
рад за Вас! :)
2. Если я Вас правильно понял (исходя из опубликованного кода) должно быть так:

Код: Выделить всё

 Sub Yes_Localization()
    Dim i As Long
    O_H = "On Hold"
    For i = 3 To Range("B65536").End(xlUp).Row
        If IsEmpty(Cells(i, "R")) And IsEmpty(Cells(i, "H")) Then 'поменять местами условие
            Cells(i, "S") = "Tentative"
            Cells(i, "S").Interior.ColorIndex = 3
            Cells(i, "S").Font.Bold = True
        ElseIf IsEmpty(Cells(i, "R")) Then
            Cells(i, "S") = ""
            Cells(i, "S").Interior.ColorIndex = xlNone
        ElseIf Cells(i, "R") = O_H Then
            Cells(i, "S") = ""
            Cells(i, "S").Interior.ColorIndex = xlNone
        Else: Cells(i, "S") = "Yes"
            Cells(i, "S").Interior.ColorIndex = Range("S2").Interior.ColorIndex
    End If
    Next
End Sub
p.s. я там еще недосмотрел, смотрите файл

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 11:39
SunKiSSka
VictorMспасибо!
А если сделать таким образом: коды

Код: Выделить всё

Sub Fill
и

Код: Выделить всё

Fill2
изменить так

Код: Выделить всё

Sub Fill()
    ActiveCell.Value = Name
        Select Case Language_1
            Case "F"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 4).Value = Date_1
                ActiveCell.Offset(0, 4).Interior.ColorIndex = Color_1
                If ActiveCell.Offset(0, 4).Value = "Tentative" Then ActiveCell.Offset(0, 4).Interior.ColorIndex = 3
            Case "G"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 5).Value = Date_1
                ActiveCell.Offset(0, 5).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 5).Value = "Tentative" Then ActiveCell.Offset(0, 5).Interior.ColorIndex = 3
            Case "S"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 6).Value = Date_1
                ActiveCell.Offset(0, 6).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 6).Value = "Tentative" Then ActiveCell.Offset(0, 6).Interior.ColorIndex = 3
            Case "Sw"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 7).Value = Date_1
                ActiveCell.Offset(0, 7).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 7).Value = "Tentative" Then ActiveCell.Offset(0, 7).Interior.ColorIndex = 3
            Case "Du"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 8).Value = Date_1
                ActiveCell.Offset(0, 8).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 8).Value = "Tentative" Then ActiveCell.Offset(0, 8).Interior.ColorIndex = 3
            Case "I"
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
                ActiveCell.Offset(0, 9).Value = Date_1
                ActiveCell.Offset(0, 9).Interior.ColorIndex = Color_1
                 If ActiveCell.Offset(0, 9).Value = "Tentative" Then ActiveCell.Offset(0, 9).Interior.ColorIndex = 3
            Case ""
                ActiveCell.Offset(0, 3).FormulaR1C1 = "=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)"
        End Select
    ActiveCell.Offset(1, 0).Activate
    Sheets("Localizations").Activate
End Sub
Тоже на листе Localization_Report выделение ячеек с "Tentative" - красным цветом, правда без полужирного начертания, но это, в принципе, не имеет большого значения.

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 12:07
VictorM
Я об этом подумал сразу, но решил, что раз уж Вы выложили именно этот код то в нем и нужно сделать. :rolleyes:
да и опять - лишние строки.
Тут еще мыслишка, еще с самого начала:
а не проще формулу
=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)
вставить в лист отчета в самом конце формирования. Код сократится на n-ное количество строк :rolleyes:

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 12:18
SunKiSSka
VictorM писал(а):а не проще формулу
=VLOOKUP(RC[-3],Localizations!R3C1:R1000C6,5,FALSE)
вставить в лист отчета в самом конце формирования. Код сократится на n-ное количество строк :rolleyes:
VictorM, вы как всегда правы :) :) :)

Спасибо Вам за помошь!

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 16:43
VictorM
SunKiSSka,
правда без полужирного начертания
посмотрите:

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 17:38
SunKiSSka
VictorM, Вы супер, спасибо!!!!!!

Просто не возможно выразить мою признательность Вам!

Спасибо-о-о-о-о-о-о! :)

Re: составить выборку из повторяющихся значений и создать отчет

Добавлено: 25 мар 2008, 18:09
VictorM
Да чё уж там, не за что :)
Рад, что смог Вам помочь. :rolleyes:
Как говорят умные люди - "Улучшать можно до бесконечности"
Часовой пояс: UTC+03:00
Страница 4 из 4

Создано на основе phpBB® Forum Software © phpBB Limited

Русская поддержка phpBB