Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос запись значения в ячейку по условию, сравнение значений двух столбцов построчно
 
#1
16.09.2022 10:25:26
Помогите пожалуйста с макросом
Нужно в столбец J записать значения High и Low по условию
Если Open больше Close тогда записать сначала Low потом High, иначе записать сначала High потом Low
Почти весь код есть в примере, не знаю как сделать условие
Изменено: abutov - 16.09.2022 15:23:07
 
 
 
#2
16.09.2022 15:17:06
Гляньте, вроде так:
Код
Sub T()
    Dim arrIn, arrOut, lngI&, lngJ&
    arrIn = [a1].CurrentRegion.Value
    ReDim arrOut(1 To UBound(arrIn, 1) * 2, 1 To 2)
    [I1].CurrentRegion.ClearContents
    For lngI = 2 To UBound(arrIn, 1)
        lngJ = lngJ + 1
        If arrIn(lngI, 2) > arrIn(lngI, 5) Then
            arrOut(lngJ, 1) = arrIn(lngI, 1): arrOut(lngJ, 2) = arrIn(lngI, 4)
            lngJ = lngJ + 1
            arrOut(lngJ, 1) = arrIn(lngI, 1): arrOut(lngJ, 2) = arrIn(lngI, 3)
        Else
            arrOut(lngJ, 1) = arrIn(lngI, 1): arrOut(lngJ, 2) = arrIn(lngI, 3)
            lngJ = lngJ + 1
            arrOut(lngJ, 1) = arrIn(lngI, 1): arrOut(lngJ, 2) = arrIn(lngI, 4)
        End If
    Next lngI
    [I1].Resize(lngJ, 2) = arrOut
End Sub
Кому решение нужно - тот пример и рисует.
 
 
 
#3
16.09.2022 16:32:48
Большое спасибо, Пытливый.
 
 
 
#4
06.11.2022 15:34:11
-
Изменено: abutov - 06.11.2022 23:12:15
 
 
 
Страницы: 1
Наверх