vanka515
Дата: Вторник, 05.04.2016, 11:07 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
Пример внизу Проблема заключается в следующем: Вводим искомые параметры (Таблица User) и сравниваем их с таблицей на втором листе(BPN2 Mode). Если искомые параметры меньше, либо равны необходимо вывести все строки удовлетворяющие условиям. [moder]Если нужен макрос, то почему тема в этом разделе? Перенесла.[/moder]
Пример внизу Проблема заключается в следующем: Вводим искомые параметры (Таблица User) и сравниваем их с таблицей на втором листе(BPN2 Mode). Если искомые параметры меньше, либо равны необходимо вывести все строки удовлетворяющие условиям. [moder]Если нужен макрос, то почему тема в этом разделе? Перенесла.[/moder] vanka515
К сообщению приложен файл:
111.xlsm
(80.0 Kb)
Сообщение отредактировал Manyasha - Вторник, 05.04.2016, 11:27
Ответить
Сообщение Пример внизу Проблема заключается в следующем: Вводим искомые параметры (Таблица User) и сравниваем их с таблицей на втором листе(BPN2 Mode). Если искомые параметры меньше, либо равны необходимо вывести все строки удовлетворяющие условиям. [moder]Если нужен макрос, то почему тема в этом разделе? Перенесла.[/moder] Автор - vanka515 Дата добавления - 05.04.2016 в 11:07
mathiax90
Дата: Вторник, 05.04.2016, 12:05 |
Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 199
Репутация:
24
±
Замечаний:
0% ±
Excel 2007
Так сумму параметров или значения параметров сравнивать? А то тут пишите одно, а в экселе другое.
Так сумму параметров или значения параметров сравнивать? А то тут пишите одно, а в экселе другое. mathiax90
webmoney: R242692021885 ЯД:410013877261817
Сообщение отредактировал mathiax90 - Вторник, 05.04.2016, 12:05
Ответить
Сообщение Так сумму параметров или значения параметров сравнивать? А то тут пишите одно, а в экселе другое. Автор - mathiax90 Дата добавления - 05.04.2016 в 12:05
vanka515
Дата: Вторник, 05.04.2016, 12:08 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация:
0
±
Замечаний:
20% ±
Excel 2010
Ой извините) Сравнивать нужно значения
Ой извините) Сравнивать нужно значения vanka515
Ответить
Сообщение Ой извините) Сравнивать нужно значения Автор - vanka515 Дата добавления - 05.04.2016 в 12:08
mathiax90
Дата: Вторник, 05.04.2016, 12:32 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 199
Репутация:
24
±
Замечаний:
0% ±
Excel 2007
Смотрите вложенный файл. Или спойлер.
[vba]
Код
Sub макрос9() Dim bpnWs As Worksheet Dim userWs As Worksheet Set bpnWs = Worksheets("BPN2 Mode") Set userWs = Worksheets("User") Dim trx As Integer Dim ce As Integer Dim rrc As Integer Dim trx1 As Integer Dim ce1 As Integer Dim rrc1 As Integer trx = CInt(userWs.Cells(4, 4)) ce = CInt(userWs.Cells(4, 6)) rrc = CInt(userWs.Cells(4, 13)) 'Dim rn As Range userWs.Range(userWs.Cells(1, 18), userWs.Cells(1, 24)).EntireColumn.Clear paramSum = trx + ce + rrc j = 11 For i = 3 To 563 trx1 = CInt(bpnWs.Cells(i, 6).Value) ce1 = CInt(bpnWs.Cells(i, 7).Value) rrc1 = CInt(bpnWs.Cells(i, 8).Value) paramSum1 = trx1 + ce1 + rrc1 If trx1 <= trx And ce1 <= ce And rrc1 <= rrc Then 'If paramSum1 <= paramSum <= rrc Then bpnWs.Range(bpnWs.Cells(i, 2), bpnWs.Cells(i, 8)).copy userWs.Cells(j, 18).PasteSpecial xlPasteValues j = j + 1 End If Next i Set bpnWs = Nothing Set userWs = Nothing End Sub
[/vba]
Смотрите вложенный файл. Или спойлер.
[vba]
Код
Sub макрос9() Dim bpnWs As Worksheet Dim userWs As Worksheet Set bpnWs = Worksheets("BPN2 Mode") Set userWs = Worksheets("User") Dim trx As Integer Dim ce As Integer Dim rrc As Integer Dim trx1 As Integer Dim ce1 As Integer Dim rrc1 As Integer trx = CInt(userWs.Cells(4, 4)) ce = CInt(userWs.Cells(4, 6)) rrc = CInt(userWs.Cells(4, 13)) 'Dim rn As Range userWs.Range(userWs.Cells(1, 18), userWs.Cells(1, 24)).EntireColumn.Clear paramSum = trx + ce + rrc j = 11 For i = 3 To 563 trx1 = CInt(bpnWs.Cells(i, 6).Value) ce1 = CInt(bpnWs.Cells(i, 7).Value) rrc1 = CInt(bpnWs.Cells(i, 8).Value) paramSum1 = trx1 + ce1 + rrc1 If trx1 <= trx And ce1 <= ce And rrc1 <= rrc Then 'If paramSum1 <= paramSum <= rrc Then bpnWs.Range(bpnWs.Cells(i, 2), bpnWs.Cells(i, 8)).copy userWs.Cells(j, 18).PasteSpecial xlPasteValues j = j + 1 End If Next i Set bpnWs = Nothing Set userWs = Nothing End Sub
[/vba]
mathiax90
webmoney: R242692021885 ЯД:410013877261817
Сообщение отредактировал mathiax90 - Вторник, 05.04.2016, 12:33
Ответить
Сообщение Смотрите вложенный файл. Или спойлер.
[vba]
Код
Sub макрос9() Dim bpnWs As Worksheet Dim userWs As Worksheet Set bpnWs = Worksheets("BPN2 Mode") Set userWs = Worksheets("User") Dim trx As Integer Dim ce As Integer Dim rrc As Integer Dim trx1 As Integer Dim ce1 As Integer Dim rrc1 As Integer trx = CInt(userWs.Cells(4, 4)) ce = CInt(userWs.Cells(4, 6)) rrc = CInt(userWs.Cells(4, 13)) 'Dim rn As Range userWs.Range(userWs.Cells(1, 18), userWs.Cells(1, 24)).EntireColumn.Clear paramSum = trx + ce + rrc j = 11 For i = 3 To 563 trx1 = CInt(bpnWs.Cells(i, 6).Value) ce1 = CInt(bpnWs.Cells(i, 7).Value) rrc1 = CInt(bpnWs.Cells(i, 8).Value) paramSum1 = trx1 + ce1 + rrc1 If trx1 <= trx And ce1 <= ce And rrc1 <= rrc Then 'If paramSum1 <= paramSum <= rrc Then bpnWs.Range(bpnWs.Cells(i, 2), bpnWs.Cells(i, 8)).copy userWs.Cells(j, 18).PasteSpecial xlPasteValues j = j + 1 End If Next i Set bpnWs = Nothing Set userWs = Nothing End Sub
[/vba]
Автор - mathiax90 Дата добавления - 05.04.2016 в 12:32