Nhờ A xem cột tô đỏ. Cảm ơn nhiều
Sửa lại code thế này xem sao?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Arr(), dArr(), iCol1(), i As Integer, k As Integer, Ngay, j As Integer, Rng As Range, KHO As String
If Target.Address = "$A$3" Then
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Arr = Sheet9.Range("A2:O" & Sheet9.Range("A65000").End(xlUp).Row).Value
ReDim dArr(1 To UBound(Arr, 1), 1 To 13)
Ngay = Target.Value: KHO = Sheet25.[$C$7]
iCol = Array(9, 4, 5, 6, 7, 1, 11, 1, 1, 10, 12, 25, 13)
For i = LBound(Arr, 1) To UBound(Arr, 1)
If (Ngay >= Arr(i, 2)) And (KHO = Arr(i, 8)) Then
k = k + 1
For j = 0 To 12
If iCol(j) = 25 Then
dArr(k, j + 1) = Arr(i, 10) * Arr(i, 11) * (Arr(i, 12) + Arr(i, 13))
ElseIf iCol(j) <> 1 Then
dArr(k, j + 1) = Arr(i, iCol(j))
End If
Next j
End If
Next i
Sheet25.Range("A14:M" & (Sheet25.Range("A65000").End(xlUp).Row) + 5).Clear
If k <> 0 Then
With Sheet25
.Range("A14").Resize(k, 13).Value = dArr
.Sort.SortFields.Clear
.Range("A14:M" & (k + 13)).Sort Key1:=.Range("M14:M" & (k + 13)), order1:=xlDescending, Header:=xlNo
j = .Range("A65000").End(xlUp).Row
For i = j To 13 Step -1
If .Range("M" & i) <> .Range("M" & (i - 1)) Then
.Rows(i & ":" & i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
.Range("B" & i).Value = "Toång hoä baùn thöôøng xuyeân ñöôïc trôï giaù +" & .Range("M" & (i + 1)).Value & " ñoàng/TSC"
.Range("B" & i).Font.Name = "VNI-Times"
.Range("B" & i & ":L" & i).Font.Bold = True
End If
Next i
For Each Rng In .Range("L14:L" & .Range("L65000").End(xlUp).Row).SpecialCells(2).Areas
.Range("J" & (Rng.Row - 1)).Formula = "=sum(" & Replace(Rng.Offset(, -2).Address, "$", "") & ")"
.Range("L" & (Rng.Row - 1)).Formula = "=sum(" & Replace(Rng.Address, "$", "") & ")"
Next
.Range("M14:M" & .Range("A65000").End(xlUp).Row).ClearContents
With .Range("A65000").End(xlUp)
.Offset(1).Value = "Toång giaù trò haøng hoùa ñöôïc mua vaøo "
.Offset(1).Resize(, 13).Font.Name = "VNI-Times"
.Offset(1).Resize(, 13).Font.Bold = True
.Offset(1).Resize(, 6).HorizontalAlignment = xlCenter
.Offset(1).Resize(, 6).Merge
.Offset(1, 9).Formula = "=SUMIF(R14C3:R[-1]C3,"""",R14C10:R[-1]C10)"
.Offset(1, 11).Formula = "=SUMIF(R14C3:R[-1]C3,"""",R14C12:R[-1]C12)"
End With
.Range("A14:M" & .Range("A65000").End(xlUp).Row).Borders.LineStyle = 1
With .Range("A65000").End(xlUp).Offset(1)
.Value = "Baèng chöõ:"
.Offset(, 1).Formula = "=HamDocTV(" & .Offset(-1, 11).Address & ")" 'Sua ham doc tieng viet cho nay
.Offset(2, 1).Value = "Ngöôøi laäp baûng keâ"
.Offset(2, 1).Font.Bold = True
.Offset(1, 11).Value = "Ngaøy ... thaùng .... naêm ......"
.Offset(2, 11).Value = "Giaùm ñoác danh nghieäp"
.Offset(2, 11).Font.Bold = True
.Offset(3, 1).Value = "(Kyù vaø ghi roõ hoï teân)"
.Offset(3, 11).Value = "(Kyù teân, ñoùng daáu)"
.Offset(2, 1).Resize(2).HorizontalAlignment = xlCenter
.Offset(1, 11).Resize(3).HorizontalAlignment = xlCenter
.Resize(5, 13).Font.Name = "VNI-Times"
End With
End With
End If
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Application.EnableEvents = True
End If
End SubTôi thì mù tịch về công thức mảng, chính vì vậy nhìn công thức mảng của bạn thì chịu. Bạn giải thích rõ từng cột lấy ra sao, dựa vào tiêu chí nào, tại sao lại không lấy giá trị này mà phải lấy giá trị khác...
Tôi thuộc dạng luôn luôn lắng nghe, nhưng lâu lâu mới hiểu. Chính vì vậy bạn giải thích thật sự tôi chẳng hiểu luôn, thôi thì giúp được cho bạn cái này nhé, còn cái còn lại nếu hiểu thì làm còn hiện giờ chưa hiểu gì cả. Bạn thêm code này cho Module.Dạ để em giải thích:
Khi nhận được đơn hàng sẽ kiểm tra tồn kho còn bao nhiêu, nếu thiếu thì mua thêm
khi tính giá thì tính theo số lượng vật tư nào sử dụng nhiều hơn (nếu vật tư cũ sử dụng nhiều hơn thì lấy giá cũ, nếu vật tư mới mua về sử dụng nhiều hơn thì sẽ lấy giá mới mua)
Ví dụ khi nắp ráp 1000 linh kiện vào ngày 12/06/2018 mình cần 3000 vật tư A, 4000 vật tư B thì Cty em tính như vầy:
sẽ lấy toàn bộ 1000 vật tư A của PO 18051033 số còn thiếu là 2000 vật tư A sẽ lấy của PO 18051034 nên sẽ lấy Giá mua/0.55 đô
lấy toàn bộ 3000 vật tư B của PO 18051040 số còn thiếu là 1000 vật tư A sẽ lấy của PO 18051034 nênsẽ lấy Giá mua/0.40 đô
Linh liện/ A Số hóa đơn(PO)/ 18051033 Số Lượng/1000 Ngày Mua/12/01/2017 Giá mua/0.50 đô
Linh liện/ A Số hóa đơn(PO)/ 18051034 Số Lượng/7000 Ngày Mua/12/05/2018 Giá mua/0.55 đô
Linh liện/ B Số hóa đơn(PO)/ 18051040 Số Lượng/3000 Ngày Mua/12/01/2017 Giá mua/0.40 đô
Linh liện/ B Số hóa đơn(PO)/ 18051034 Số Lượng/4000 Ngày Mua/12/05/2018 Giá mua/0.49 đô
Những thông tin trong 3 file trên là người ta sẽ giử cho mình còn mình chỉ việc ráp giá vào là xong ạ.
cám ơn bác đã qua tâm giúp đỡ
Function File_Check(s As String) As Boolean
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
File_Check = fso.FileExists(s)
End FunctionPrivate Sub Workbook_Open()
Dim wb As Workbook, tWb As Workbook
Set tWb = ThisWorkbook
tWb.Sheets("PO").Cells.Clear
tWb.Sheets("THONGTIN").Cells.Clear
On Error GoTo Loi
If Not File_Check(ThisWorkbook.Path & "\FilelayPO.xlsx") Then
MsgBox "Ten tin FilelayPO.xlsx khong ton tai"
Exit Sub
End If
If Not File_Check(ThisWorkbook.Path & "\PO history.xlsx") Then
MsgBox "Ten tin PO history.xlsx khong ton tai"
Exit Sub
End If
Set wb = Workbooks.Open(tWb.Path & "\FilelayPO.xlsx")
wb.Sheets(1).Cells.Copy tWb.Sheets("PO").Range("A1")
wb.Close False
Set wb = Workbooks.Open(tWb.Path & "\PO history.xlsx", Password:="11", writeResPassword:="1", UpdateLinks:=0)
wb.Sheets(1).Cells.Copy tWb.Sheets("THONGTIN").Range("A1")
wb.Close False
Loi:
If Err.Number = 1004 Then MsgBox "Passwork mo file chua chinh xac"
End SubEm nghĩ tại Bác có ác cảm gì đó với hàm mảng thông chứ Bác lập trình hay vậy thì làm gì có chuyện ko ..... thực ra em nghĩ khi mình sử dụng hàm mảng trong exccel thì excel sẽ dùng vòng nặp để tìm giá trị cho cell.
Chưa hiểu chỗ nào, qua đây tui giúp cho. Cứ gõ ý nguyên vào là được mà.
Gái xinh có khác, suy nghĩ cũng hại nào phết nhỉ, người ta hỏi tách bạch là ("800>=500" ; "1000<300" ), hai biểu thức riêng biệt, chứ có phải là m ột đâu mà nhét chúng vào một mớ chứ.
Viết thế là sai cú pháp luôn, chứ 2 3 biểu thức gì trời.
Sao cái Form này quen quá nhỉ. Cái này bạn phải đính kèm file nên rồi
