Nhờ các bạn giúp lọc thời khóa biểu gửi cho giao viên bằng SMS (2 người xem)

[milo123]

Chào các bạn .
Hiện tại mình trường mình cần chuyển thời khóa biểu qua tin nhắn cho giáo viên và sinh viên.
- Phần sinh viên thì mình đã lọc ra được rồi (tuy hơi thủ công mong các bạn chỉ giáo thêm)
- Riêng phần giáo viên thì chưa biết cách tổng hợp các nội dung như thế nào theo mẫu mình gửi kèm.
Mong các bạn giúp đỡ.
Cảm ơn nhiều

 

[SA_DQ]

Rất nản lòng với lỗi chính tả của bạn, nên dừng nữa chừng

Bạn xem tạm 3 giáo viên trong file & sửa lại hết lỗi chính tả đi mới được giúp tiếp

( Ông bà xưa có câu: " Sai 1 li đi 1 dặm" đó bạn!)

 

[milo123]

Bạn xem tạm 3 giáo viên trong file & sửa lại hết lỗi chính tả đi mới được giúp tiếp

( Ông bà xưa có câu: " Sai 1 li đi 1 dặm" đó bạn!)

Bạn ơi mình mở ra thì thấy ok rồi nhưng sao không thấy code nhỉ?
bạn hướng dẫn mình cách làm được k?

Thanks

 

[yeudoi]

Có code đấy chứ bạn nhưng để trong sheet đấy bạn bấm vào sheet là thấy

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [e1]) Is Nothing Then
Dim Sh As Worksheet, Rng As Range, sRng As Range
Const HC As String = ":": Const CF As String = ";"
Dim ShName As String, MyAdd As String, TKB As String
Dim Col As Byte, Jj As Byte, Dg As Long
Dim Kg As Boolean

For Col = 3 To 14 Step 2
For Jj = 1 To 2
ShName = Choose(Jj, "Sang", "Chieu")
Set Sh = ThisWorkbook.Worksheets(ShName)
Set Rng = Sh.Range(Sh.Cells(7, Col), Sh.Cells(65500, Col).End(xlUp))
Set sRng = Rng.Find(Target.Value, , xlFormulas, xlWhole, , , False)
If Not sRng Is Nothing Then
MyAdd = sRng.Address: Dg = sRng.Row
TKB = TKB & (Col + 1) \ 2 & Left(ShName, 1) & HC
Do
TKB = TKB & Sh.Cells(Dg, 1).Value & Sh.Cells(Dg + 2, 1).Value _
& sRng.Offset(, -1).Value & CF
Set sRng = Rng.FindNext(sRng)
Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
Else
Kg = True
End If
Next Jj
If Len(TKB) > 1 Then
If Kg Then Kg = False Else TKB = TKB & Chr(10)
End If
Next Col
Range([d3], [D65500].End(xlUp)).Find(Target.Value).Offset(, 1).Value = TKB

End If
End Sub

 

[milo123]

Bạn xem tạm 3 giáo viên trong file & sửa lại hết lỗi chính tả đi mới được giúp tiếp

( Ông bà xưa có câu: " Sai 1 li đi 1 dặm" đó bạn!)

Dear SA_DQ
Mình đã sửa lại mong bạn giúp đỡ
Cảm ơn nhiều

 

[milo123]

Chuyen TKB qua SMS

Dear SA_DQ
Mình đã sửa lại mong bạn giúp đỡ
Cảm ơn nhiều