SMART-LAB
Новый дизайн
Мы делаем деньги на бирже
Информация
теги блога Ruscash
- Brent
- CALL
- Excel
- IV
- PUT
- QUIK
- RI
- S&P500
- short
- Si
- Tslab
- акции
- американский рынок
- банки
- биржа
- брент
- брокер
- волатильность
- вопрос
- газпром
- гарантийное обеспечение
- ГО
- грааль
- график
- ГЭП
- данные
- доллар
- доска опционов
- доходность
- ИИС
- казино
- квик
- колл
- кукл
- купонный доход
- курс
- лудомания
- лучший частный инвестор
- ЛЧИ
- ЛЧИ 2014
- майбах
- масоны
- ММВБ
- московская биржа
- наебиржа
- наекукл
- наеторговля
- наетрейдинг
- нефть
- НКД
- облигации
- Обучение
- обычка
- опрос
- опцион
- опционы
- открытие
- ОФЗ
- оффтоп
- ПАО
- пздц
- победитель
- позиции
- программа
- продажа
- проценты
- пут
- путин
- РЕПО
- Ри
- РТС
- рубль
- Сбер
- Сбербанк
- сделки
- си
- система
- смартлаб
- спекуляции
- стакан
- страйк
- стратегия
- супер трейдер
- ТА
- терминал
- технический анализ
- торговая система
- торговля
- торговые сигналы
- трейдинг
- турнирная таблица
- ФОРТС
- футбол
- фьючерс
- фьючерс ртс
- фьючерсы
- ЦБ
- черный лебедь
- шорт
- экспирация
Джон Уокенбах Excel 2013 профессиональное программирование на VBA
Вот смотри — есть левый столбец список и два критерия «104АА» и «107АТ»
Нужно что бы был поиск этих критериев в левом столбике — и если допустим находится «104АА» или «107АТ», то значение из столбика В переписывалось в столбец С
(«104АА» и «107АТ» будут иметь одинаковый параметр в столбце В (в этом примере он равняется 5, но поиск должен быть именно по двум критериям т.к. параметр в колонке В будет одинаковым, а вот какого-то критерия может не быть в списке А)
=ЕСЛИ(ИЛИ(A1=$D$1,A1=$E$1),B1,0)
=ЕСЛИОШИБКА(ИНДЕКС(B:B; МИН(ЕСЛИОШИБКА(ПОИСКПОЗ(E1;A:A;0);10^36); ЕСЛИОШИБКА(ПОИСКПОЗ(F1;A:A;0);10^36)));«нет»)
*Только если копировать данную формулу в эксель — нужно вместо кавычек «нет» поставить «нет»)
www.firststeps.ru/vba/excel/vbaexcel1.html
ну наверно если есть такие вопросы — уже надо учиться.
а вообще с такими вопросами не сюда.
но макросы знать надо ))
sub aaa
dim i as integer
do
i=i+1
if range(«A»&i) = [D1] or range(«A»&i) = [E1] then
range(«A»&i).offset(0,2) = range(«A»&i).offset(0,1)
end if
loop until range(«A»&i+1) = empty
end sub
Sub Ìàêðîñ1()
Dim Kr1 As String
Dim Kr2 As String
Dim i As Long
Kr1 = Cells(1, 4)
Kr2 = Cells(1, 5)
For i = 1 To 100
If Cells(i, 1) = Kr1 Then
Cells(i, 3) = Cells(i, 2)
End If
Next i
For i = 1 To 100
If Cells(i, 1) = Kr2 Then
Cells(i, 3) = Cells(i, 2)
End If
Next i
End Sub
Только зарегистрированные и авторизованные пользователи могут оставлять ответы.
Залогиниться
Зарегистрироваться