Hi em là người kinh doanh nên mù tịch về tin học,nhưng vì công việc đòi hỏi sự nhanh và chính xác nên ráng mài mò học hỏi,được các anh chị giúp đỡ nhiệt tình như thế này là mình vô cùng biết ơn rồi không dám trách móc gì đâu (có dịp xin được hậu tạ)
OK, đưa makh vào G6 để mình ktra, nếu kg muốn có thể cho màu trắng là kg in ra.
Tôi chưa sửa gì về CK cả, và hiện tại tôi cũng chọn thử như bạn và chọn lại CK thì cũng không thấy chậm. Bạn có thể gởi cái hình mà bạn chọn Print Preview.
Khỏi cần, quy trình là gì
Sub UpdateCK()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Set wf = WorksheetFunction
With Sheets("DMHH")
endR = .Cells(65000, 3).End(xlUp).Row
Set Rng = .Range("C4:M" & endR)
End With
With Sheets("HDon")
Num = .[f1]
For i = 59 To 10 Step -1
If Len(.Cells(i, 4)) = 0 Then
.Rows(i).EntireRow.Hidden = True
Else
If Num = 0 Then
.Cells(i, 5) = 0
Else
.Cells(i, 5) = wf.VLookup(.Cells(i, 3), Rng, Num * 2 + 2, 0)
End If
End If
Next i
End With
Set Rng = Nothing: Set wf = Nothing
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End WithSiêu đâu mà siêu mới lên google search ra đó ThụNghi ơi hihi
Đang xem lại, về nhà sẽ xem và trả lời ngay. Nếu CK -> in -> Lưu, sao lại phải chọn CK lại. Chọn CK có thể là dùng bước sửa.
Sub unHide01()
With Sheets("VD")
.Rows("10:59").EntireRow.Hidden = False
End With
End Sub
Sub Hide01()
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual
End With
Sheets("VD").Select
unHide
With Sheets("VD")
For i = 59 To 10 Step -1
If .Cells(i, 4) = 0 Then
.Rows(i).EntireRow.Hidden = True
End If
Next i
End With
'Set Rng = Nothing: Set wf = Nothing
With Application
.ScreenUpdating = True
.Calculation = xlCalculationAutomatic
End With
End SubSorry, phần này do lồng if sai. Đã sửa lại.
Đã làm lại nhưng vẫn giữ validation. Không cần thì bỏ đi.
Có gán thêm 1 phần lưu khi tạo HĐ mới, bạn xem nếu kg OK thì sửa chữa lại 1 chút.
Cái này nên tường minh, làm thêm 1 code bẫy cũng OK nhưng thấy no need. Và lưu ý phần cột CK ở DMHH thì không được merge cell. Và chỉ cần quan tâm CK, không cần tính ra giá làm gì. Có thể bỏ cột tính ra giá ở DMHH nhưng phải giữ TT cột. Nếu bỏ thì báo để sửa code.
Phần này làm thêm thôi, chớ khi chọn maKH thì nó cũng lấy DMKH rồi, có thể bỏ.
Cái này hoàn toàn số học. Tự nghiên cứu.
Nếu như DMHH mình không thể merge cell được thì mình thông qua 1 sheet khác có merge cell để lấy dữ liệu cho cột CK được không.Cụ thể em tạo thêm 1 sheet BGIA (đã merge cell) và em muốn cột CK% của sh DMHH lấy dữ liệu CK% từ sh BGIA có được không?Giá 2 và Giá 3 của sh DMHH bằng Giá 2 và Giá 3 của sh BGIA
Hi em có nghiên cứu và làm được nhưng em thấy công thức sao nó đơn giản và kì kì quá nên mới hỏi thôi (em đã tạo công thức bằng cách -0.01) ThuNghi xem giúp coi có đúng không.
Đã gọi là cơ sở dữ liệu (CSDL) thì không nên merge cell, viết code không khó nhưng không hệ thống, tôi thấy trong sh BGIA mà ct tính đơn giá không nhất quán thì không nên. Tôi đề xúât như sau:
Vậy bạn làm lại 1 file chỉ gồm sh BGia và Sh DMHH up lên, số liệu về CK gần giống thực tế . Nhớ là không thay đổi cấu trúc sh DMHH.
Đúng vậy thực sự mình chỉ cần quan tâm đến CK thồi còn cột Giá bán đã CK thì không cần thiết,sỡ dĩ mình thêm vào là để đôi lúc mình nhìn và so sánh cho dễ hiểu và đỡ sai sót thôi
Nhớ kiểm tra nhiều tình huống, ì OK thì gắn vào file nhé. Làm với file merge mình thấy không an tâm.
Nếu mà để trống làm ơn đừng merge cell, vì code nó chỉ lấy dk là nếu merge và =0 thì lấy CK của trên nó.Hi không an tâm là không an tâm chuyện gì và không an tâm chổ nào như thế nào hả ThuNghi,nói em biết để em liệu cơm gáp mấm
File ThuNghi đúng là không thỏa cụ thể là
1/ Nếu sét CK cho mặt hàng A còn từ B10 trở xuống để trống không có CK thì lúc này toàn bộ CK từ B10 trở xuống điều lấy CK của A500.
2/ Tương tự tình huống 1 nếu sét CK cho mặt hàng A và C còn B và các mặt hàng khác bỏ trống thì các mặt hàng đó điều lấy CK của mặt hàng cuối cùng nằm trên nó để làm CK cho nó
Sub CapNhatDmHH()
With Application
.Calculation = xlCalculationManual: .ScreenUpdating = False
End With
Dim endR As Long, i As Long
Dim CK2 As Double, CK3 As Double
Dim ArrMaHH(), ArrCK02(), ArrCK03()
Dim rngDM As Range, rngCK02 As Range, rngCK03 As Range
'xoa DMHH
With Sheets("DMHH").Range("A4")
endR = .Cells(1000, 2).End(xlUp).Row 'Lay theo cot tenHH'
.Resize(endR, 4).ClearContents 'Xoa DM
.Offset(, 7).Resize(endR, 1).ClearContents 'Xoa CK2'
.Offset(, 9).Resize(endR, 1).ClearContents 'Xoa CK3'
End With
With Sheets("BGia")
endR = .Cells(1000, 2).End(xlUp).Row 'Lay theo cot tenHH'
ArrMaHH = .Range("A8:D" & endR).Value
Set rngCK02 = .Range("E8:E" & endR) 'vung co gia 2'
Set rngCK03 = .Range("G8:G" & endR) 'vung co gia 3'
End With
endR = endR - 8 + 1: CK2 = 0: CK3 = 0
ReDim ArrCK02(1 To endR, 1 To 1), ArrCK03(1 To endR, 1 To 1)
For i = 1 To endR
'xet theo vung co CK2'
If rngCK02(i).MergeCells = True Then
If rngCK02(i) = 0 Then
CK2 = CK2
Else
CK2 = rngCK02(i)
End If
ArrCK02(i, 1) = CK2
Else
ArrCK02(i, 1) = rngCK02(i)
End If
'xet theo vung co CK3'
If rngCK03(i).MergeCells = True Then
If rngCK03(i) = 0 Then
CK3 = CK3
Else
CK3 = rngCK03(i)
End If
ArrCK03(i, 1) = CK3
Else
ArrCK03(i, 1) = rngCK03(i)
End If
Next i
'Gan lai vao DMHH
With Sheets("DMHH").Range("A4")
.Resize(endR, 4) = ArrMaHH 'Gan tenHH, Mhh..'
.Offset(, 7).Resize(endR, 1) = ArrCK02 'gan vao CK2'
.Offset(, 9).Resize(endR, 1) = ArrCK03 'gan vao CK3'
End With
Set rngDM = Nothing: Set rngCK02 = Nothing: Set rngCK03 = Nothing
Erase ArrMaHH(), ArrCK02(), ArrCK03()
With Application
.Calculation = xlCalculationAutomatic: .ScreenUpdating = True
End With
End Sub
