Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Последовательная подстановка значения, вычисление и вывод результатов на лист
 
#1
08.06.2021 09:37:41
Добрый день, возникла проблема в написании макроса последовательной подстановки чисел в ячейку с выводом результатов на лист. Буду признателен за помощь
Изменено: vikttur - 08.06.2021 18:35:25
 
 
 
#2
08.06.2021 09:41:09
Как программа поймет, какие значения нужно подставлять?
 
 
 
#3
08.06.2021 09:49:28
Код
Sub Sequence()
    Const iMin = 0
    Const iMax = 5

    Dim sh As Worksheet
    Set sh = ActiveSheet
    Dim arr As Variant
    arr = sh.Range("C2:H2")
    ReDim brr(iMin To iMax, 1 To UBound(arr, 2))
    
    Dim y As Long
    Dim x As Integer
    For y = iMin To iMax
        For x = 1 To UBound(arr, 2)
            brr(y, x) = arr(1, x) + y
        Next
    Next
    
    sh.Range("C5").Resize(iMax - iMin + 1, UBound(brr, 2)) = brr
End Sub
 
 
 
#4
08.06.2021 09:57:59
МатросНаЗебре, Вангуешь? или понял задание?
 
 
 
#5
08.06.2021 10:14:30
Вангую. В задании есть ожидаемый результат. Выдал одно из решений, которое приведёт к такому результату.
 
 
 
#6
08.06.2021 15:37:32
МатросНаЗебре, спасибо за ответ, но немного не так. В вашем ответе вы указали формулу расчета в макросе, это не то. В ячейку с1 подставляется последовательно от 0 до 2 с шагом 0,1. Ответ с с3:н3 вставляется в таблицу результатов чисел (без формул в макросе), и так для каждого последовательного подставленного числа

То есть как я делаю ставлю 0 копирую ответ строкой, вставляю ниже числами, потом 0,1 копирую ответ вставляю ниже - вот эта проблема
Изменено: vikttur - 08.06.2021 17:30:16
 
 
 
#7
08.06.2021 15:54:47
Не сванговал )
Код
Sub Sequence()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Dim arr As Variant
     
    Dim y As Long
    Dim d As Double
    For d = 0 To 2 Step 0.2
        sh.Range("C1").Value = d
        sh.UsedRange.Calculate
        arr = sh.Range("C3:H3")
        y = y + 1
        sh.Range("C5").Cells(y, 1).Resize(UBound(arr, 2), UBound(arr, 2)) = arr
    Next
End Sub
 
 
 
#8
08.06.2021 18:28:42
Прекрасно работает, только после последней подстановки дублируются результаты
 
 
 
#9
08.06.2021 21:28:51
Код
=ПОСЛЕД($C$1*10+1;1;C2;1/10)
 
 
 
#10
09.06.2021 09:00:47
Поправил.
Код
Sub Sequence()
    Dim sh As Worksheet
    Set sh = ActiveSheet
    Dim arr As Variant
      
    Dim y As Long
    Dim d As Double
    For d = 0 To 2 Step 0.1
        sh.Range("C1").Value = d
        sh.UsedRange.Calculate
        arr = sh.Range("C3:H3")
        y = y + 1
        sh.Range("C5").Cells(y, 1).Resize(UBound(arr, 1), UBound(arr, 2)) = arr
    Next
End Sub
 
 
 
Страницы: 1
Наверх