Минимум списка в ячейке Excel

Question

Изо всех сил пытается визуализировать, как я могу сделать следующее, как минимум вычисляемого списка в одной формуле ячейки.Допустим, у меня есть один лист данных с именем Sheet1:

AAPL, TSCO, APPl 2D diff, APPL 3D diff, TSCO 2D diff, TSCO 3D diff,
10, 20, , ,,,
11, 19, , ,,,
11, 21, =(A4/A2)-1, , =(B4/B2)-1
12, 23, =(A5/A3)-1, =(A5/A2)-1, =(B5/B3)-1, =(B5/B2)-1,
13, 21, =(A6/A4)-1, =(A6/A3)-1, =(B6/B4)-1, =(B6/B3)-1,

Так что эти формулы легко перетащить (в процентах).У меня есть временные ряды для обоих, и если у меня есть 1 AAPL и 1 TSCO, то делись идеально.Тогда все, что я хочу, это минимум 2D Diff и минимум 3D diff, легко получаемый с помощью =MIN(C:C) или =MIN(D:D)

Но тогда давайте скажем, что я хочу изменить вес как (Sheet2),Поэтому мне нужно вернуться к sheet1, а затем взвесить 2-ую разницу и 3-ую разницу, меняя вес каждый раз, т. Е. Если мы возьмем первый вес 5 + 100 для 2D-разницы, я должен сделать 7-й столбец сформула =5*C4+100*D4, затем нужно набрать =MIN(G:G), чтобы найти его, si, как я могу сделать это в одной ячейке?

AAPL Weight, TSCO Weight, min 2D diff, min 3d diff
5,100,,
50,70,,
80,75,,

Затем для каждого различного веса в этой таблице я в настоящее время иду исделать это вручную.Есть ли способ, которым я могу позвонить

Answer 1

Изменение Sheet1 на Sheet2. Я предварительно сделал столбец с указанной формулой взвешивания, а затем просто изменил взвешивание каждого Cyel. Следующий код, который работал для меня:

Sub Cycle_Through_Weights()

Dim i As Integer

For i = 4 To 23:
    Sheets("Sheet4").Select
    Range("A" & i & ":B" & i).Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("E3").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E4").Select
    Application.CutCopyMode = False

    ActiveSheet.Calculate
    ActiveSheet.Calculate

    Sheets("Sheet4").Select
    Range("A" & i & ":B" & i).Select
    Selection.Copy
    Sheets("Sheet3").Select
    Range("W2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True

    Sheets("Sheet3").Select
    ActiveSheet.Calculate
    ActiveSheet.Calculate

    Sheets("Sheet3").Select
    Range("X7:Y7").Select

    Selection.Copy
    Sheets("Sheet4").Select
    Range("C" & i).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C" & i).Select
    Application.CutCopyMode = False

    Next i
End Sub