Nhờ trợ giúp để tính toán cho số lượng xe tải.

Liên hệ QC
Ngày mai trời lại sáng

Ngày mai trời lại sáng

Thành viên thường trực
Tham gia
4/7/21
Bài viết
339
Được thích
139
Chào các bạn, mình cần trợ giúp viết câu lệnh macro để tính toán số liệu xe theo cơ sở dữ liệu trong file kèm.
Bạn nào biết giúp mình với, xin cảm ơn nhiều.
 

File đính kèm

  • Tối ưu hóa cho số lượng xe tải.xlsx
    10.9 KB · Đọc: 14
Sắp xếp theo thời gian sắp xếp theo bầu chọn
HieuCD đã viết:
1 chuyến 2 loại cá tôm giới hạn số thùng như thế nào?
Có bao nhiêu loại sản phẩm?
Nhấp chuột vào đây để mở rộng...
Thùng sử dụng để đóng gói cho các sản phẩm thì hiện tại cùng 1 loại (có kích thước trọng lượng giống nhau) nên số thùng 1 chuyến dựa vào số lượng thùng tối đa cho phep theo tiêu chuẩn của sản phẩm (hiện tại lấy theo mặt hàng tôm tối đa là 200 thùng) nhưng đóng mặt hàng khác như cá thì số thùng sẽ giảm vì 200 thùng thì sẽ vượt số kg cho phép của một chuyến.
Có khoảng chừng hơn 20 mặt hàng 1 chút các loại nhưng em chỉ đưa ví dụ mặt hàng chính và cũng mô tả theo hướng chung cho các mặt hàng còn lại.
Cảm ơn bạn đã xem.
 
Upvote 0
3ii đã viết:
Thùng sử dụng để đóng gói cho các sản phẩm thì hiện tại cùng 1 loại (có kích thước trọng lượng giống nhau) nên số thùng 1 chuyến dựa vào số lượng thùng tối đa cho phep theo tiêu chuẩn của sản phẩm (hiện tại lấy theo mặt hàng tôm tối đa là 200 thùng) nhưng đóng mặt hàng khác như cá thì số thùng sẽ giảm vì 200 thùng thì sẽ vượt số kg cho phép của một chuyến.
Có khoảng chừng hơn 20 mặt hàng 1 chút các loại nhưng em chỉ đưa ví dụ mặt hàng chính và cũng mô tả theo hướng chung cho các mặt hàng còn lại.
Cảm ơn bạn đã xem.
Nhấp chuột vào đây để mở rộng...
Bạn gởi file với nhiều mặt hàng dể kiểm tra code hơn
Bài đã được tự động gộp:

Hình như mình đã viết code dạng nầy cho bạn ở bài trước
 
Upvote 0

File đính kèm

  • Tối ưu hóa cho số lượng xe tải.xlsx
    11.4 KB · Đọc: 9
Upvote 0
3ii đã viết:
Em gửi thêm mặt hàng, bác xem giúp em.
Nhấp chuột vào đây để mở rộng...
Kiểm tra lại . .
Mã: 
Option Explicit
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = Range("C4", Range("G4").End(xlDown)).Value
    aSL = Range("C21:F" & Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
  End If
  With Sheets("Sheet1")
    i = Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub

Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
 
Upvote 0
HieuCD đã viết:
Kiểm tra lại . .
Mã: 
Option Explicit
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = Range("C4", Range("G4").End(xlDown)).Value
    aSL = Range("C21:F" & Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
  End If
  With Sheets("Sheet1")
    i = Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub

Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác nhiều,em đã kiểm tra code chạy đúng ý em muốn rồi.
Bài đã được tự động gộp:

HieuCD đã viết:
Kiểm tra lại . .
Mã: 
Option Explicit
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = Range("C4", Range("G4").End(xlDown)).Value
    aSL = Range("C21:F" & Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
  End If
  With Sheets("Sheet1")
    i = Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub

Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Em thử dữ liệu này thì chưa đúng, bác xem giúp em với.
 

File đính kèm

  • Tối ưu hóa cho số lượng xe tải.xlsm
    24.7 KB · Đọc: 3
Upvote 0
3ii đã viết:
Cảm ơn bác nhiều,em đã kiểm tra code chạy đúng ý em muốn rồi.
Bài đã được tự động gộp:


Em thử dữ liệu này thì chưa đúng, bác xem giúp em với.
Nhấp chuột vào đây để mở rộng...
Chỉnh tí xíu
arr(i, 6) = arr(i, 6) + 1
Mã: 
Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = arr(i, 6) + 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
Mã: 
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = .Range("C4", .Range("G4").End(xlDown)).Value
    aSL = .Range("C21:F" & .Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
  End If
  With Sheets("Sheet1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then .Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      .Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub
 
Upvote 0
HieuCD đã viết:
Chỉnh tí xíu
arr(i, 6) = arr(i, 6) + 1
Mã: 
Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = arr(i, 6) + 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
Mã: 
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = .Range("C4", .Range("G4").End(xlDown)).Value
    aSL = .Range("C21:F" & .Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
  End If
  With Sheets("Sheet1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then .Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      .Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác nhiều code chạy đúng ý em muốn rồi,như vậy đã giảm được khoảng 90% thao tác em phải làm thủ công tại bước 1, còn 10% nữa em phải tách bằng tay nhưng mà nhanh,có thể chỉnh code để chạy 1 lần ra được đến luôn bước 2 không bác.
 

File đính kèm

  • Tối ưu hóa cho số lượng xe tải.xlsm
    26.6 KB · Đọc: 6
Upvote 0
3ii đã viết:
Cảm ơn bác nhiều code chạy đúng ý em muốn rồi,như vậy đã giảm được khoảng 90% thao tác em phải làm thủ công tại bước 1, còn 10% nữa em phải tách bằng tay nhưng mà nhanh,có thể chỉnh code để chạy 1 lần ra được đến luôn bước 2 không bác.
Nhấp chuột vào đây để mở rộng...
Còn vấn đề nào không ? mình sẽ viết lần cuối
 
Upvote 0
HieuCD đã viết:
Còn vấn đề nào không ? mình sẽ viết lần cuối
Nhấp chuột vào đây để mở rộng...
Không ạ, cảm ơn bạn đã dành thời gian giúp, mục đích của em vẫn là để mặt hàng cùng chủng loại vào cùng một chuyến,nếu quá tải không còn cùng được nữa mới phải để chung, bước 2 ban đầu em định viết ở bài 1 nhưng thấy hơi khó giải thích nên dừng lại ở đó, nếu tối ưu được tiếp thì bác xem giúp em.
 
Upvote 0
3ii đã viết:
Không ạ, cảm ơn bạn đã dành thời gian giúp, mục đích của em vẫn là để mặt hàng cùng chủng loại vào cùng một chuyến,nếu quá tải không còn cùng được nữa mới phải để chung, bước 2 ban đầu em định viết ở bài 1 nhưng thấy hơi khó giải thích nên dừng lại ở đó, nếu tối ưu được tiếp thì bác xem giúp em.
Nhấp chuột vào đây để mở rộng...
Kiểm tra thêm các trường hợp khác
Mã: 
Option Explicit
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, ik&, j&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = .Range("C4", .Range("G4").End(xlDown)).Value
    aSL = .Range("C21:F" & .Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    ik = k + 1
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
    t = 0
    For i = k To ik + 1 Step -1 'Dieu chinh
      t = t + res(i, 4)
      If res(i, 6) <> res(i - 1, 6) Then
        If res(i, 2) = res(i - 1, 2) Then
          If t + res(i - 1, 4) <= tMax Then
            res(i, 4) = res(i, 4) + res(i - 1, 4)
            res(i, 5) = res(i, 5) + res(i - 1, 5)
            res(i - 1, 2) = Empty
            i = i - 1
            s = -1 'Có dieu chinh
          End If
        End If
        t = 0
      End If
    Next i
    If s = -1 Then 'Có dieu chinh
      r = 0
      For i = 1 To k
        If res(i, 2) <> Empty Then
          r = r + 1
          res(r, 1) = r
          For j = 2 To 6
            res(r, j) = res(i, j)
          Next j
        End If
      Next i
      k = r
    End If
  End If
  With Sheets("Sheet1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then .Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      .Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub

Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = arr(i, 6) + 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
 
Upvote 0
HieuCD đã viết:
Kiểm tra thêm các trường hợp khác
Mã: 
Option Explicit
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, ik&, j&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = .Range("C4", .Range("G4").End(xlDown)).Value
    aSL = .Range("C21:F" & .Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    ik = k + 1
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) < tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
    t = 0
    For i = k To ik + 1 Step -1 'Dieu chinh
      t = t + res(i, 4)
      If res(i, 6) <> res(i - 1, 6) Then
        If res(i, 2) = res(i - 1, 2) Then
          If t + res(i - 1, 4) <= tMax Then
            res(i, 4) = res(i, 4) + res(i - 1, 4)
            res(i, 5) = res(i, 5) + res(i - 1, 5)
            res(i - 1, 2) = Empty
            i = i - 1
            s = -1 'Có dieu chinh
          End If
        End If
        t = 0
      End If
    Next i
    If s = -1 Then 'Có dieu chinh
      r = 0
      For i = 1 To k
        If res(i, 2) <> Empty Then
          r = r + 1
          res(r, 1) = r
          For j = 2 To 6
            res(r, j) = res(i, j)
          Next j
        End If
      Next i
      k = r
    End If
  End If
  With Sheets("Sheet1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then .Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      .Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub

Private Sub SortArr(arr, s)
  Dim t, i&, r&, j
  t = arr
  arr(s, 6) = 1
  For i = 1 To s - 1
    arr(i, 6) = arr(i, 6) + 1
    For r = i + 1 To s
      If arr(i, 3) > arr(r, 3) Then
        arr(i, 6) = arr(i, 6) + 1
      Else
        arr(r, 6) = arr(r, 6) + 1
      End If
    Next r
  Next i
  For i = 1 To s
    For j = 1 To 5
      arr(arr(i, 6), j) = t(i, j)
    Next j
  Next i
End Sub
Nhấp chuột vào đây để mở rộng...
Cảm ơn bác nhiều, em chạy thử thấy tuyệt lắm rồi, stt dòng tổng cộng muốn xóa chỉnh chỗ nào vậy bác?
 
Upvote 0
3ii đã viết:
Cảm ơn bác nhiều, em chạy thử thấy tuyệt lắm rồi, stt dòng tổng cộng muốn xóa chỉnh chỗ nào vậy bác?
Nhấp chuột vào đây để mở rộng...
Thêm lệnh
res(k, 1) = Empty
Mã: 
    If s = -1 Then 'Có dieu chinh
      r = 0
      For i = 1 To k
        If res(i, 2) <> Empty Then
          r = r + 1
          res(r, 1) = r
          For j = 2 To 6
            res(r, j) = res(i, j)
          Next j
        End If
      Next i
      k = r
      res(k, 1) = Empty
    End If
 
Upvote 0
HieuCD đã viết:
Thêm lệnh
res(k, 1) = Empty
Mã: 
    If s = -1 Then 'Có dieu chinh
      r = 0
      For i = 1 To k
        If res(i, 2) <> Empty Then
          r = r + 1
          res(r, 1) = r
          For j = 2 To 6
            res(r, j) = res(i, j)
          Next j
        End If
      Next i
      k = r
      res(k, 1) = Empty
    End If
Nhấp chuột vào đây để mở rộng...
Với số liệu này đang bị tách mặt hàng "Ngán" làm 2 chuyến có thể gộp lại "1-2" thành 1 chuyến và "3-4" vào 1 chuyến được không bác.
Vẫn đảm bảo không quá tải và cùng mặt hàng không bị tách nhiều chuyến
1645258475862.png
 
Upvote 0
3ii đã viết:
Với số liệu này đang bị tách mặt hàng "Ngán" làm 2 chuyến có thể gộp lại "1-2" thành 1 chuyến và "3-4" vào 1 chuyến được không bác.
Vẫn đảm bảo không quá tải và cùng mặt hàng không bị tách nhiều chuyến
View attachment 272296
Nhấp chuột vào đây để mở rộng...
Chỉnh res(k, 1) = Empty thành res(k+1, 1) = Empty
Chỉnh tiếp
Mã: 
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, ik&, j&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = .Range("C4", .Range("G4").End(xlDown)).Value
    aSL = .Range("C21:F" & .Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    ik = k + 1
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) <= tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
    t = 0
    For i = k To ik + 1 Step -1 'Dieu chinh
      t = t + res(i, 4)
      If res(i, 6) <> res(i - 1, 6) Then
        If res(i, 2) = res(i - 1, 2) Then
          If t + res(i - 1, 4) <= tMax Then
            res(i, 4) = res(i, 4) + res(i - 1, 4)
            res(i, 5) = res(i, 5) + res(i - 1, 5)
            res(i - 1, 2) = Empty
            i = i - 1
            s = -1 'Có dieu chinh
          End If
        End If
        t = 0
      End If
    Next i
    If s = -1 Then 'Có dieu chinh
      r = 0
      For i = 1 To k
        If res(i, 2) <> Empty Then
          r = r + 1
          res(r, 1) = r
          For j = 2 To 6
            res(r, j) = res(i, j)
          Next j
        End If
      Next i
      k = r
      res(k + 1, 1) = Empty
    End If
  End If
  With Sheets("Sheet1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then .Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      .Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub
 
Upvote 0
HieuCD đã viết:
Chỉnh res(k, 1) = Empty thành res(k+1, 1) = Empty
Chỉnh tiếp
Mã: 
Sub XYZ()
  Dim aDM(), aSL(), arr(), res(1 To 1000, 1 To 6)
  Dim sRow&, i&, r&, k&, ik&, j&, s&, x&, sp$, N&
  Dim hop&, tl#, tlHop#, t#, tongH#, tongT#
  Const tMax# = 3600 'Gioi han tren cua Trong luong
 
  With Sheets("Sheet1")
    aDM = .Range("C4", .Range("G4").End(xlDown)).Value
    aSL = .Range("C21:F" & .Range("C10000").End(xlUp).Row).Value
  End With
  sRow = UBound(aSL)
  ReDim arr(1 To sRow, 1 To 6)
  For i = 1 To sRow
    sp = aSL(i, 1)
    For r = 1 To UBound(aDM)
      If sp = aDM(r, 1) Then
        tlHop = aDM(r, 3) 'Trong luong 1 hop
        hop = aDM(r, 4) 'So hop
        tl = aDM(r, 5) 'Trong luong
        Exit For
      End If
    Next r
    N = Int(aSL(i, 4) / hop)
    For r = 1 To N
      k = k + 1: x = x + 1
      res(k, 1) = k: res(k, 6) = x
      res(k, 2) = sp
      res(k, 3) = aSL(i, 2)
      res(k, 5) = hop
      aSL(i, 4) = aSL(i, 4) - hop
      If aSL(i, 4) = 0 Then
        res(k, 4) = aSL(i, 3)
        aSL(i, 3) = 0
      Else
        res(k, 4) = tl
        aSL(i, 3) = aSL(i, 3) - tl
      End If
      tongH = tongH + res(k, 5)
      tongT = tongT + res(k, 4)
    Next r
    If aSL(i, 4) > 0 Then 'SP du chuyen gop voi sp khac
      s = s + 1
      arr(s, 1) = aSL(i, 1): arr(s, 2) = aSL(i, 2)
      arr(s, 3) = aSL(i, 3): arr(s, 4) = aSL(i, 4)
      arr(s, 5) = tlHop
    End If
  Next i
  If s > 0 Then 'SP du chuyen gop voi sp khac
    Call SortArr(arr, s)
    ik = k + 1
    For i = 1 To s
      If arr(i, 3) > 0 Then
        k = k + 1
        If t = 0 Then x = x + 1
        res(k, 1) = k: res(k, 6) = x
        res(k, 2) = arr(i, 1)
        res(k, 3) = arr(i, 2)
        If t + arr(i, 3) <= tMax Then
          t = t + arr(i, 3)
          res(k, 4) = arr(i, 3)
          res(k, 5) = arr(i, 4)
        Else
          res(k, 5) = Int((tMax - t) / arr(i, 5))
          res(k, 4) = res(k, 5) * arr(i, 5)
          arr(i, 4) = arr(i, 4) - res(k, 5)
          arr(i, 3) = arr(i, 3) - res(k, 4)
          t = 0
          i = i - 1
        End If
        tongH = tongH + res(k, 5)
        tongT = tongT + res(k, 4)
      End If
    Next i
    t = 0
    For i = k To ik + 1 Step -1 'Dieu chinh
      t = t + res(i, 4)
      If res(i, 6) <> res(i - 1, 6) Then
        If res(i, 2) = res(i - 1, 2) Then
          If t + res(i - 1, 4) <= tMax Then
            res(i, 4) = res(i, 4) + res(i - 1, 4)
            res(i, 5) = res(i, 5) + res(i - 1, 5)
            res(i - 1, 2) = Empty
            i = i - 1
            s = -1 'Có dieu chinh
          End If
        End If
        t = 0
      End If
    Next i
    If s = -1 Then 'Có dieu chinh
      r = 0
      For i = 1 To k
        If res(i, 2) <> Empty Then
          r = r + 1
          res(r, 1) = r
          For j = 2 To 6
            res(r, j) = res(i, j)
          Next j
        End If
      Next i
      k = r
      res(k + 1, 1) = Empty
    End If
  End If
  With Sheets("Sheet1")
    i = .Range("J" & Rows.Count).End(xlUp).Row
    If i > 20 Then .Range("I21:N" & i).Clear
    If k Then
      k = k + 1
      res(k, 2) = "Total"
      res(k, 4) = tongT
      res(k, 5) = tongH
      res(k, 6) = res(k - 1, 6)
      .Range("I21").Resize(k, 6) = res
    End If
  End With
End Sub
Nhấp chuột vào đây để mở rộng...
Có vẻ rất ổn rồi bác, em chưa thấy vấn đề gì, cảm ơn bác nhiều.
 
Lần chỉnh sửa cuối:
Upvote 0
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.
Web KT

Bài viết mới nhất

L
Dùng vlookup đưa kết quả không được
Trả lời
9
Đọc
70
leetenchin1
L
Thi MInh Doan
Tính giá vé máy bay nếu tuyến bay ký hiệu là BL và chữ cái đầu của ký hiệu là A
Trả lời
1
Đọc
25
Hoàng Tuấn 868
H
HeSanbi
  • Question
Lỗi VBA: Cài đặt thông số ForceVBALoadFromSource trong Registry để VBA biên dịch không bị lỗi
    • Thích
Trả lời
4
Đọc
145
HeSanbi
HeSanbi
hunganh.nguyen
Xin giúp code tách dòng tổng thành những dòng chi tiết với giá trị là 1
Trả lời
10
Đọc
432
Duy Tùng 9x
Duy Tùng 9x
N
  • Question
VBA - copy các sheets unhide và dạng giá trị theo vùng xác định
Trả lời
5
Đọc
130
nguyenhuong91
N
X
  • Question
Xin trợ giúp code để lọc dữ liệu
Trả lời
3
Đọc
70
Hoàng Tuấn 868
H
B
  • Question
Xin hướng dẫn tách 1 vùng dữ liệu sang thành nhiều sheet
Trả lời
3
Đọc
95
SA_DQ
SA_DQ
OverAC
Gặp gỡ giao lưu tại Hà Nội, chiều ngày 10/11/2025. cùng Ptm0412, OverAC và các anh chị thân thiết.
    • Thích
    • Yêu thích
Trả lời
5
Đọc
163
PhanTuHuong
PhanTuHuong
ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
8 9 10
Trả lời
194
Đọc
10K
HeSanbi
HeSanbi
Hai Lúa Miền Tây
Nhập liệu, truy vấn dữ liệu qua Internet = VB.Net
    • Thích
2
Trả lời
26
Đọc
10K
phamduyhoang2907
P
P
Connection string cho SQL Express 2005
Trả lời
7
Đọc
7K
phamduyhoang2907
P
T
Xin trợ giúp code về dò tìm dữ liệu
Trả lời
4
Đọc
182
CHAOQUAY
C
Quyen182
  • Question
Xin giúp code VBA để chèn ảnh có sẵn trong Excel vào phần comment
Trả lời
0
Đọc
72
Quyen182
Quyen182
Toanke063
  • Question
Xin hỏi code vba chuyển 1 file pdf bất kì thành ảnh
Trả lời
7
Đọc
173
cantl
C
HeSanbi
  • Đã giải quyết
ZaloExcel v2.92: Gửi tin nhắn, hình ảnh, bảng, biểu đồ, tập tin, tạo nhóm, thu thập tin nhắn
    • Thích
    • Cảm ơn
    • Yêu thích
2 3
Trả lời
55
Đọc
14K
HeSanbi
HeSanbi
Bebooby
Tách mã sản phẩm trong chuỗi thông tin
Trả lời
2
Đọc
82
NT Ngoc Yen
N
thlpro
Truy Vấn Công thức từ Sheet này Qua Sheet Khác
Trả lời
8
Đọc
173
thlpro
thlpro
S
Lý do công thức bị mờ tại ô Function
    • Cười
Trả lời
2
Đọc
81
sakurasumo
S
GPE-Trợ Lý
Đăng ký tham dự hội thảo tại Hà Nội: Power Query - Công cụ quản lý dữ liệu
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
5
Đọc
661
GPE-Trợ Lý
GPE-Trợ Lý
N
  • Question
Làm ơn viết giùm mình macro làm tròn giá trị ạ
    • Cười
Trả lời
14
Đọc
145
ptm0412
ptm0412
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Back
Top Bottom