Trời ơi... Dữ liệu bố trí gì mà kỳ cục vậy trời... Trách sao chẳng tự mình làm khó mình
Đây là mẫu thiết bị trường học mà em phải làm như vậy để in ra theo từng năm bởi thế mới khổ thân em....nếu em tự tạo ra mẫu thì dễ rồi mới nhờ anh "ndu96081631" làm giùm em với.
Híc, ba hồi SỬ, bốn hồi LỊCH SỬ, lúc thì SINH, lúc thì SINH HỌC, lúc buồn thì ĐỊA lúc vui thì ĐỊA LÝ thì làm sao "bi" giờ hả Trời
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Dk, Ws, iDau, iCuoi, Vung, Ma
If Target.Address = "$G$2" Then
If [g2] <> vbNullString And [b2] <> vbNullString Then
Dk = "*" & [g2] & " " & Right([b2], 1)
If Dk = "*HÓA 6" Or Dk = "*HÓA 7" Then MsgBox "Làm dêch gì có môn : " & [g2] & [b2]: Exit Sub
Set Ws = Sheets("Data")
Set Vung = Ws.Range(Ws.[b2], Ws.[b10000].End(xlUp))
iDau = Application.WorksheetFunction.Match(Dk, Vung, 0) + 2
Ma = Ws.Range(Ws.Cells(iDau, 1), Ws.Cells(iDau, 1).End(xlDown).Offset(-1)).Offset(, 1).Resize(, 6)
[a4:g1000].ClearContents
[b4].Resize(UBound(Ma), 6).Value = Ma
Range([b4], [b1000].End(xlUp)).Offset(, -1) = [row(A:A)]
End If
End If
End Sub
Ông già này siêng thật, dữ liệu excel "tự do" mà già vẫn "cần cù", gặp tôi thì "điếc".
Tôi thấy các bạn hay bị "khống chế" vì những BIỂU MẪU do Sếp đề ra rồi cứ nghĩ rằng BẮT BUỘC mình phải làm theo những biểu mẫu này.
Cũng khó lắm NDu ơi, vì mẫu đó là của sếp chẳng hạn đã dùng từ năm này sang năm khác nếu thay đổi thì những công thức gì đó link của sếp bị thay đổi không làm được, hồi đó em có sửa lại 1 lần rồi bị la te tua luôn mặc dù mình không muốn nói rằng mẫu đó không logic học cho lắm nhưng mà có thể lúc trước thì làm được vậy là dữ lắm rồi. Kết luận lại một câu là mình làm theo sếp còn cái gì đó thì mình tự làm riêng để mình học và tham khảo. Biết đâu sao này mình cũng bị chê là không logic học nữa sao nè. Bây giờ kêu ông Isaac Newton mà ổng sử dụng máy tính ổng cũng chào thua ..ặc...ặc....
Tôi đâu có nói rằng BẠN BỎ CÁI BIỂU MẪU ẤY (dù nó có kỳ cục).
Mình ví dụ như vầy hen A1= HOÁ 6 đi. Ở ngoài công thức của excel = if( or(A1="HOÁ 6"; A1="HOÁ 7");"Có tên môn HOÁ đó";"No Smoking"). Thì ở đây DK giống như dữ liệu ở ô A1 vậy đó nếu 1 trong 2 thằng đó xuất hiện chữ HOÁ 6; HOÁ 7 thì nó lượm liền và hiện lên thông báo "Làm dệch gì có môn...." của anh Cò già rồi xông nó kết thúc câu lệnh đó luôn vậy đó
