nguyenhung156
Thành viên mới

- Tham gia
- 23/2/19
- Bài viết
- 6
- Được thích
- 0
Hic ... muốn mở file mà sợ "Sida" vì máy mình không có chống sida...Anh/chị xem giúp em file excel này cứ mở lên là bị treo không làm gì được, em cảm ơn
Mà làm bằng tay cho vài chục sheets cũng hơi căng nha
Chắc là ra vườn tiêu rồi bạn.bác @Hoàng Tuấn 868 ơi...
câu của bác "Mình cũng định mở nhưng sợ Covid vì chưa có Vacxin" đâu mất tiêu òi....
Có nghĩa là các bạn nên tập trung vào chuyên môn. Mấy bài vô thưởng vô phạt không có cũng không saobác @Hoàng Tuấn 868 ơi...
câu của bác "Mình cũng định mở nhưng sợ Covid vì chưa có Vacxin" đâu mất tiêu òi....
Dạ, cám ơn thầy nhắc nhở.Có nghĩa là các bạn nên tập trung vào chuyên môn. Mấy bài vô thưởng vô phạt không có cũng không sao
Đôi lúc để tự làm sẽ nhớ lâu hơn và lý do tại sao, để lần sau tự khắc phụcMà làm bằng tay cho vài chục sheets cũng hơi căng nha
Em quét thử bằng kis rồi bác yên tâmHic ... muốn mở file mà sợ "Sida" vì máy mình không có chống sida...
file mở bị chậm có nhiều nguyên nhân. một trong đó là "sida"....
cám ơn bạn...Em quét thử bằng kis rồi bác yên tâm
Cảm ơn bác để em thử xem sao
Dạ em cảm ơn ạ. Em chọn object để xoá nhưng chắc nhiều quá nên đơ máy luôn ạ. Có cách nào để xoá khác không ạCó nghĩa là các bạn nên tập trung vào chuyên môn. Mấy bài vô thưởng vô phạt không có cũng không sao
bạn dung VBA chứ "quay tay" như thế là rã rời luôn ah....Cảm ơn bác để em thử xem sao
Bài đã được tự động gộp:
Dạ em cảm ơn ạ. Em chọn object để xoá nhưng chắc nhiều quá nên đơ máy luôn ạ. Có cách nào để xoá khác không ạ
Sub DelShp()
Dim sh As Shape
Dim sht As Worksheet
For Each sht In Worksheets
For Each sh In sht.Shapes
sh.Delete
Next sh
Next sht
End Sub
Em cảm ơn bácbạn dung VBA chứ "quay tay" như thế là rã rời luôn ah....
Mã:Sub DelShp() Dim sh As Shape Dim sht As Worksheet For Each sht In Worksheets For Each sh In sht.Shapes sh.Delete Next sh Next sht End Sub
À bác cho em hỏi là những object này từ đâu sinh ra mà nhiều thế ạbạn dung VBA chứ "quay tay" như thế là rã rời luôn ah....
Mã:Sub DelShp() Dim sh As Shape Dim sht As Worksheet For Each sht In Worksheets For Each sh In sht.Shapes sh.Delete Next sh Next sht End Sub
Do bạn copy từ những chỗ có Object ... rồi paste thường nên nó dính theoÀ bác cho em hỏi là những object này từ đâu sinh ra mà nhiều thế ạ