Hướng dẫn Thu gọn Code cho những Sub, function tương tự nhau trên Userform

Liên hệ QC

Mr.hieudoanxd

Thành viên thường trực
Tham gia
25/10/19
Bài viết
322
Được thích
150
Chào các Anh/Chị!
Em học và thực hành tạo ứng dụng Lịch trên Userform như file em đính kèm. File đã chạy ổn định tuy nhiên phần code rất rườm rà, không chỉ file này em còn một số file tương tự file trên tuy nhiên do trình độ hạn hẹp không biết phương án nào có thể viết gọn lại được.
Ví dụ như ở trong file em thấy về cảm quan ngoài: có mối liên hệ giữa tên các Label và số đếm nhưng không biết cách để có thể sử dụng vòng lặp mà liên kết được với tên label đó chẳng hạn như
For i = 1 to 10 "Label" & i = i next
Điều này làm việc triển khai viết code cho một số file của em gặp rất nhiều khó khăn. Em muốn các anh/chị hướng dẫn cách thu gọn trong trường hợp trên ạ
Em cảm ơn!
Ghi chú: Bài trên em có sử dụng code của 1 anh nào đó em không biết tên về việc chuyển đổi lịch âm dương và Có tham khảo qua bài về lịch của anh Hoàng Trọng Nghĩa (xem anh code mà không hiểu gì nên em làm theo kiểu của em)
 

File đính kèm

  • Lich.xlsm
    53.5 KB · Đọc: 20
Chào các Anh/Chị!
Em học và thực hành tạo ứng dụng Lịch trên Userform như file em đính kèm. File đã chạy ổn định tuy nhiên phần code rất rườm rà, không chỉ file này em còn một số file tương tự file trên tuy nhiên do trình độ hạn hẹp không biết phương án nào có thể viết gọn lại được.
Ví dụ như ở trong file em thấy về cảm quan ngoài: có mối liên hệ giữa tên các Label và số đếm nhưng không biết cách để có thể sử dụng vòng lặp mà liên kết được với tên label đó chẳng hạn như
For i = 1 to 10 "Label" & i = i next
Điều này làm việc triển khai viết code cho một số file của em gặp rất nhiều khó khăn. Em muốn các anh/chị hướng dẫn cách thu gọn trong trường hợp trên ạ
Em cảm ơn!
Ghi chú: Bài trên em có sử dụng code của 1 anh nào đó em không biết tên về việc chuyển đổi lịch âm dương và Có tham khảo qua bài về lịch của anh Hoàng Trọng Nghĩa (xem anh code mà không hiểu gì nên em làm theo kiểu của em)
Thử thế này xem sao.
Mã:
   For i = 1 To 10
        Me.Controls("Label" & i).Caption = i
   Next
 
Upvote 0
Đã đúng yêu cầu của em. Em cảm ơn!
Tuy nhiên chắc có thể rút gọn hơn nữa không phải chỉ mình vấn đề trên đúng không anh?
 
Upvote 0
Đã đúng yêu cầu của em. Em cảm ơn!
Tuy nhiên chắc có thể rút gọn hơn nữa không phải chỉ mình vấn đề trên đúng không anh?
Dĩ nhiêu code của bạn còn rút gọn nhiều hơn nửa, nhưng trước hết bạn hãy rút gọn hết khả năng của mình đi rồi nhờ tiếp chứ nhìn code của bạn tui oải chưởng quá.
 
Lần chỉnh sửa cuối:
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom