giúp mình lấy giữ liệu từ một sheet vào userform với (1 người xem)

[kuvi1324]

cho mình hỏi làm sao để lấy một dòng dữ liệu từ một sheet vào userform
ví dụ:
một dòng trong sheet ghi thông tin một người như: tên, năm sinh, địa chỉ.
làm sao để tạo 01 button trong userform mà chỉ cần điền 01 thông tin trong cột (tên người đó chẳng hạn) thì các textbox khác trong userform cập nhật luôn năm sinh, địa chỉ vào trong đó.
mình cảm ơn trước.

 

[viehoai]

cho mình hỏi làm sao để lấy một dòng dữ liệu từ một sheet vào userform
ví dụ:
một dòng trong sheet ghi thông tin một người như: tên, năm sinh, địa chỉ.
làm sao để tạo 01 button trong userform mà chỉ cần điền 01 thông tin trong cột (tên người đó chẳng hạn) thì các textbox khác trong userform cập nhật luôn năm sinh, địa chỉ vào trong đó.
mình cảm ơn trước.

Bạn đưa file lên chứ nói không không vậy biết bao giờ mới có kết quả

 

[kuvi1324]

View attachment CẬp nhật.xls đó ban, giờ sao thêm 1 nút trong userform cập nhật mà khi điềm tên khách hàng thì hiện ra mấy thông tin còn lại trong các text box khác

 

[viehoai]

View attachment 102535 đó ban, giờ sao thêm 1 nút trong userform cập nhật mà khi điềm tên khách hàng thì hiện ra mấy thông tin còn lại trong các text box khác

Không hiểu hết ý bạn, mình làm như thế này rồi bạn tự làm lại đúng ý mình nhé

 

[kuvi1324]

tức là khi điền tên Nguyễn Tứ Nhị Tùng vào ô tên khách hàng và bấm nút mới tạo (nút truy xuất chẳng hạn) thì các ô Loại khách hàng, số tài khoản, số tiền gửi, ngày gửi của người này cũng hiện lên

 

[dhn46]

Mình hướng dẫn bạn cách đi đơn giản cho các bài toán dạng này:
* Đề bài đặt ra là: tìm các thong tin điền vào Textbox khi có 1 key truy xuất
Vậy cái mấu chốt ở đây là Key, cách tìm ra vị trí key này trên sheet thì bạn có thể dùng phương thức Find(..)

Dim fRng As Range
Set fRng = Sheet1.Range("C6:C100").Find(Me.txtten.Value, LookIn:=xlFormulas, Lookat:=xlWhole)

Sau đó bạn tiến hành kiểm tra xem Key mà bạn tìm có tồn tại hay không? Nếu tồn tại thì cho chạy cái gì đó. Trường hợp của bạn các dữ lieu cần điền nằm ở 1 vị trí tương đối với key, trong sheet dùng hàm Offset và trong VBA cũng dùng Offset
=> Vậy câu lệnh ở đây tiếp theo sẽ là

If Not fRng Is Nothing Then
    Me.txtso = fRng.Offset(, 2)
End If

Bạn chỉ ra các vị trí cho các textbox tiếp theo. Cuối cùng bạn kết hợp các Code cho vào 1 sự kiện để thực thi lệnh. Nhìn File bạn làm "đoán" bạn đã biết căn bản chút it, hy vọng giúp bạn có hướng đi trong các dạng tương tự

 

[kuvi1324]

um um thank bạn nhiều lắm

 

[viehoai]

tức là khi điền tên Nguyễn Tứ Nhị Tùng vào ô tên khách hàng và bấm nút mới tạo (nút truy xuất chẳng hạn) thì các ô Loại khách hàng, số tài khoản, số tiền gửi, ngày gửi của người này cũng hiện lên

Như mình đã nói trên rồi, bạn dự vào cái mình đã làm thì bạn làm được mà
Nhưng đánh đúng tên cũng vất vã đấy nha. Theo mình là listbox để list lên danh sách để kích chọn chuẩn hơn

 

[kuvi1324]

mình làm được rồi
nhưng lại phát sinh: nếu hai người cùng tên khác năm sinh, giờ làm sao tìm kiếm theo tên và năm sinh hả bạn

 

[kuvi1324]

mình làm được rồi
nhưng lại phát sinh: nếu hai người cùng tên khác năm sinh, giờ làm sao tìm kiếm theo tên và năm sinh hả bạn

sorry mạng lag chứ ko phải mình spam

 

[dhn46]

mình làm được rồi
nhưng lại phát sinh: nếu hai người cùng tên khác năm sinh, giờ làm sao tìm kiếm theo tên và năm sinh hả bạn

Mình có góp ý với bạn trong việc xây dựng cơ sở dữ liệu. Nếu bạn cung cấp cho mỗi người 1 mã số thì việc tìm kiếm sẽ không bị xảy ra trường hợp trên và việc tìm kiếm, quy hoạch trở nên khoa học hơn. Nếu bạn cứ đi theo con đường này (lấy tên làm key tìm kiếm) sẽ phát sinh ra nhiều vấn đê: đánh không đúng tên, gặp trùng ở nhiều cột....., như vậy thì sẽ không kiểm soát được và luôn phải chạy theo lỗi. Bạn hãy thử chèn them 1 cột Mã số vào và thử nghiệm để thấy hiệu quả của nó mang lại!