Giúp tạo shapes và add text trong shape bằng VBA

[Trung Kien Phan]

Chào anh/chị
Em đang tạo lập 1 số shapes trong excel với nhiều shapes khác nhau, kích thước khác nhau.
Add thêm text vào các Shapes này như file đính kèm.
Trong quá trình thiết lập em sử dụng record macro để thiết tạo.
Tuy nhiên, em gặp nhiều khó khăn khi làm như sau, mong anh/chị chỉ dạy thêm giúp em với ạ.
1. Mỗi 1 lần tạo 1 shape em cần viết 1 đoạn dài code => có cách nào viết ngắn gọn hơn không?
2. Khi add text vào shape thì việc chọn tên shape rất khó khăn, nó thay đổi tăng số tên của shape lên sau mỗi lần em xóa đi và tạo lại.
Chi tiết xem file:
VD: lần đầu em ấn add box => sau đó clear box thì ok.
Nhưng sau khi add box và clear box thì không được nữa.vì như mực 2. em vừa nói.
3. Em muốn add text vào shape ó giá trị nằm trong 1 range nào đó. Hoặc nối của nhiều range vào. => em chưa thể tìm ra.

Rất mong các anh/chị chỉ dạy em thêm với ạ.
Em cám ơn!

 

[giaiphap]

Chào anh/chị
Em đang tạo lập 1 số shapes trong excel với nhiều shapes khác nhau, kích thước khác nhau.
Add thêm text vào các Shapes này như file đính kèm.
Trong quá trình thiết lập em sử dụng record macro để thiết tạo.
Tuy nhiên, em gặp nhiều khó khăn khi làm như sau, mong anh/chị chỉ dạy thêm giúp em với ạ.
1. Mỗi 1 lần tạo 1 shape em cần viết 1 đoạn dài code => có cách nào viết ngắn gọn hơn không?
2. Khi add text vào shape thì việc chọn tên shape rất khó khăn, nó thay đổi tăng số tên của shape lên sau mỗi lần em xóa đi và tạo lại.
Chi tiết xem file:
VD: lần đầu em ấn add box => sau đó clear box thì ok.
Nhưng sau khi add box và clear box thì không được nữa.vì như mực 2. em vừa nói.
3. Em muốn add text vào shape ó giá trị nằm trong 1 range nào đó. Hoặc nối của nhiều range vào. => em chưa thể tìm ra.

Rất mong các anh/chị chỉ dạy em thêm với ạ.
Em cám ơn!
View attachment 217191

Theo tôi hiểu thì không cần add box (Thêm đối tượng là các hình chữ nhật) mà chỉ cần hiển thị các đối tượng và đổi nội dung trong các khung đang có còn khi cần Clear box thì chỉ cần ẩn nó đi là được. Nhưng không biết có phải ý bạn vậy không? Thôi thì bạn mô tả mục đích cụ thể sẽ có cách giải quyết nhanh hơn cách bạn làm.

 

[Trung Kien Phan]

Theo tôi hiểu thì không cần add box (Thêm đối tượng là các hình chữ nhật) mà chỉ cần hiển thị các đối tượng và đổi nội dung trong các khung đang có còn khi cần Clear box thì chỉ cần ẩn nó đi là được. Nhưng không biết có phải ý bạn vậy không? Thôi thì bạn mô tả mục đích cụ thể sẽ có cách giải quyết nhanh hơn cách bạn làm.

"Theo tôi hiểu thì không cần add box (Thêm đối tượng là các hình chữ nhật) mà chỉ cần hiển thị các đối tượng và đổi nội dung trong các khung đang có còn khi cần Clear box thì chỉ cần ẩn nó đi là được. Nhưng không biết có phải ý bạn vậy không"=>Dạ về đại ý thì là như vậy ạ,
Tuy nhiên, em muốn nói rõ hơn ở đây như sau
Như trong file em đính kèm từ đầu thì phần kích thước hình chữ nhật sẽ ko cố định, nó sẽ thay đổi khi em cho nó là 1 số khác.

*" Thôi thì bạn mô tả mục đích cụ thể sẽ có cách giải quyết nhanh hơn cách bạn làm." => em cũng có mục kết quả mong muốn ở sheet bên cạnh của file đính kèm

Em có đính kèm lại file

 

[huuthang_bd]

Có phải bạn muốn xếp các hình chữ nhật nhỏ vào hình chữ nhật lớn sao cho xếp được nhiều hình chữ nhật nhỏ nhất?

 

[Trung Kien Phan]

Có phải bạn muốn xếp các hình chữ nhật nhỏ vào hình chữ nhật lớn sao cho xếp được nhiều hình chữ nhật nhỏ nhất?

Vâng ạ. Đó là mục đích cuối cùng ạ.

 

[huuthang_bd]

Vâng ạ. Đó là mục đích cuối cùng ạ.

Bạn xem file ở bài này có áp dụng được không. File ở bài 1, sheet Tam.

Tiện ích tính toán để tiết kiệm khi cắt tấm, cắt thanh.

Lần trước tôi đã gửi một file dùng để tính toán các sắp xếp tối ưu những hình chữ nhật nhỏ có cùng kích thước trong một hình chữ nhật lớn để số lượng hình chữ nhật nhỏ được xếp là lớn nhất. Tiện ích này sẽ giúp các bạn tiết kiệm không gian khi sắp xếp hàng hóa, tiết kiệm nguyên liệu khi cắt một...

www.giaiphapexcel.com

 

[Trung Kien Phan]

Bạn xem file ở bài này có áp dụng được không. File ở bài 1, sheet Tam.

Tiện ích tính toán để tiết kiệm khi cắt tấm, cắt thanh.

Lần trước tôi đã gửi một file dùng để tính toán các sắp xếp tối ưu những hình chữ nhật nhỏ có cùng kích thước trong một hình chữ nhật lớn để số lượng hình chữ nhật nhỏ được xếp là lớn nhất. Tiện ích này sẽ giúp các bạn tiết kiệm không gian khi sắp xếp hàng hóa, tiết kiệm nguyên liệu khi cắt một...

www.giaiphapexcel.com

Xin cám ơn bác @huuthang_bd !
1.
Em đã test thử ở sheet tấm thì thấy vẫn có trường hợp không được ổn lắm.
Ví dụ: Em có tấm NVL kích thước 650*860 mm
Cần cắt ra các khổ nhỏ có kích thước 330*138 mm => kết quả file của bác là 9 tấm.

Nhưng em vẫn ghép được 10 tấm


Bác có thể chỉ dẫn em thêm được không ạ?
Em đã lấy các kích thước 860/50 rồi
Xin cám ơn!

 

[huuthang_bd]

Xin cám ơn bác @huuthang_bd !
1.
Em đã test thử ở sheet tấm thì thấy vẫn có trường hợp không được ổn lắm.
Ví dụ: Em có tấm NVL kích thước 650*860 mm
Cần cắt ra các khổ nhỏ có kích thước 330*138 mm => kết quả file của bác là 9 tấm.
View attachment 217475
Nhưng em vẫn ghép được 10 tấm

View attachment 217476
Bác có thể chỉ dẫn em thêm được không ạ?
Em đã lấy các kích thước 860/50 rồi
Xin cám ơn!

Đơn vị kích thước không dùng số lẻ nha bạn.