Private Sub CmdTim_Click()
Dim StrC As String: Dim Arr()
Dim Rws As Long, J As Long, W As Integer, Col As Byte, DD As Byte '1'
With Sheets("CSDL")
Arr() = .[b2].CurrentRegion.Offset(1).Value
ReDim dArr(1 To 99, 1 To 3)
.[aa2].Resize(99, 3).Value = dArr()
End With
If Left(Me!cbHT.Text, 1) = "T" Then
StrC = " " & Me!tbHT.Text
ElseIf Left(Me!cbHT.Text, 1) = "H" Then
StrC = Me!tbHT.Text & " "
End If
DD = Len(StrC) '5'
For J = 1 To UBound(Arr())
9 If (Left(Me!cbHT.Text, 1) = "T" And Right(Arr(J, 2), DD) = StrC) Or _
(Left(Me!cbHT.Text, 1) = "H" And Left(Arr(J, 2), DD) = StrC) Then
W = W + 1
For Col = 1 To 3
dArr(W, Col) = Arr(J, Col)
Next Col
End If
Next J
If W Then
Sheets("CSDL").[aa2].Resize(W, 3).Value = dArr()
Else
MsgBox "Nothing"
End If
End Sub
Anh cho em hỏi, với form của anh nếu sau khi tìm kiếm rùi, biết vị trí của họ rùi, thấy sai ( sai chính tả, ...không muốn sửa trực tiếp trên dữ liệu nguồn), thì sửa lại họ, tên người đó thì làm ntn?
Giả sử em tìm họ "Bùi" list box hiện ra đó, em trượt xuống người cần sửa đó, em sửa thì làm thế nào để điền lại người đó đúng "STT" trong dữ liệu nguồn ( số thứ tự của em tương đương với ID trong bài viết của bác, nên STT em không sửa mà sửa họ tên và ID được
Lê Thị Mộng Thùy LMT00
Lã Thị Như Ý LNY31
Lê Thị Tâm Giang LTG00
Lại Thị Tâm Như LTN32
Lê Thị Thanh Ngân LTN33
Lê Thị Thanh Nhã LTN34
Lê Thị Thảo Nguyên LTN35
Lữ Ngọc Quỳnh Anh LQA00
Lương Ngô Quỳnh Anh LQA15
Lương Hoài Phương Vy LPV00
Lương Phát Tài LPT00
Lâm Đức LJF00
Lý Đình Đa LFF00
. . .. . . . .Nút sửa Đúng ý em rùi đấy ạ
Private Sub CmdLuuSC_Click()
Dim Rng As Range, sRng As Range
1 Set Rng = Range([C1], [C1].End(xlDown))
Set sRng = Rng.Find(Me!tbMa.Value, , xlFormulas, xlWhole)
3 If sRng Is Nothing Then
MsgBox "Nothing", , "GPE.COM Xin Thông Báo!"
5 Else
sRng.Offset(, -2).Value = Me!tbSTT.Value
7 sRng.Offset(, -1).Value = Me!tbTen.Text
sRng.Offset(, 1).Value = TxtToDate(Me!tbNS.Text)
9 Me!tbSTT.Value = 0: Me!tbTen.Text = ""
Me!tbNS.Text = "0": MsgBox "Luu Xong", , "GPE.COM Xin Chào!"
11 [AB2].CurrentRegion.Offset(1).ClearContents
End If
End SubPrivate Sub cmdSua_Click()
Dim MSG As String
Dim iRow As Long, i As Long, MyCtrls()
MSG = " Ban Có Chác Chán Sua Chúng Tù Không?" & Chr(13) & "Yes De Sua, No De Huy Bo"
If MsgBox(MSG, vbYesNo, "Thong bao!") = vbNo Then Exit Sub
If OptionButton1.Value Then
MyCtrls = Array(TBMaVV, TBTenVV)
Else
MyCtrls = Array(TBMaVV, TBTenVV, TBMST)
End If
Range("DM_VT1").Offset(LB.ListIndex, 6).Resize(1).Value = MyCtrls
MsgBox "SUA XONG DL", vbExclamation, "THEO DOI DIEM", , Range("DM_VT1").Offset(LB.ListIndex, 6).Row
End SubNó bị báo vàng ở dòng cuối, anh xem giúp em với
Bạn có thể giải thích rõ tên của các biến StrC, J, W, Rws, T, H. mình ko hiểu
