Nhờ sửa code tăng tốc độ cho file chạy chậm (1 người xem)

[nguyen6571gpex]

Chào cả nhà GPE!
Nhờ các bạn kiểm tra giúp file tại sao chạy rất chậm.
- Sheet "So1" tôi tự ghi macro đính cho Shape "Boder" nên có thể là nguyên nhân, mong các bạn sửa dùm code cho ngắn gọn và tăng tốc độ.
- Sheet (Nopluu) mới bổ sung thêm code tìm GV theo màu (code sưu tầm trên GPE)
- Ngoài ra các bạn kiểm tra còn nguyên nhân gì nữa giúp tôi.
- Và tại sao: Sheet Tung_lop khung viền mẫu (H4:M12) sửa boder không được?
Trân trọng cảm ơn!

 

[sealand]

Bạn thử bằng Code này:

Sub Boder()
Application.ScreenUpdating = False
With Sheet1.Range("A5:AN54")
.Borders(xlEdgeLeft).LineStyle = xlDouble
.Borders(xlEdgeLeft).Weight = xlThick
.Borders(xlEdgeRight).LineStyle = xlDouble
.Borders(xlEdgeRight).Weight = xlThick
.Borders(xlInsideHorizontal).LineStyle = xlContinuous
.Borders(xlInsideHorizontal).Weight = xlHairline
.Borders(xlInsideVertical).LineStyle = xlContinuous
.Borders(xlInsideVertical).Weight = xlThin
End With
With Sheet1.Range("A4:AN4,B8:AN8,A12:AN12,B16:AN16,A20:AN20,B24: AN24 , A28: AN28 , B32: AN32 , A36: AN36 , B40: AN40 , A44: AN44 , A52: AN52 , A53: AN53 , A54: AN54 ")
.Borders(xlEdgeBottom).LineStyle = xlDouble
.Borders(xlEdgeBottom).Weight = xlThick
End With
 Application.ScreenUpdating = True
End Sub

Sheet Tung lop không sao cả.

 

[be_09]

Chào cả nhà GPE!
Nhờ các bạn kiểm tra giúp file tại sao chạy rất chậm.
- Sheet "So1" tôi tự ghi macro đính cho Shape "Boder" nên có thể là nguyên nhân, mong các bạn sửa dùm code cho ngắn gọn và tăng tốc độ.
- Sheet (Nopluu) mới bổ sung thêm code tìm GV theo màu (code sưu tầm trên GPE)
- Ngoài ra các bạn kiểm tra còn nguyên nhân gì nữa giúp tôi.
- Và tại sao: Sheet Tung_lop khung viền mẫu (H4:M12) sửa boder không được?
Trân trọng cảm ơn!

Thay một đống code tao Boder của sheet So1 bằng code này (tạo viềng nét đôi):

Sub Tao_Boder()
       Worksheets(1).Range("B5:AN44").Borders.LineStyle = xlDouble
End Sub

Muốn tạo viềng nét đứt thì thay:
xlDouble

Thành
xlDash