Vẽ lưu trình sản xuất với VBA

[vulunktheky]

Chào anh chị,

-Hiện tai em có một lưu trình sản xuất gồm 8 công đoạn lớn, mỗi công đoạn sẽ được chia ra những công đoạn nhỏ, những công đoạn nhỏ của các công đoạn lớn được liên kết với nhau bởi dấu mũi tên (Tham khảo sheet Ex).
- Với yêu cầu: Nhập vào các công đoạn nhỏ (sheet data) thì sẽ điền dữ liệu vào bên dưới các công đoạn lớn (sheet draw) có thể là vị trí không theo thứ tự, sau đó xác định công đoạn tiếp theo cần phải làm bằng dấu mũi tên với vị trí đến đã được xác định ở sheet data và nối 2 điểm đó lại,
=> Em có sheet Ex đã được vẽ trước đó bằng tay kéo thả (tương đối chậm), em đã thử vẽ trên Ms. Visio, hiện tại e muốn vẽ thử trên excel với VBA thì có khả thi không ạ?
Mong anh chị hỗ trợ, em xin cảm ơn.

 

[ptm0412]

Vẽ bằng Visio là được rồi, xuất file Visio ra Excel dùng làm mẫu, sau đó khi tăng giảm trên excel thì import vô Visio lại

 

[vulunktheky]

Vẽ bằng Visio là được rồi, xuất file Visio ra Excel dùng làm mẫu, sau đó khi tăng giảm trên excel thì import vô Visio lại

dạ, em vẽ trên Visio được rồi, vậy có cách nào mà vẽ luôn trên excel mà không kéo thả không anh.

 

[ptm0412]

dạ, em vẽ trên Visio được rồi, vậy có cách nào mà vẽ luôn trên excel mà không kéo thả không anh.

Xuất file dữ liệu visio ra excel, không phải xuất cái hình

 

[Maika8008]

dạ, em vẽ trên Visio được rồi, vậy có cách nào mà vẽ luôn trên excel mà không kéo thả không anh.

Vẽ được chứ. Xác định vị trí, khoảng cách 2 ô rồi vẽ các đường thẳng, mũi tên nối chúng lại. Chỉ là mất công code

 

[vulunktheky]

Vẽ được chứ. Xác định vị trí, khoảng cách 2 ô rồi vẽ các đường thẳng, mũi tên nối chúng lại. Chỉ là mất công code

anh có thể hỗ trợ giúp em với.

Bài đã được tự động gộp: 24/6/21

Xuất file dữ liệu visio ra excel, không phải xuất cái hình

dạ, cảm ơn anh

 

[Maika8008]

anh có thể hỗ trợ giúp em với.

Tôi dựa vào các công đoạn có sẵn ở sheet Ex để vẽ theo dữ liệu tại sheet data. Bạn xem thử.

 

[vulunktheky]

Tôi dựa vào các công đoạn có sẵn ở sheet Ex để vẽ theo dữ liệu tại sheet data. Bạn xem thử.

Cảm ơn anh, nhưng có cách nào lấy thông tin từ data điền vào sheet Draw rồi vẽ ra không anh. tại vì dữ liệu có thể là linh động tùy biến thay đổi không cố định nên giải pháp này chưa ổn lắm anh.

 

[Maika8008]

Cảm ơn anh, nhưng có cách nào lấy thông tin từ data điền vào sheet Draw rồi vẽ ra không anh. tại vì dữ liệu có thể là linh động tùy biến thay đổi không cố định nên giải pháp này chưa ổn lắm anh.

Vẽ được nhưng tôi chưa có giải pháp tối ưu vì có thể đường mũi tên sẽ cắt ngang qua nội dung công đoạn.
Hỏi thêm:
- Trong file thấy vị trí đến trống nhiều. Trên thực tế có như vậy không? Nếu kín hết thì đường vẽ trở nên chằng chịt, các đường thẳng đứng không có chỗ chen.
- Các vị trí đến mà trống thì vẫn phải liệt kê ra trên Draw hay là không cần?

 

[vulunktheky]

Vẽ được nhưng tôi chưa có giải pháp tối ưu vì có thể đường mũi tên sẽ cắt ngang qua nội dung công đoạn.
Hỏi thêm:
- Trong file thấy vị trí đến trống nhiều. Trên thực tế có như vậy không? Nếu kín hết thì đường vẽ trở nên chằng chịt, các đường thẳng đứng không có chỗ chen.
- Các vị trí đến mà trống thì vẫn phải liệt kê ra trên Draw hay là không cần?

- Đây là file thực tế của em, còn tùy thuộc vào lưu trình cho sản phẩm nào mà có vị trí đến khác nhau. (thường thì các vị trí đến chỉ có 1 số vị trí như file em đã vẽ)
- Các vị trí đến còn trống thì chỉ cần liệt kê dữ liệu vị trí hiện tại bên dưới các công đoạn lớn như sheet Ex em đã vẽ.
cảm ơn anh.

 

[Maika8008]

- Đây là file thực tế của em, còn tùy thuộc vào lưu trình cho sản phẩm nào mà có vị trí đến khác nhau. (thường thì các vị trí đến chỉ có 1 số vị trí như file em đã vẽ)
- Các vị trí đến còn trống thì chỉ cần liệt kê dữ liệu vị trí hiện tại bên dưới các công đoạn lớn như sheet Ex em đã vẽ.
cảm ơn anh.

Bạn thử xem nhé! Có 3 nút: Lấy dữ liệu -> Vẽ -> Xóa

 

[vulunktheky]

Bạn thử xem nhé! Có 3 nút: Lấy dữ liệu -> Vẽ -> Xóa

cảm ơn anh, em sẽ làm thử