Nhập dữ liệu trong cột vào form

[thanhnhanubnd]

Các bạn cho mình hỏi :

Hiện mình có dữ liệu trên các cột A,B,C.
Mình muốn hiện dữ liệu tất cả này trong 1 form nào đó , điều này có thể thực hiện được không vậy.

 

[sealand]

Bạn sử dụng ListView trên diễn đàn hướng dẫn nhiều vừa mỹ quan vừa tiện hoặc dùng listbox. Cả 2 loại trên hỗ trợ không phải 1 mà có thể nhiều cột. Dùng listbox thì dễ hơn.

Mình gửi bạn ví dụ về Listbox

Nhờ Mod xóa giúp bài này vì File lỗi

Mình quên chưa có nút mở form, giờ hiệu chính bạn tham khảo nhé.
Bạn có thể tham khảo ở đây và ở đây

 

[thanhnhanubnd]

Rất hay bạn ơi ! Mình hỏi thêm về cách sử dụng :
- Soure row ma_kh của bạn là sao? chỉ mình cách làm với.
- Nếu cột A là 1 dạng file Hyperlink thì khi vào listbox còn hyperlink được hay không?

 

[yeudoi]

- Nếu cột A là 1 dạng file Hyperlink thì khi vào listbox còn hyperlink được hay không?

Khi vào form nó sẽ không còn hyperlink mà chỉ có thể liên kết bằng câu lệnh khi chọn listbox.

 

[sealand]

Soure row: Là thuộc tính của listbox để khai báo nguồn dữ liệu nạp vào Listbox
ma_kh: là tên vùng dữ liệu do mình đặt, bạn vào hộp name chọn ma_kh nó sẽ chuyển đến vùng có tên ma_kh.
Bạn có thể chỉ định trực tiếp không cần qua tên, nhưng dùng tên tiện hơn. Ơ đây là ví dụ còn thực tế dùng name động đưa chuẩn xác số dòng lên Form.
Trên Listbox khi chọn sẽ xác định được dòng dữ liệu trên sheet, khi đó tadùng lệnh để thực hiện link của dòng đó là được
Chú ý: Một số thuộc tính của Listbox:
-Bound column: lấy giá trị ở cột thưa mấy khi chọn.
-Column count: Có mấy cột.
-Column head: có dòng tiêu đề không
-Column widths:Chiều rộng từng cột

 

[thanhnhanubnd]

1. Chỉ dùm mình cách tạo soure row : đặt tên và không cần đặt tên ( cách tạo name)
2. Cách link với các dòng lệnh này?
Mình đã thử tạo 4 cột nhưng không đưa vào form được bạn ơi.Thank

Cám ơn rất nhiều.

 

[sealand]

Mình đưa 2 cách nạp dữ liệu cho listbox bạn tham khảo
Bạn mở code của userform1 ra mình đã viết mã khi chọn listbox sẽ mở link (Mình đã Mark toàn bộ vì đoạn code này viết cho file Quan ly TM mới chạy được) để bạn tham khảo
(Lưu ý: Đoạn mã nay mình viết chưa có điều kiện thử vì phải ráp vào file Quan ly TM mà bạn đưa lên diễn đàn bữa trước, có vấn đề gì thì sửa sau nhé)

 

[thanhnhanubnd]

Có thể giúp mình tạo 1 file mới gồm 4 cột : TT, Tên, Ngày sinh; CƠ quan. và hướng dẫn cách làm cụ thể được không?
Thank

 

[sealand]

Mình chưa hiểu ý bạn, nếu chỉ tạo 1 sheet có 4 cột như vây thì quá đơn giản đối với bạn phải không. Còn load dữ liệu thì cũng đã có 2 cách rồi. Bạn làm đi và điền dữ liệu mẫu vào và tạo Form xem DL. Mắc đâu chúng ta cùng sử lý, còn mình lập thì vẫn chưa doán được ý bao ra sao.
Thú thật, để bạn quen rồi mình cùng bạn dùng listview mới hay (Để xem dữ liệu đa số dùng Listview) nhưng nó phức tạp 1 chút.

 

[thanhnhanubnd]

Minh làm được rồi. CÁm ơn nhiều. Có 3 việc cần bạn giúp.
1. Trong mỗi hàng là 1 Hyper link đến 1 file; làm cách nào khi liệt kê mình click vào các hàng trong list box thì hyperlink được.
2. Muốn kẻ hàng trong Listbox mình làm sao?
3. Mình dùng hàm để lọc dữ liệu :
- Toổng cộng 10 hàng.
- sau khi tìm còn 5 hàng.
Nhưng listbox không cập nhật ( vẫn hiện 10 hàng).

 

[sealand]

1/Việc link file đã có trong tệp trước bạn xem lại
2/Không kẻ được dòngb cột
3/Việc hiện số lọc phải xóa và nap lại theo ĐK.

 

[controlufo]

lỡ hỏi lun
các mẫu design Userform của các bạn trên diễn đàn không thấy chức năng sửa xoá 1 record...chỉ thấy tạo mới thôi.....ví dụ:
stt ten họ ngàysinh nghề nghiệp

01 An le 12/12/79 nv vănphòng
02 Bình le 12/12/79 nv vănphòng
03 Trang le 12/12/79 nv vănphòng
04 Thanh le 12/12/79 nv vănphòng

đây là code tạo mới đặt tại form nhập liệu 1 record gồm 1 nút nutxuly,5texbox:stt,họ,tên,ngaysinh,nghenghiep

Private Sub nutxuly_Click()
Dim i
'Sheet1.Select
Sheets("tensheet").Select
i = Range("A1").Value
Range("A5").Select
ActiveCell.Offset(i, 0).Value = Me.stt.Value
ActiveCell.Offset(i, 1).Value = Me.ho.Value
ActiveCell.Offset(i, 2).Value = Me.ten.Value
ActiveCell.Offset(i, 3).Value = Me.ngaysinh.Value
ActiveCell.Offset(i, 4).Value = Me.nghenghiep.Value
Range("A1").Value = Range("A1").Value + 1
End Sub

xin cho biết làm sao để hiện stt thứ 3 lên form để chỉnh sửa,xoá

xin cám ơn trước

 

[sealand]

Mình gửi bạn tham khảo việc ẩn Excel thôi vì file còn dở dang lung tung cả. Người nào thì Pass là tên người ấy, riêng Việt là Admin có thể vào Excel

 

[sealand]

Mình gửi lại file nhé

 

[thanhnhanubnd]

Không chạy được bạn ơi. List Box mình làm được rồi, chỉ mình listview nhé bạn.

 

[sealand]

Mình đành phải làm vào file của mình vì file của bạn có liên quan tới add-in mình không có.
Hôm nay mình thử Listview bạn so sánh.Trong file mình áp dụng phương pháp nạp dữ liệu bình thường chứ không thông qua Name và mảng như anh Duyệt và mọi người hướng dẫn, việc này tiên cho việc nghiên cứu và chủ động lọc đưa dữ liệu theo ý muốn lên Listview.Sau này ta bổ xung các điều khiển lọc lên form là đạt mục đích trước mắt.
Mình sẵn sàng giúp bạn nhưng có 2 cái hạn chế là: Hiểu biêt và thời gian, có gì mong bạn thông cảm nhé. Dần dần, với trợ giúp của anh em bạn sẽ làm được thôi.
(Tệp mình gửi không chạy bạn phải cho mình biết các thông báo cụ thể mình mới kiểm tra đwơc. Các máy cơ quan mình mở thử đều đwợc)