Chúc anh ngày mới tốt lành nhé
Dạ đúng rồi ạ, em làm đc cái đó rồi ạ, em lại đang record để nghịch tiếp mà nó khiến file nặng quá
Hi anh, em làm công thức mãi mà k chịu học VBA, e đang lọ mọ học nên cái gì cũng lạ anh ạ, E toàn record nhưng code ra dài mà file chạy chậm quá nên lại đang nản anh ạ
Hi anh, em làm công thức mãi mà k chịu học VBA, e đang lọ mọ học nên cái gì cũng lạ anh ạ, E toàn record nhưng code ra dài mà file chạy chậm quá nên lại đang nản anh ạ
Vâng em cảm ơn thầy, em cũng cố gắng chăm chỉ record để học nhưng có thể vì không có căn bản nên em hay mắc ở những vấn đề rất củ chuối ạNgày xưa tôi cũng chập chững bằng cách record macro đó thôi. Từ từ... rồi khoai nó cũng nhừ
Thầy có mẹo nào khi học Record cho hiệu quả không thầy? Em record xong chạy lại bằng cách ấn F8 rồi xoá bớt code không cần thiết nhưng em vẫn thấy dài miên man
Thì tôi cũng làm vậy thôi!Vâng em cảm ơn thầy, em cũng cố gắng chăm chỉ record để học nhưng có thể vì không có căn bản nên em hay mắc ở những vấn đề rất củ chuối ạ
E cảm ơn trước ạ
Bạn ở Hà Nội?Vâng ạ, Có dịp ghé qua mấy bài em hỏi trên diễn đàn thầy để lại cho em vài dòng code thầy nhé
Em cảm ơn anh T ạ, em sẽ góp những điều em còn thắc mắc rồi khi nào cafe anh giải đáp giúp em với nhé. anh hỏi em ở Hà Nội làm em đau lòng quá, e song ca hụt với anh hôm sinh nhật GPE mà ạ
Rất xin lỗi bạn. Bị VỢ BA oánh cho ngơ người, đầu óc ko nhớ nổi j nữa. Thành thật xin lỗi.
Sub Oval1_Click()
Dim Shape As Shape
Dim I As Long
On Error Resume Next
Application.EnableEvents = False
Application.ScreenUpdating = False
ActiveSheet.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
With ActiveSheet
.Rows("1:2").Delete
For Each Shape In .Shapes
Shape.Delete
Next Shape
.Name = Sheet1.Bang.Text
For I = .UsedRange.Rows.Count To 1 Step -1
With .Rows(I)
If .Hidden Then .Delete
End With
Next I
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Bạn nói như thế. Tôi hay ai khác có đọc cũng như cưỡi ngựa xem hoa....chứ có biết bạn muốn cái gì mà giúp...Em ghé qua đây đầu tiên là khoe là em cũng áp dụng ghi macro và mấy dòng code của các anh chị chỉ cho em vào công việc của mình, thấy "ưng cái bụng" lắm ạ
Khi em tổng hợp dữ liệu từ các sheet sang sheet tổng hợp thì em muốn giữ nguyên dòng đầu tiên (Phần tiêu đề) và chạy code cho file tổng hợp tự có filter ở Dòng đầu tiên đó, nhưng khi em cho chạy code thì lần đầu có filer lần thứ 2 lại không có (đã filter rồi lại chọn nút filter nên nó trở về trạng thái ban đầu). Nên em muốn hỏi là em muốn viết 1 code có nghĩa " Nếu đã filter thì giữ nguyên, còn chưa filter thì filter" thì phải viết thế nào ạ?/ E xin chân thành cảm ơn ạ!
Em ghé qua đây đầu tiên là khoe là em cũng áp dụng ghi macro và mấy dòng code của các anh chị chỉ cho em vào công việc của mình, thấy "ưng cái bụng" lắm ạ
Khi em tổng hợp dữ liệu từ các sheet sang sheet tổng hợp thì em muốn giữ nguyên dòng đầu tiên (Phần tiêu đề) và chạy code cho file tổng hợp tự có filter ở Dòng đầu tiên đó, nhưng khi em cho chạy code thì lần đầu có filer lần thứ 2 lại không có (đã filter rồi lại chọn nút filter nên nó trở về trạng thái ban đầu). Nên em muốn hỏi là em muốn viết 1 code có nghĩa " Nếu đã filter thì giữ nguyên, còn chưa filter thì filter" thì phải viết thế nào ạ?/ E xin chân thành cảm ơn ạ!
