Làm sao tạo sheet tự động theo 1 danh sách

[othanhquango]

Chào các bạn, mình có một vấn đề sau muốn nhờ đến sự giúp đỡ của các bạn, rất mong các bạn giúp mình.

Mình có 1 danh sách gồm khoản 250 mặt hàng, giờ mình muốn mỗi mặt hàng tạo 1 sheet Thẻ Kho để theo dõi chi tiết. Và tự động tạo link khi mình nhấn vào mã hàng ở danh mục hàng thì sẽ tự di chuyển đến sheet Thẻ Kho có mã hàng tương ứng.

À nhân tiện các bạn cho mình hỏi luôn là làm sao mình có thể đưa số tồn hiện tại từ sheet Thẻ Kho vào cột Tồn ở sheet DMH?

Rất mong sự giúp đỡ của các bạn, mình chân thành cảm ơn.

 

[ChanhTQ@]

Mình có í tưởng này, xin khuyến cáo đến bạn:

Hiện thẻ kho của bạn gồm 8 cột & 214 dòng;

Như vậy ta thừa sức bố trí các thẻ này trên 1 trang tính (với Êxel2003 chăng nữa);

Có 2 cách tiếp theo để chúng ta tuỳ chọn:

(1) Trang tính có >250 cột, vậy ta có thể bố trí 25 thẻ trên các cột, mỗi thẻ kho lúc đó có thể là 6.000 dòng có dư để bạn xài đến lúc mệt nghỉ.

(2) Nếu liên quan đến việc in ấn thẻ kho, thì ta bố trí các thẻ ở chỉ 10 cột đầu & như vậy mỗi thẻ ta có khoảng 600 dòng để xài!?!

Xin bạn fát biểu về í tưởpng này!

Còn việc tạo ra 250 trang tính cho 250 mã hàng không fải là không làm được & sẽ có người giúp bạn,. . .

 

[othanhquango]

Ý tưởng của bạn khá hay, nhưng thực tế mình thấy rất khó sử dụng, với lại thêm một điều nữa là bên công ty mình bắt buộc là phải theo dõi theo chuẩn như vậy. Trước mình cũng từng làm 1 file sử dụng 1 sheet làm nguồn nhập liệu sau đó dùng pivot table để tổng hợp dữ liệu nhưng các bác không chịu, bắt phải nhập từng mã hàng trong từng sheet một. Như vậy thì 1 nghiệp vụ phát sinh 20 mã hàng thì phải nhập liệu 20 lần vô 20 sheet mới khổ. Nên giờ mình buộc phải làm theo chuẩn thôi.

Thật sự làm theo phương pháp này mình không có hướng giải quyết những bài toán thống kê như: Xem tồn hiện tại, tồn ở tháng nào đó, nhập xuất từ ngày xyz đến ngày abc... Nhưng thôi, theo chuẩn vậy, vì cái chuẩn của các bác không cần thông tin đó. Mà chỉ cần đơn giản là từng sheet từng mã hàng.

Vì vậy nhờ các bạn giúp mình.

 

[othanhquango]

Hic, sau khi nghiên cứu và tìm hiểu, mình đã làm được vụ thêm sheet tự động, giờ mình muốn thêm cái nữa là khi mình click vào mã hàng nào (ở sheet Home) thì phải nhảy đến sheet có mã hàng tương ứng. Tìm hiểu mãi mà chưa được, nhờ các bạn hỗ trợ mình.

Chân thành cảm ơn các bạn.

 

[ChanhTQ@]

Xin trân trọng chúc mừng thành quả của bạn! Tiếp theo. . .

Hic, sau khi nghiên cứu và tìm hiểu, mình đã làm được vụ thêm sheet tự động, giờ mình muốn thêm cái nữa là khi mình click vào mã hàng nào (ở sheet Home) thì phải nhảy đến sheet có mã hàng tương ứng. Tìm hiểu mãi mà chưa được, nhờ các bạn hỗ trợ mình.

Chân thành cảm ơn các bạn.

Bạn thử chép 3 con macro (có 2 con là macro sự kiện) này vô module của trang tính 'Home'
& thử nghiệm vài lần;
Từ cuộc thử nghiệm, bạn bỏ bớt 1 trong 2 con sự kiện đi là được;
(Nếu không ưa hiện hộp thoại nữa, bạn có thể vô hiệu hoá dòng lệnh đó bằng nhiều cách; Đơn giản nhất là để trước nó dấu nháy đơn)

[B]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)[/B]
11    MsgBox "Doublick"
    If Not Intersect(Target, Range([b6], [b65500].End(xlUp))) Is Nothing Then
        GPEGotoSheet Target.Value
    End If
[B]End Sub[/B]

[B]Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)[/B]
22    MsgBox "RightClick"
    If Not Intersect(Target, Range([b6], [b65500].End(xlUp))) Is Nothing Then
        GPEGotoSheet Target.Value
    End If
[B]End Sub[/B]

Sub GPEGotoSheet(ShName As String)
 Sheets(ShName).Select
End Sub

 

[othanhquango]

Để mình test thử, mà sao code của bạn lại có số 11, và 22 ở trước nhỉ?

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

 

[TrThPhong9]

Mình hy vọng bạn othanhquango sẽ hài lòng với File gửi kèm theo đây vì trong này mình đã thực hiện các việc:

1._ Tạo được công thức tự động lấy số tồn đầu và tồn cuối của các Sheet thẻ kho. Công thức này có thể copy xuống dễ dàng. Thẻ kho nào chưa có thì trả về #REF! , sau khi tạo sheet tương ứng lỗi này sẽ không còn (dù là Sheet được tạo sau khi tạo công thức).

2._ Có Form cho bạn thực hiện mỗi lần 1 hoặc vài chục mã, thay vì phải thực hiện tất cả 250 mã.

3._ Khi bấm vào Mã vật tư tại sheet "Home" sẽ tự di chuyển đến sheet Thẻ Kho có mã hàng tương ứng.

4._ Chương trình thực hiện theo giải thuật: Copy thẻ kho mẫu (Sheet "mau") rồi Rename sheet với tên mới là mã số. Nếu muốn thay đổi chuẩn của thẻ kho thì bạn bắt đầu từ sửa đổi ở Sheet mẫu. Nhưng cần chú ý: công thức ở Sheet "Home" tôi đã lấy địa chỉ dòng tồn đầu tiên là G12. Bạn có thể sửa lại nếu không phù hợp.

5._ Có Menu tiếng Việt để bạn kích hoạt lệnh. Bạn có thể thêm (hoặc bớt) các lệnh mới bằng cách chèn thêm (hoặc xóa) dòng tương ứng trong Sheet "Mnu" và thực hiện lệnh "Tạo lại Menu". Bạn nên Ẩn sheet này để tránh người khác quậy phá. Menu này sẽ không nhìn thấy khi kích hoạt File khác và được tạo lại vào mỗi lần mở File (dù Sheet Mnu đang ẩn).

 

[othanhquango]

Làm sao để file nhẹ và nhập liệu nhanh

Chào các bạn, rất mong được sự giúp đỡ của các bạn về vấn đề sau:

Mình đã tạo được file thẻ kho như ý, nhưng khi xử dụng thì có 02 vấn đề phát sinh như sau:

- Không hiểu tại sao khi lưu rất lâu, có lẽ do nhiều sheet quá chăng? Nhờ các bạn xem có cách nào tối ưu giúp mình không?
- Do mỗi một mã hàng mình quản lý trên 1 sheet, khi đó nếu phát sinh nhiều mã hàng thì phải vào từng mã hàng đánh lại nội dung, ngày tháng, người nhận ... như vậy rất mất thời gian cho một nghiệp vụ? Và dễ dẫn đến sai sót? Nhờ các bạn xem giúp mình có cách nào đó để mình chỉ cần nhập vào 1 nơi, 1 sheet nào đó sau đó nó tự tìm đến các sheet tương ứng và gán giá trị tương ứng vào?

Mình chờ đợi sự giúp đỡ của các bạn.
Chân thành cảm ơn.

 

[MinhNguyệt]

Chào các bạn, rất mong được sự giúp đỡ của các bạn về vấn đề sau:

Mình đã tạo được file thẻ kho như ý, nhưng khi xử dụng thì có 02 vấn đề phát sinh như sau:

- Không hiểu tại sao khi lưu rất lâu, có lẽ do nhiều sheet quá chăng? Nhờ các bạn xem có cách nào tối ưu giúp mình không?
- Do mỗi một mã hàng mình quản lý trên 1 sheet, khi đó nếu phát sinh nhiều mã hàng thì phải vào từng mã hàng đánh lại nội dung, ngày tháng, người nhận ... như vậy rất mất thời gian cho một nghiệp vụ? Và dễ dẫn đến sai sót? Nhờ các bạn xem giúp mình có cách nào đó để mình chỉ cần nhập vào 1 nơi, 1 sheet nào đó sau đó nó tự tìm đến các sheet tương ứng và gán giá trị tương ứng vào?

Mình chờ đợi sự giúp đỡ của các bạn.
Chân thành cảm ơn.

Không ai làm theo kiểu của bạn đâu. Chỉ cần 3 sheet để quản lý : 1 sheet danh mục vật tư, 1 sheet nhập xuất vật tư, 1 sheet thẻ kho. vậy là dư sức quản lý cái kho của bạn rồi.Nếu muốn thì thêm một sheet Home nữa để quản lý chung.
Thân

 

[othanhquango]

Mình cũng đã từng nghĩ đến phương án này:

Ưu điểm của nó: nhập liệu nhanh, còn sheet thẻ kho thì chỉ cần một sau đó dùng kết hợp match và index.
Nhược điểm: Sheet tổng hợp muốn lấy số tồn phải sumproduct hơi bị nhiều => chậm

Mình đã thiết kế sẵn các sheet trong file đính kèm dưới đây.. Sức và khả năng mình chỉ đến đó nên không thể triển khai được một số ý tưởng mình muốn.

Rất mong sự giúp đỡ của các bạn. Chân thành cảm ơn.

 

[MinhNguyệt]

Mình cũng đã từng nghĩ đến phương án này:

Ưu điểm của nó: nhập liệu nhanh, còn sheet thẻ kho thì chỉ cần một sau đó dùng kết hợp match và index.
Nhược điểm: Sheet tổng hợp muốn lấy số tồn phải sumproduct hơi bị nhiều => chậm

Mình đã thiết kế sẵn các sheet trong file đính kèm dưới đây.. Sức và khả năng mình chỉ đến đó nên không thể triển khai được một số ý tưởng mình muốn.

Rất mong sự giúp đỡ của các bạn. Chân thành cảm ơn.

Oh! Vậy là bạn đã hiểu ý rồi đó. Bài của bạn post ở box Lập trình, vậy sao không dùng VBA để file "nhẹ gánh" hơn?
Thân

 

[othanhquango]

Oh! Vậy là bạn đã hiểu ý rồi đó. Bài của bạn post ở box Lập trình, vậy sao không dùng VBA để file "nhẹ gánh" hơn?
Thân

Hic, biết code bằng VBA thì ... đỡ biết mấy, đằng này mình có biết code đâu. Vì vậy nên mình rất cần sự giúp đỡ của các bạn

Đây là file hoàn thiện mình làm. Share lên cho các bạn test thử. Toàn bộ đều là công thức.
Hic, dữ liệu về sau phát sinh tầm 5.000 dòng là nó chạy như rùa luôn. Nhờ các bạn code sao cho tối ưu dùm mình.

Hic, rất mong sự giúp đỡ của các bạn. Chân thành cảm ơn.