凑数字

天涯论剑

修改绿色颜色区域的数字，使得F29=AA8，G29=AA9,（第29行从左到右和AA列从上到下数字要一样）以此类推总共15个格子，29行和AA列的逻辑公式写进去了，都是简单的求和

天涯论剑

可以有几个负数，求各位大佬帮帮忙

天涯论剑

有没有大神

yynrzwh

要修改行的数字还是列的数字？
或者说，是29行的数字固定还是AA列的数字固定？

天涯论剑

yynrzwh 发表于 2024-8-31 11:21
要修改行的数字还是列的数字？
或者说，是29行的数字固定还是AA列的数字固定？

不用固定，修改绿色区域的数字，随意修改，按比例去分配相差不要太大就行了，然后让29行和AA列的数字一样就行，29行和AA列已经有SUM函数求和了

天涯论剑

yynrzwh 发表于 2024-8-31 11:21
要修改行的数字还是列的数字？
或者说，是29行的数字固定还是AA列的数字固定？

不是固定的，29行由绿色区域+粉色区域求和得到的，AA列由绿色区域+蓝色区域求和得到的，只能修改绿色区域的数字，按照比例修改相差不要太大就行，最后使得F29=AA8，G29=AA9,（第29行从左到右和AA列从上到下数字要一样）以此类推总共15个格子

yynrzwh

允许负值吗

天涯论剑

yynrzwh 发表于 2024-8-31 12:01
允许负值吗

不允许哦。这是支出和收入，负数就不正常了

gwjkkkkk

Option Explicit
Sub test1()
    Dim ar, br, i&, j&
    With [F8:T22]
        ar = .Value
        For i = 1 To UBound(ar)
            br = Application.Index(ar, i)
            Call arrGetRnd1(br)
            For j = 1 To UBound(br)
                ar(i, j) = br(j)
            Next j
        Next i
        .Value = ar
    End With

End Sub

Function arrGetRnd1(ByRef ar)
    Dim br, xNum&, i&, n&, vTemp, xRnd&
   
    ReDim br(1 To 2)
    Randomize
    n = UBound(ar)
    For i = 1 To UBound(ar)
        xNum = Int((n - i + 1) * Rnd() + i)
        If ar(xNum) > ar(i) Then vTemp = ar(i) Else vTemp = ar(xNum)
        vTemp = Int(vTemp / 10)
        xRnd = Int(2 * Rnd() + 1)
        If xRnd = 1 Then
             br(1) = "+": br(2) = "-"
        Else
             br(1) = "-": br(2) = "+"
        End If
        ar(xNum) = Evaluate(ar(xNum) & br(1) & vTemp)
        ar(i) = Evaluate(ar(i) & br(2) & vTemp)
    Next
End Function

gwjkkkkk

请参考附件。。。

天涯论剑

gwjkkkkk 发表于 2024-8-31 18:53
请参考附件。。。

这个不对呀，要29行和AA列的值最终要等于一样的，，，F29=AA8，G29=AA9,（第29行从左到右和AA列从上到下数字要一样）以此类推总共15个格子