Tạo nút nhấn truy xuất dữ liệu của 1 sheet

[kp20mar]

Mình tao 1 file dữ liệu, trong đó sheet đầu tiên mình tạo các button, để khi nhấn nó sẽ chạy đến các sheet tương ứng.
Tuy nhiên, mình mún thay vì nó mở ra các sheet tương ưng, thì nó chỉ cần lấy dữ liệu của sheet đó, xuất ra cho mình ngay bên dưới button. Mà trong file của mình, thì nó sẽ lấy dữ liệu là các câu trong colum Question. Không biết yêu cầu của mình làm được k nhỉ? Mọi người xem file và giúp minh với.Thanks mọi người!

 

[viehoai]

Mình tao 1 file dữ liệu, trong đó sheet đầu tiên mình tạo các button, để khi nhấn nó sẽ chạy đến các sheet tương ứng.
Tuy nhiên, mình mún thay vì nó mở ra các sheet tương ưng, thì nó chỉ cần lấy dữ liệu của sheet đó, xuất ra cho mình ngay bên dưới button. Mà trong file của mình, thì nó sẽ lấy dữ liệu là các câu trong colum Question. Không biết yêu cầu của mình làm được k nhỉ? Mọi người xem file và giúp minh với.Thanks mọi người!

Nếu vậy như thế này có ngon hơn không?

 

[kp20mar]

cám ơn bạn nhiều lắm! cách của bạn làm hay hơn của mình nhìu. Nhưng bạn có thể hướng dẩn mình cách làm k? Vì minh còn nhìu câu hỏi nữa muốn thêm vào. Và còn 1 cái nữa đó là mình cho nó xuất hiện câu hỏi với câu trả lời lun được k bạn?

 

[viehoai]

cám ơn bạn nhiều lắm! cách của bạn làm hay hơn của mình nhìu. Nhưng bạn có thể hướng dẩn mình cách làm k? Vì minh còn nhìu câu hỏi nữa muốn thêm vào. Và còn 1 cái nữa đó là mình cho nó xuất hiện câu hỏi với câu trả lời lun được k bạn?

1. Bạn cứ thêm Sheet, thêm câu hỏi thỏa mái mà không ảnh hưởng gì
2. Bạn muốn xuất cả câu trả lời thì bạn nhấn Alt+F11 và sửa dòng code

  Sh.Range("A5:A" & Sh.[A65500].End(3).Row).Copy Range("A10")

Thành

  Sh.Range("A5:B" & Sh.[A65500].End(3).Row).Copy Range("A10")

 

[sealand]

Bạn cũng có thể áp dụng phương án như sau.
1/Chọn Combo để chọn nhóm câu hỏi.
2/Chọn Danh sách để có phương án

Như vậy, đỡ phải thêm nhiều nút điều khiển và chạy đến từng sheet. Cụ thể trong file ví dụ bạn tham khảo xem.

 

[kp20mar]

Thanks bạn seeland đã hỗ trợ mình. Mình rất thích cách làm của bạn. Tuy nhiên, mình muốn thêm sheet câu hỏi thì nó chỉ nhận câu hỏi, còn câu trả lời thì nó k load lên được. Bạn xem giúp mình nhé!
Ngoài ra mình muốn tùy chỉnh vị trí các dòng cột ( mình insert thêm dòng) thì nó chạy lỗi. Không biết phải làm sao nhỉ? Với lại, ở chỗ combobox, mình muốn default nó sẽ là trống, ghi đại loại như " Chọn Category câu hỏi", rồi khi uẻ chọn category nào thì nó mở xổ câu hỏi ra.
Bạn có thể giải thích code cho mình hiểu k ? Vì mình muốn design cái file này thành 1 dạng form để cho user select là được. Thanks ban nhìu

 

[sealand]

Banj tham khảo file này có tính tùy biến cao hơn, có thể thêm bớt dòng và chỉnh sửa . Riêng thêm sheet phải thoát ra và load lại mới có giá trị (Mình lấy file của VietHoai nên vân giữ nguyên vậy)

 

[kp20mar]

seeland ơi, theo như code của bạn thì mình thoải mải thêm dòng, còn cột thì k dc đúng hông bạn? Minh thử sửa trong code các column A thành B và insert thêm cột A, nhưng k thành công. Và mình đổi dòng hiển thị câu hỏi bắt đầu từ A14, nhưng nó hiển thị trùng nhau. Có cách nào hoàn thiện nó k bạn? Ngoài ra, chỗ combobox, mình muốn default nó k select cái nào hết, để ở bên dưới nó k hiển thị câu hỏi, cho đến khi mình select, k bít được k bạn nhỉ? Bạn xem giúp mình nhé. Thanks bạn rất nhiều!
@ All: ai làm được cũng xin giúp mình lun nhé mọi người. Cám ơn mọi người nhiều!

 

[sealand]

Mấu chốt là ở chỗ này:

If Not Sh.Columns("A").Find(Target.Value) Is Nothing Then _
Range("Dan") = Sh.Columns("A").Find(Target.Value).Offset(, 1)

1/Các sheet phải có cấu trúc giống nhau thì code mới tìm được chính xác
2/If Not Sh.Columns("A").Find(Target.Value) Is Nothing Then _
Range("Dan") = Sh.Columns("A").Find(Target.Value).Offset(, 1)
Cái chữ A này chính là cột của câu hỏi. Nếu bạn để ở cột B thì phải sửa thành B
Cái số 1 màu đỏ là chỉ ra rằng cột đáp án sau cột câu hỏi 1 cột. Nếu giờ cách 2,3 cột thì sửa lại

 

[kp20mar]

Thanks seeland rất nhiều, minh đã hiệu chỉnh được theo ý mính rồi. Còn 1 vấn đề nữa thôi. Thay vì mặc định trong combo box nó sẽ hiện thị tên sheet mình muốn truy xuất dữ liệu, mình mún nó hiện tiêu đề, VD: "select category", rồi khi User xổ combo box xuống thì nó mới có tên các sheet.

 

[kp20mar]

Àh, seeland cho mình hỏi, seeland có giới hạn chữ sẽ được hiển thị trong các bõ câu hỏi và câu trả lời k? Vì mình thêm câu hỏi và câu trả lời vào sheet, nếu nó dài quá thì khi mình select câu hỏi nó sẽ chỉ hiển thị hoặc câu hỏi, hoặc câu trả lời. Nếu mình bớt dần các kí tự thì lại được.