Question

这是一个特定的问题，但是我尝试根据给定的案例尺寸来计算案例中一个单元的尺寸。但是，单元有几种配置和数量。最常见的配置和计数是（12计数4X3X1），（24计数6X4X1）和（24计数4X3X2）（单位为LXWXH）。我计算出截止盒的高度为5.5英寸，假设该数字为24，则高于2的高配置必须是4X3X2的2高配置。仅给出此信息，是否可以创建通用公式或计算器？

谢谢。

+------+--------+--------+--------+--+---------+-------+
| Case | Height | Length | Width  |  | Volume  | Count |
+------+--------+--------+--------+--+---------+-------+
|      |      4 |      7 |   5.25 |  |     147 |    12 |
|      |   4.25 |  10.75 |   7.75 |  |     354 |    24 |
|      |   4.25 |  10.75 |   7.75 |  |     354 |    12 |
|      |    3.5 |    7.5 |    5.5 |  |     144 |    12 |
|      |   7.75 |     10 |      9 |  |     698 |    60 |
|      |      7 |   6.75 |   5.75 |  |     272 |    24 |
|      |   4.25 |  10.25 |   7.25 |  |     316 |    24 |
|      |      7 |  14.25 |    8.5 |  |     848 |    24 |
|      |      7 |  14.25 |      9 |  |     898 |    24 |
|      |   4.25 |  10.25 |   7.25 |  |     316 |    24 |
|      |   4.25 |   10.5 |   7.25 |  |     324 |    24 |
|      |   4.25 |  10.75 |   7.25 |  |     331 |    24 |
|      |   4.25 |  10.75 |   7.25 |  |     331 |    24 |
|      |    6.5 |     19 |   12.5 |  |    1544 |    48 |
|      |   5.51 |  10.51 |   7.95 |  |     460 |    12 |
|      |   6.85 |   6.69 |      5 |  |     229 |    24 |
|      |   7.28 |   7.48 |   5.59 |  |     304 |    24 |
|      |   8.78 |   9.06 |   6.89 |  |     548 |    24 |
|      |   4.25 |  10.75 |    7.5 |  |     343 |    24 |
|      |   4.25 |  10.75 |    7.5 |  |     343 |    24 |
|      |   4.25 |  10.75 |   7.75 |  |     354 |    24 |
|      |   4.25 |   11.5 |      8 |  |     391 |    24 |
+------+--------+--------+--------+--+---------+-------+

Answer 1

对此很有趣。不知道这是否是您想要的100％，但可能会有所帮助。该代码允许您选择一个配置，并显示堆栈外观的输出。照片中的所有数据都是使用公式完成的。 GL

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim rng As Range
        Set rng = ActiveSheet.Range("I3:I5")

    If Not Intersect(Target, rng) Is Nothing Then
        Dim rngClear As Range
            Set rngClear = ActiveSheet.Range("C14:AA100")

        rngClear.ClearFormats

        Dim str As String
            str = Target.Value

        str = Replace(str, Left(str, 5), "")

        Dim arr() As String
            arr = Split(str, "x")

        Dim count As Long
            count = ActiveSheet.Range("G" & Target.Row)

        count = count / arr(2)

        Dim perCase As Long
            perCase = ActiveSheet.Range("J" & Target.Row)

        Dim startCol As Long
            startCol = 3

        Dim startRow As Long
            startRow = 16

        Dim rngObj As Range
        Dim cell As Range
        Dim runLoop As Boolean
            runLoop = True

        Do While runLoop = True
            Dim strtRng As Range
                Set strtRng = ActiveSheet.Cells(startRow, startCol)
            Dim endRng As Range
                Set endRng = ActiveSheet.Cells(startRow + CInt(arr(1) - 1), startCol + CInt(arr(0)) - 1)

            Set rngObj = ActiveSheet.Range(strtRng.Address, endRng.Address)

            For Each cell In rngObj
                If count = 0 Then
                    Exit Sub
                End If
                If arr(2) = 1 Then
                    cell.Interior.color = vbRed
                Else
                    cell.Interior.color = vbBlue
                End If
                count = count - 1
            Next cell
         startCol = startCol + CInt(arr(0) + 1)
        Loop
    End If
End Sub

我正在尝试创建一个公式，以根据案例尺寸计算单位尺寸

1 个答案: