xin cám ơn ạ. Phần trên nhờ các thầy cô giúp với ạ
Làm cho bạn dòng "SX", "KH", dòng kế hoạch không khớp với kết quả
Cám ơn thầy nhiều nhiều ạ. Đã đúng ý của em rồi ạ.
Format kiểu Center Across Selection có vẻ an toàn hơn và có thể không cần dùng Macro.
Thầy có thể cho em tham khảo thêm được không ạ
Bạn thử file này. Ô màu vàng là vị trí nhập tiếp theo, ô màu đỏ là ô nhập sai vị trí.
Cám ơn thầy ạ. Cái này cũng là 1 cách. Nhưng em lại chẳng biết sao nó lại ra được như thế. chắc em sẽ tìm hiểu thêm.
Nhân tiện muốn nhờ 2 thầy tư vấn giúp em bài này nữa.
Chào Thầy. Thầy cho em hỏi xíu. Nếu trường hợp em mã sản xuất của em có tốc độ khác nhau. tức là thay vì chia cố định cho 1200 ấy. mà em muốn chia cố định cho số khác. thì thêm code thế nào ạ
Số khác tùy thích hay có qui luật?
em gửi thầy lại cái file chuẩn em có sửa lại 1 chút. đối với cái máy KOA thì ổn rồi. nhưng cái máy Shishu thì do tốc độ khác nên em chưa biết xử lí thế nào với đoạn code của thầy. hôm trước em có nhờ thầy là con số cố định là 1200. giờ em muốn 1200 với KOA. còn 5100 với SHISHU thì thêm code thế nào ạ. cám ơn thầy nhiều
Chỉnh lại code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iR As Long, sR As Long, i As Long, d As Long
If Target.Rows.Count = 1 Then
If Target.Column < 5 Then Exit Sub
iR = Target.Row
If iR < 6 Then Exit Sub
If IsNumeric(Target(1, 1).Value) Then
Target(1, 1).MergeArea.MergeCells = False
If iR < 38 Then d = 1200 / 2 Else d = 5100 / 2
sR = WorksheetFunction.RoundUp(Target(1, 1).Value / d, 0)
If sR > 1 Then
Target.Resize(, sR).MergeCells = True
Target.Resize(, sR).HorizontalAlignment = xlCenter
End If
Else
If Len(Target(1, 1).Value) = 0 Then Target(1, 1).MergeArea.MergeCells = False
End If
End If
End SubCám ơn thầy nhiều nhiều ạ. nhờ thầy giúp em viết cái code cho việc links dữ liệu từ 2 file khác nhau ở #11 với ạ
2 file phải cùng thư mục, khi mở file sẽ tự động lấy dữ liệu
