Hỗ trợ code tìm kiếm và trả về dữ liệu trên Form

thanhcong010890 · 11/9/21

xin chào các a.c trong diễn đàn ah. e muốn nhờ các a.c giúp cho 1 đoạn code trong form nhập liệu ah. E ko biết làm thể nào để xuất dữ liệu ngược lại từ excel trở lại form nhập liệu và sửa dữ liệu ah. Nhờ các a.c trong diễn đàn giúp e với ah. thanks

snow25 · 11/9/21

thanhcong010890 đã viết:
xin chào các a.c trong diễn đàn ah. e muốn nhờ các a.c giúp cho 1 đoạn code trong form nhập liệu ah. E ko biết làm thể nào để xuất dữ liệu ngược lại từ excel trở lại form nhập liệu và sửa dữ liệu ah. Nhờ các a.c trong diễn đàn giúp e với ah. thanks

Bạn muốn tìm kiếm tương đối hay tuyệt đối.

thanhcong010890 · 11/9/21

e muốn tìm kiếm tuyệt đối ah. Nếu gõ đúng ID thì sẽ ra thông tin theo các trường dữ liệu trên form. còn gõ sai thì khi tìm kiếm sẽ ra thông báo là ko có trong dữ liệu ah. e cảm ơn nhiều

snow25 · 11/9/21

thanhcong010890 đã viết:
e muốn tìm kiếm tuyệt đối ah. Nếu gõ đúng ID thì sẽ ra thông tin theo các trường dữ liệu trên form. còn gõ sai thì khi tìm kiếm sẽ ra thông báo là ko có trong dữ liệu ah. e cảm ơn nhiều

Bạn thử code nhé.

Mã:

Private Sub cmd_timkiem_3_Click()
    Dim i As Long, lr As Long, arr, dk As String
    dk = Txt_id_1.Value
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A2: E" & lr).Value
        For i = 1 To UBound(arr)
            If dk = CStr(arr(i, 1)) Then
               Txt_hoten_2.Value = arr(i, 2)
               Txt_tuoi.Value = arr(i, 3)
               txt_diachi_4.Value = arr(i, 5)
               cmb_gioi.Value = arr(i, 4)
               Exit Sub
            End If
        Next i
   End With
               Txt_hoten_2.Value = Empty
               Txt_tuoi.Value = Empty
               txt_diachi_4.Value = Empty
               cmb_gioi.Value = Empty
      MsgBox "khong tim thay"
End Sub

thanhcong010890 · 11/9/21

snow25 đã viết:

Bạn thử code nhé.

Mã:

Private Sub cmd_timkiem_3_Click()
    Dim i As Long, lr As Long, arr, dk As String
    dk = Txt_id_1.Value
    With Sheets("sheet1")
        lr = .Range("A" & Rows.Count).End(xlUp).Row
        arr = .Range("A2: E" & lr).Value
        For i = 1 To UBound(arr)
            If dk = CStr(arr(i, 1)) Then
               Txt_hoten_2.Value = arr(i, 2)
               Txt_tuoi.Value = arr(i, 3)
               txt_diachi_4.Value = arr(i, 5)
               cmb_gioi.Value = arr(i, 4)
               Exit Sub
            End If
        Next i
   End With
               Txt_hoten_2.Value = Empty
               Txt_tuoi.Value = Empty
               txt_diachi_4.Value = Empty
               cmb_gioi.Value = Empty
      MsgBox "khong tim thay"
End Sub

thanks a nhiều. a giúp e nốt cái cập nhật dữ liệu với ah. vì nếu e dùng nhập liệu thì nó lại thành 2 người có cùng ID nhưng khác thông tin. e cảm ơn ah

HUONGHCKT · 11/9/21

thanhcong010890 đã viết:
xin chào các a.c trong diễn đàn ah. e muốn nhờ các a.c giúp cho 1 đoạn code trong form nhập liệu ah. E ko biết làm thể nào để xuất dữ liệu ngược lại từ excel trở lại form nhập liệu và sửa dữ liệu ah. Nhờ các a.c trong diễn đàn giúp e với ah. thanks

Của bạn đây.Hy vọng là đúng ý.
Trong fileddinhs kèm đã có đủ các nút : Tim kiếm, Sửa, xóa, thoát và đầy đủ code.
nếu có thể bạn thêm vào Textbox dia chi một kiểu tìm kiếm như kiểu google thì tốt quá. Máy tôi không có danh mục Xã, huyện tỉnh toàn quốc nên không làm được. tải về thì tôi nhác.

thanhcong010890 · 11/9/21

HUONGHCKT đã viết:
Của bạn đây.Hy vọng là đúng ý.
Trong fileddinhs kèm đã có đủ các nút : Tim kiếm, Sửa, xóa, thoát và đầy đủ code.
nếu có thể bạn thêm vào Textbox dia chi một kiểu tìm kiếm như kiểu google thì tốt quá. Máy tôi không có danh mục Xã, huyện tỉnh toàn quốc nên không làm được. tải về thì tôi nhác.

many thanks. còn hơn cả mong đợi của mình rất nhiều rồi ah

HUONGHCKT · 11/9/21

thanhcong010890 đã viết:
many thanks. còn hơn cả mong đợi của mình rất nhiều rồi ah

Nếu vẫn còn quan tâm. thì của bạn đây mình thiết kế lại form nhập liệu.
sửa Textbox tuổi thành Ngày tháng năm sinh:
Thêm cho bạn Textbox Sô SMTND (CCCD) và Combobox dân tộc- 2 control này chưa sửa code nhập vào bảng tính. Bạn sửa được mà.
Thêm 1 form để tìm kiếm và nhập địa chỉ chính xác đầy đủ. đã thêm dữ liệu Xã huyện, tỉnh mới nhất, và dân tộc (đã gắn vào Data validaition)
Sửa lại code nhập nếu thiếu dữ liệu thì vẫn còn nguyên để nhập (không xóa), chỉ xóa sau khi đã nhập.
Xem ý bạn thế nào? có gì tính tiếp.

Hamedanger · 12/9/21

thanhcong010890 đã viết:
thanks a nhiều. a giúp e nốt cái cập nhật dữ liệu với ah. vì nếu e dùng nhập liệu thì nó lại thành 2 người có cùng ID nhưng khác thông tin. e cảm ơn ah

Bạn tham khảo thêm 1 cách ; cách này hợp nhật hai nút [NHẬP] và [CẬP NHẬT] thành 1 nhé

thanhcong010890 đã viết:
Private Sub cmd_nhap_1_Click()
Dim sRng As Range, fRng As Range, findStr As String, ArrCtrl As Variant, A
Dim I As Long, endRow As Long, iRow As Long
endRow = Sheet1.Range("A1048576").End(xlUp).Row
Set sRng = Sheet1.Range("A2:E" & endRow)
ArrCtrl = Array(Me.Txt_id_1, Me.Txt_hoten_2, Me.Txt_tuoi, Me.cmb_gioi, Me.txt_diachi_4)
findStr = Trim(CStr(Me.Txt_id_1.Value))
Set fRng = sRng.Find(findStr, , xlFormulas, xlWhole)
If findStr = vbNullString Then
MsgBox "Ban chua nhap ID"
Else
If Not fRng Is Nothing Then
iRow = fRng.Row
A = MsgBox("Ma nay da ton tai, ban co muon ghi de khong?", vbYesNo)
If A = vbNo Then Exit Sub
Else
iRow = endRow + 1
End If
For I = LBound(ArrCtrl, 1) To UBound(ArrCtrl, 1)
Sheet1.Cells(iRow, I + 1) = ArrCtrl(I).Value
Next
End If
End Sub

Bài đã được tự động gộp: 12/9/21

Tiện đây cho mình hỏi ngu anh chị em diễn đạt chút , Cái chức năng quote của diễn đàn dùng kiểu gì để code thụt thò được nhỉ?

SA_DQ · 12/9/21

Hamedanger đã viết:
Tiện đây cho mình hỏi ngu anh chị em diễn đạt chút , Cái chức năng quote của diễn đàn dùng kiểu gì để code thụt thò được nhỉ?

(1) Bạn xài thẻ [PHP ] . . . . [/php] hay [ Code]. . . .[/code] có trên diễn đàn

(2) Bạn tham khảo thêm file này

thanhcong010890 · 12/9/21

HUONGHCKT đã viết:
Nếu vẫn còn quan tâm. thì của bạn đây mình thiết kế lại form nhập liệu.
sửa Textbox tuổi thành Ngày tháng năm sinh:
Thêm cho bạn Textbox Sô SMTND (CCCD) và Combobox dân tộc- 2 control này chưa sửa code nhập vào bảng tính. Bạn sửa được mà.
Thêm 1 form để tìm kiếm và nhập địa chỉ chính xác đầy đủ. đã thêm dữ liệu Xã huyện, tỉnh mới nhất, và dân tộc (đã gắn vào Data validaition)
Sửa lại code nhập nếu thiếu dữ liệu thì vẫn còn nguyên để nhập (không xóa), chỉ xóa sau khi đã nhập.
Xem ý bạn thế nào? có gì tính tiếp.

thanks b. cái cập nhật địa chỉ của b rất hay này. mình nhập hay bị lỗi phần đó

Bài đã được tự động gộp: 12/9/21

Hamedanger đã viết:
Bạn tham khảo thêm 1 cách ; cách này hợp nhật hai nút [NHẬP] và [CẬP NHẬT] thành 1 nhé

Bài đã được tự động gộp: 12/9/21

Tiện đây cho mình hỏi ngu anh chị em diễn đạt chút , Cái chức năng quote của diễn đàn dùng kiểu gì để code thụt thò được nhỉ?

đoạn code này khá hay. cơ mà khi mình chạy thử thì nó lại ghi thành 1 dòng dữ liệu mới

HUONGHCKT · 12/9/21

thanhcong010890 đã viết:
thanks b. cái cập nhật địa chỉ của b rất hay này. mình nhập hay bị lỗi phần đó

nếu bạn vẫn còn quan tâm. thì trong file đính kèm tôi đã sửa lại code để khi sửa thì không nhập được và một số lỗi khác.
Form đã hoàn chỉnh code sẵn sàng cho nhập liệu.

thanhcong010890 · 12/9/21

HUONGHCKT đã viết:
nếu bạn vẫn còn quan tâm. thì trong file đính kèm tôi đã sửa lại code để khi sửa thì không nhập được và một số lỗi khác.
Form đã hoàn chỉnh code sẵn sàng cho nhập liệu.

cảm ơn bạn rất nhiều

thanhcong010890 · 13/9/21

HUONGHCKT đã viết:
nếu bạn vẫn còn quan tâm. thì trong file đính kèm tôi đã sửa lại code để khi sửa thì không nhập được và một số lỗi khác.
Form đã hoàn chỉnh code sẵn sàng cho nhập liệu.

Chào bạn. mình lại có thêm vấn đề phát sinh mong được bạn giúp cho a. Mình Khai báo thêm biến và có merge ô lại với nhau. Bây giờ các thao tác đều không được. Bạn có thể sửa giúp mình được không ah. Cảm ơn bạn rất nhiều

Cá ngừ F1 · 13/9/21

Chào bạn,
Tiêu đề của bạn vi phạm nội quy. Nội dung chung chung, tôi có sửa lại cho bạn
Nội dung bài viết cũng nhiều chữ viết tắt.
Lẽ ra tôi sẽ di vào box vi phạm nội quy. Nhưng bạn là thành viên mới, tôi nhắc nhở lần này, lần sau lưu ý nhé.
Cảm ơn bạn.

thanhcong010890 · 13/9/21

Cá ngừ F1 đã viết:
Chào bạn,
Tiêu đề của bạn vi phạm nội quy. Nội dung chung chung, tôi có sửa lại cho bạn
Nội dung bài viết cũng nhiều chữ viết tắt.
Lẽ ra tôi sẽ di vào box vi phạm nội quy. Nhưng bạn là thành viên mới, tôi nhắc nhở lần này, lần sau lưu ý nhé.
Cảm ơn bạn.

Cảm ơn bạn Cá ngừ F1. Lần sau em sẽ chú ý để không vi phạm quy định của diễn đàn ạ. Chúc bạn mạnh khỏe. Thân

SA_DQ · 13/9/21

thanhcong010890 đã viết:
. . . . . Mình Khai báo thêm biến và có merge ô lại với nhau. Bây giờ các thao tác đều không được. Bạn có thể sửa giúp mình được không ah. Cảm ơn bạn rất nhiều

PHP:

dong_cuoi = Sh.Cells(Rows.Count, "B").End(xlUp).Row
    If dong_cuoi < 2 Then dong_cuoi = 2

HUONGHCKT · 13/9/21

thanhcong010890 đã viết:
Chào bạn. mình lại có thêm vấn đề phát sinh mong được bạn giúp cho a. Mình Khai báo thêm biến và có merge ô lại với nhau. Bây giờ các thao tác đều không được. Bạn có thể sửa giúp mình được không ah. Cảm ơn bạn rất nhiều

Của bạn đây. Tôi đã sửa lại code rồi.
Thêm đoạn If dong_cuoi=1 then dong_cuoi =2 để loại trừ trường hợp merge ô tiêu đề (nếu dòng tiêu đề là 1, nếu là 2 thì thay đổi 2 chỗ bôi đen tương ứng nhé.
Thêm một đoạn để bạn không thể nhập trung mã số ID (nếu nhập từ form)

thanhcong010890 · 13/9/21

HUONGHCKT đã viết:
Của bạn đây. Tôi đã sửa lại code rồi.
Thêm đoạn If dong_cuoi=1 then dong_cuoi =2 để loại trừ trường hợp merge ô tiêu đề (nếu dòng tiêu đề là 1, nếu là 2 thì thay đổi 2 chỗ bôi đen tương ứng nhé.
Thêm một đoạn để bạn không thể nhập trung mã số ID (nếu nhập từ form)

Cảm ơn bạn HUONGHCKT rất nhiều ạ

Bài đã được tự động gộp: 13/9/21

SA_DQ đã viết:
PHP:

dong_cuoi = Sh.Cells(Rows.Count, "B").End(xlUp).Row If dong_cuoi < 2 Then dong_cuoi = 2

Cảm ơn anh SA_DQ rất nhiều ạ

HUONGHCKT · 13/9/21

thanhcong010890 đã viết:
Cảm ơn bạn HUONGHCKT rất nhiều ạ

Bài đã được tự động gộp: 13/9/21

Cảm ơn anh SA_DQ rất nhiều ạ

Cảm ơn anh SA_DQ rất nhiều.

Hỗ trợ code tìm kiếm và trả về dữ liệu trên Form

Thành viên mới

File đính kèm

Thành viên gạo cội

Thành viên mới

Thành viên gạo cội

Thành viên mới

Zalo 0986997214

File đính kèm

Thành viên mới

Zalo 0986997214

File đính kèm

Thành viên chính thức

/(hông là gì!

File đính kèm

Thành viên mới

Zalo 0986997214

File đính kèm

Thành viên mới

Thành viên mới

File đính kèm

( ͡° ͜ʖ ͡°)

Thành viên mới

/(hông là gì!

File đính kèm

Zalo 0986997214

File đính kèm

Thành viên mới

Zalo 0986997214