求助，求助。这个完成后的表格按条件分配怎么完成？

cxxyzjsxy

1、“完成后表格” 内  “总表” 数据需要分配至  分表从“A-（一”、“A-（二”......“B-(二十一”、“B-(二十二”。


2、分配条件为：“总表” 内客户号列   +    轮规格A 列  对比条件在 “集成配置及排产流程 2023.03.10” 表的“填表” 内 客户号列 + 轮规格A 列

3、“填表” 内机加组别的4列参照 “集成配置及排产流程” 内的G列

4、分配时“总表”内分配至分表后数量不超过“集成配置及排产流程” 的I列产能。

Yalishanda30

体力活。。。。。

cxxyzjsxy

Yalishanda30 发表于 2023-3-23 14:07
体力活。。。。。

  这个体力活啊？很麻烦吗？

ykcbf1100

你这个，建议你找付费的做了。
如果免费，一般人不太愿意花过多的时间去写代码。

cxxyzjsxy

ykcbf1100 发表于 2023-3-23 15:52
你这个，建议你找付费的做了。
如果免费，一般人不太愿意花过多的时间去写代码。

这个一般需要多少钱啊？有收费标准吗？

ykcbf1100

cxxyzjsxy 发表于 2023-3-24 09:00
这个一般需要多少钱啊？有收费标准吗？

这个不知道啊。
论坛中，你出个50元、100元先试试吧。

cxxyzjsxy

有偿吧。来个大佬看看呢。详聊

cxxyzjsxy

ykcbf1100 发表于 2023-3-23 15:52
你这个，建议你找付费的做了。
如果免费，一般人不太愿意花过多的时间去写代码。

Sub AllocateData()

    ' Define the worksheet objects for the total and fill tables
    Dim totalTable As Worksheet
    Dim fillTable As Worksheet
    Dim integratedTable As Worksheet
   
    Set totalTable = ThisWorkbook.Worksheets("完成后表格").Range("总表").Worksheet
    Set fillTable = ThisWorkbook.Worksheets("集成配置及排产流程 2023.03.10").Range("填表").Worksheet
    Set integratedTable = ThisWorkbook.Worksheets("集成配置及排产流程 2023.03.10").Range("G:I").Worksheet
   
    ' Define the data ranges for the total and fill tables
    Dim totalData As Range
    Dim fillData As Range
   
    Set totalData = totalTable.Range("A1").CurrentRegion
    Set fillData = fillTable.Range("A1").CurrentRegion
   
    ' Loop through each row in the total data range
    For i = 2 To totalData.Rows.Count
   
        ' Find the matching row in the fill data range
        Set fillRow = fillData.Rows.Find(What:=totalData(i, 1).Value & totalData(i, 6).Value, _
            LookIn:=xlValues, LookAt:=xlWhole)
        
        If Not fillRow Is Nothing Then
        
            ' Determine the corresponding integrated table row and column
            Dim rowHeader As String, columnHeader As String
            
            rowHeader = fillData(fillRow.Row, 4).Value
            columnHeader = fillData(fillRow.Row, 1).Value & fillData(fillRow.Row, 2).Value
            
            Set intRange = integratedTable.Range("A1").CurrentRegion
            
            For Each cell In intRange.Cells
                If cell.Value = columnHeader And cell.Row = 1 Then
                    colIndex = cell.Column
                    Exit For
                ElseIf cell.Value Like rowHeader & "*" And cell.Column = 1 Then
                    rowIndex = cell.Row
                    Exit For
                End If
            Next cell
            
            ' Determine the integrated table capacity
            Dim capacity As Double
            
            If Not rowIndex = 0 And Not colIndex = 0 Then
                capacity = integratedTable.Cells(rowIndex, colIndex + 2).Value
            End If
            ' Calculate the quantity to be allocated
            Dim quantity As Double, allocatedQty As Double
            
            quantity = totalData(i, 5).Value
            allocatedQty = WorksheetFunction.Min(quantity, capacity)
            
            ' Allocate the data to the corresponding table
            If Not allocatedQty = 0 Then
                ' Determine the corresponding table letter and row
                tableHeader = fillData(fillRow.Row, 2).Value & "-"
                tableRow = fillData(fillRow.Row, 5).Value
               
                ' Find the matching table sheet
                For Each ws In ThisWorkbook.Worksheets
                    If ws.Name Like "分表 " & tableHeader & "*" Then
                        Set tableRange = ws.Range("A1").CurrentRegion
                        Exit For
                    End If
                Next ws
               
                If Not tableRange Is Nothing Then
                    ' Determine the column index in the table range
                    For Each cell In tableRange.Rows(1).Cells
                        If cell.Value = tableHeader & tableRow Then
                            colIndex = cell.Column
                            Exit For
                        End If
                    Next cell
                    
                    ' Find the next available row in the table range and allocate the quantity
                    For j = 2 To tableRange.Rows.Count
                        If tableRange(j, 1).Value = "" Then
                            tableRange(j, colIndex).Value = allocatedQty
                            Exit For
                        End If
                    Next j
                End If
            End If
        End If
    Next i
End Sub

这个需要么修改呢。这个可以用吗？