Bạn nên cho một vài kết quả mong muốn (làm thủ công) vào Sheet "PC Ten" để dễ hình dung.Mình có một bảng phân công chuyên môn, nhờ mọi người tìm giúp mình 1 công thức excel lấy thông tin theo tiêu đề cột và tiêu đề hàng từ sheets “PC” theo mã số trong đó các ô từ C4 đến O11 là các mã số lấy từ ô $A5:$A20 của sheets “PC tên”, ví dụ: trong bảng tính tôi gửi kèm hàm excel tại ô C5 trong sheets “PC tên” có thể đọc được các ô có số 1 trong sheets “PC” ứng với số 1 của ô A5 cột A sheets “PC tên” sẽ dạy TNHN 6A, TNHN 6B, CN 7A, CN 7A
Cảm ơn bạn. Cái này dùng VBA thì chắc là được.Nếu là mình thì sẽ xây dựng CSDL theo chiều dọc, như vầy:
View attachment 308852
Tất nhiên kèm theo CSDL này là danh mục các nguyên nhân ngừng
Như
Co - Cơ điện;
Dn - Điện;
CN - Cônghệ
. . . .
Chứ như kiểu của bạn thì VBA còn mệt chứ nói gì đến công thức!
Bổ sung: Ta có thể gộp 'Ca' & 'mã ca' thành 1 cột cũng được
Thân!
& VBA có thể biến CSDL của bạn hiện có trở thành CSDL mà tôi & bạn cùng mong muốn được luôn!. . . . . Cái này dùng VBA thì chắc là được.
Bạn làm giúp mình nhé& VBA có thể biến CSDL của bạn hiện có trở thành CSDL mà tôi & bạn cùng mong muốn được luôn!
Bạn có sẵn sàng chuyển đổi thiết kế CSDL không?
![]()
![]()
![]()
Sub NgaySanXuat()
Dim Rws As Long, J As Long, W As Integer
ReDim Arr(1 To 45, 1 To 1) As String
Rws = Sheets("SX").UsedRange.Rows.Count
For J = 2 To Rws Step 42
If Left(Cells(J, "N").Value, 5) = "Ngày " Then
Cells(J, "N").Interior.ColorIndex = 35
Else
Cells(J, "N").Interior.ColorIndex = 38
W = W + 1: Arr(W, 1) = Cells(J, 44).Address
End If
Next J
If W Then Sheets("GPE").[G1].Resize(W).Value = Arr()
End Sub