Thuyanhanoi
Thành viên thường trực
- Tham gia
- 15/10/12
- Bài viết
- 304
- Được thích
- 154
- Nghề nghiệp
- Nhân viên
- Em đang tập tành viết code để lọc dữ liệu đơn giản như sau:
Nếu lấy thông tin vào các ô của excel thì em đã làm được. Em thử thí nghiệm lấy các thông tin này vào các khung Textbox thì không được. Các Anh chị và các bạn cho em hỏi là có cách gì để lấy các thông tin ở sheet Danh_sach vào các khung Textbox tương ứng bên sheet VAO_KHUNG không ạ?. Nếu làm được thì em phải thay đổi code thế nào?. Mong các anh chị lấy giúp thông tin vào các khung Textbox trong file đính kèm giùm em!. Em cảm ơn nhiều!.
Mã:
Public Sub CHUYEN_VAO_TEXTBOX()Dim Ma As String, Ten As String, Gtinh As String, Ngay As Date, TEXTBOX5 As Object, TEXTBOX6 As Object
Dim Nsinh As String, DToc As String, TGiao As String, Trdo As String, Hokhau As String, TEXTBOX7 As Object
Dim sArr(), I As Long, TEXTBOX1 As Object, TEXTBOX2 As Object, TEXTBOX3 As Object, TEXTBOX4 As Object
On Error Resume Next
Ma = Sheets("VAO_KHUNG").[AF2].Value
With Sheets("Danh_Sach")
sArr = .Range(.[A6], .[A65000].End(xlUp)).Resize(, 31).Value
End With
For I = 1 To UBound(sArr, 1)
If sArr(I, 2) = Ma Then
Ten = sArr(I, 3) & " " & sArr(I, 4)
Ngay = sArr(I, 5)
Nsinh = sArr(I, 6)
Gtinh = sArr(I, 7)
DToc = sArr(I, 8)
TGiao = sArr(I, 9)
Trdo = sArr(I, 10)
Hokhau = sArr(I, 13)
Exit For
End If
Next I
With Sheets("VAO_KHUNG")
.[E15].Value = Ten
.[E16].Value = Ngay
.[E17].Value = Gtinh
.[E18].Value = Nsinh
' ----------- thi nghiem: cho vao khung textbox ------------
.TEXTBOX1.Text = Ten
.TEXTBOX2.Value = Ngay
.TEXTBOX3.Value = Nsinh
.TEXTBOX4.Value = Gtinh
.TEXTBOX5.Value = DToc
.TEXTBOX6.Value = TGiao
.TEXTBOX7.Value = Hokhau
.TEXTBOX8.Value = Trdo '-------- khong duoc.. hic hic
End With
End Sub
Lần chỉnh sửa cuối:
