Tạo form báo cáo bằng option button (2 người xem)

[nai_con]

Thân chào các bạn.
Như tiêu đề đã nói, Mình có 1 file Excel gồm có nhiều sheet. Chính vì nhiều sheet như vậy nên mình mới thiết kế 1 Form báo cáo, đã lấy được dữ liệu tuy nhiên không lấy được định dạng các báo cáo cần có. Chi tiết theo file dữ liệu đính kèm. Anh/Chị và các bạn hướng dẫn mình hoàn thành báo cáo với định dạng như các sheet đi kèm, nếu dùng Option button không được. Anh/Chị có phương án nào giải quyết hộ với nhé. Lưu ý sếp không thích đọc nhiều sheet mà chỉ muốn nhìn nội dung trong 1 sheet. Thanhks các bạn và mong được giúp đỡ.
https://www.mediafire.com/?vua4nmxzz9w12fz Do công ty không cho Up dữ liệu nên mình tạm thời đưa lên đây. Trân trọng!

 

[nai_con]

Nhờ các thầy, các bạn và các cao thủ giúp dùm. Thân.

 

[nai_con]

Một lần nữa xin nhờ các cao thủ cho phương án giải quyết dùm. Vì mình đang bế tắc và gà mờ trong việc này. Tks

 

[buithanhlong]

V/v gửi file và yêu cầu giúp đỡ

Chào nai_con như mail bạn gửi cho tôi và yêu cầu công việc của bạn, thì bạn cứ tạo 1 file với những số liệu giả định rồi gửi lên đây tôi và mọi người sẽ giúp cho,kiến thức của các cao thủ trên diễn đàn như nước sông Hằng, còn kiến thức của tôi chỉ như giọt nước, ta đưa lên đây trao đổi để mọi người trên diễn đàn có thể chỉ bảo thêm nhiều điều hay. Chúc bạn thành công.
thân ái

 

[be_09]

Thân chào các bạn.
Như tiêu đề đã nói, Mình có 1 file Excel gồm có nhiều sheet. Chính vì nhiều sheet như vậy nên mình mới thiết kế 1 Form báo cáo, đã lấy được dữ liệu tuy nhiên không lấy được định dạng các báo cáo cần có. Chi tiết theo file dữ liệu đính kèm. Anh/Chị và các bạn hướng dẫn mình hoàn thành báo cáo với định dạng như các sheet đi kèm, nếu dùng Option button không được. Anh/Chị có phương án nào giải quyết hộ với nhé. Lưu ý sếp không thích đọc nhiều sheet mà chỉ muốn nhìn nội dung trong 1 sheet. Thanhks các bạn và mong được giúp đỡ.
https://www.mediafire.com/?vua4nmxzz9w12fz Do công ty không cho Up dữ liệu nên mình tạm thời đưa lên đây. Trân trọng!

Trong File có nhiều sheet nhưng không nêu cụ thể vấn đề, em cần nêu rõ tên sheet cần lấy dữ liệu, và đưa dữ liệu vào sheet nào (nêu cụ thể tên sheet), nêu cụ thể nội dung cần, chứ em nói khơi khơi như vậy ai hiểu chết liền, nhìn vô đám rừng là mọi người ngán ngại nên chẳng ai hiểu để mà giúp.

 

[nai_con]

Chúc Bác ngày mới tốt lành và vui vẽ, rất mừng vì đã nhận được hồi ân từ Bác. Như Em đã nói ở trên. Sheet "báo cáo" của Em được lấy dữ liệu từ những "sheet còn lại". Có thể dùng VBA, hoặc công cụ khác để đạt được "mục đích" là khi Em "Click" vào tên báo cáo như mấy Option button Em đã tạo thì trên sheet báo cáo sẽ là nội dung sheet đó. Ví dụ khi Em click chuột vào "PO day", thì sẽ là báo cáo chi tiết trong sheet "BB.PODAY!". Cụ thể là như vậy mong bác giúp đỡ.
Cảm ơn.

 

[nai_con]

Chào nai_con như mail bạn gửi cho tôi và yêu cầu công việc của bạn, thì bạn cứ tạo 1 file với những số liệu giả định rồi gửi lên đây tôi và mọi người sẽ giúp cho,kiến thức của các cao thủ trên diễn đàn như nước sông Hằng, còn kiến thức của tôi chỉ như giọt nước, ta đưa lên đây trao đổi để mọi người trên diễn đàn có thể chỉ bảo thêm nhiều điều hay. Chúc bạn thành công.
thân ái

Cảm ơn sự quan tâm của Anh. Thực ra vấn đề ở đây là trình bày báo cáo dữ liệu trong work book. Nếu đưa giá trị vào thì cũng chỉ vậy thôi vì cái đích đến sau cùng là làm sao khi ẩn các sheet dữ liệu chỉ để lại sheet "BAO CAO!" Khi Click vào Option button hoặc Range(I8:I16) các giá trị đó sẽ là báo cáo mang nội dung sheet đã ẩn tưng ứng. Cảm ơn.

 

[Ba Tê]

Cảm ơn sự quan tâm của Anh. Thực ra vấn đề ở đây là trình bày báo cáo dữ liệu trong work book. Nếu đưa giá trị vào thì cũng chỉ vậy thôi vì cái đích đến sau cùng là làm sao khi ẩn các sheet dữ liệu chỉ để lại sheet "BAO CAO!" Khi Click vào Option button hoặc Range(I8:I16) các giá trị đó sẽ là báo cáo mang nội dung sheet đã ẩn tưng ứng. Cảm ơn.

Tôi không thích mấy cái nút rườm rà, chỉ khoái Validation thôi.
Bạn tạo danh sách các sheet muốn lấy dữ liệu vào cột F (liên tục từ trên xuống)
Sau đó cứ chọn trong List tên 1 sheet nào đó là code chạy, copy nguyên xi phần dữ liệu của code đó sang sheet BAO CAO.

 

[buithanhlong]

Chào nai_con tôi đã thêm phần ẩn hiện sheet theo ý bạn, xem đã đúng ý chưa.
Qua đây tôi cũng xin cám ơn tv Ba te đã giúp chúng tôi có thêm 1 phương pháp rất hay.
Ghi chú: Kiến thức tôi sử dụng trong bài được học từ các sư phụ anhtuan1066,ndu96081631,nghiaphuc. Trân trọng cám ơn các sư phụ

 

[nai_con]

Quá đĩnh cho bạn buithanhlong. Rất rất cảm ơn.

 

[Pirate]

chào bác,
mình cũng dùng code giống như bác vậy, nhưng chỉ chạy ra được dòng thứ 3 là hết. từ dòng thứ 4 trở xuống không có chạy data.
Vùng dữ liệu báo cáo từ A2:AK65000 trong dữ liệu có nhiều merge & Center
Code em sửa lại như sau:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsName As String
If Target.Address = "$AL$1" Then 'lay tu list DS_Sheet =OFFSET('mau in'!$AN$1;;;COUNTA('mau in'!$AN1:$AN65000))
If Target.Value <> "" Then
[A2:AK65000].Clear
wsName = Target.Value
Sheets(wsName).Range(Sheets(wsName).[A2], Sheets(wsName).[A65000].End(xlUp)).Resize(, 37).Copy [A2]
End If
End If
End Sub

Kết quả chạy được đến dòng số 3 là ngưng. Mong bác giúp đỡ

 

[Kiều Mạnh]

chào bác,
mình cũng dùng code giống như bác vậy, nhưng chỉ chạy ra được dòng thứ 3 là hết. từ dòng thứ 4 trở xuống không có chạy data.
Vùng dữ liệu báo cáo từ A2:AK65000 trong dữ liệu có nhiều merge & Center
Code em sửa lại như sau:


Kết quả chạy được đến dòng số 3 là ngưng. Mong bác giúp đỡ

khả năng do cấu trúc dữ liệu cột của bạn lộn xộn nên End(xlUp)).Resize(, 37). nó hiểu sai

 

[Pirate]

khả năng do cấu trúc dữ liệu cột của bạn lộn xộn nên End(xlUp)).Resize(, 37). nó hiểu sai

Bạn có thể giúp mình không, đúng là cấu trúc dữ liệu cột của mình lộn xộn lắm.

 

[Kiều Mạnh]

Bạn có thể giúp mình không, đúng là cấu trúc dữ liệu cột của mình lộn xộn lắm.

úp file lên . nếu được mình làm cho....vô tư đi mình đang luyện code mà .... sai thì sửa

 

[Pirate]

Bạn giúp mình thử xem nhé, nếu có cách khác hay hơn bạn tư vấn nha

 

[Kiều Mạnh]

Bạn giúp mình thử xem nhé, nếu có cách khác hay hơn bạn tư vấn nha

Sheet B1 bạn MergeCells tuỳ tiện và cột hai sheet khác nhau nữa như vậy thì code sẽ báo lỗi
bạn tải File Anh Batê về tự nghiên cứu nha... hay đó

 

[Pirate]

Sheet B1 bạn MergeCells tuỳ tiện và cột hai sheet khác nhau nữa như vậy thì code sẽ báo lỗi
bạn tải File Anh Batê về tự nghiên cứu nha... hay đó

Mình đã sửa lại code
và nó đã chạy. sửa .[A65000].End(xlup)) thành [A65000].End(xldown))
Nhưng kết quả chạy rất chậm.