nguyentranvananh1984
Thành viên mới
- Tham gia
- 29/9/14
- Bài viết
- 3
- Được thích
- 0
Em mày mò làm file để phục vụ công việc. Do trình độ giới hạn nên code lủng củng, các anh/chị xem giúp em với
- Em muốn nhập các thông tin ở sheet MCK - IV, nhấn print thì dữ liệu sẽ qua sheet DL MCK và 1 số thông tin sẽ qua sheet MSHS MN (với định dạng như dữ liệu mẫu & loại bỏ những dòng trống). Đồng thời 1 đoạn nội dung nho nhỏ tóm lược của sheet MCK - IV được gửi đến email của ai đó với mục đích kiểm soát bao nhiêu Invoice được phát hành (cái này em muốn gửi nguyên thông tin của sheet nhưng do trình độ có hạn em chỉ lấy được tóm lược thôi)
- Ở sheet DL MCK và MSHS MN được dùng filter, nhưng khi nhấn back to menu thì trả về dữ liệu đầy đủ (không làm mất dấu filter)
Tuy nhiên, em bị vướng một số chỗ
1. Code của em lòng thòng quá nên dữ liệu khoảng trên 500 dòng file đã nặng -> có cách nào làm giảm ko ạ?
2. Đoạn code báo lỗi ở dòng " If rng.Rows.Count > rng.SpecialCells(xlCellTypeVisible).Rows.Count Then " -> Lỗi này là gì và phải sửa thế nào ạ?
Sub Backtomenu_boloc()
Dim rng As Range
With ActiveSheet
If .AutoFilterMode Then
Set rng = .AutoFilter.Range
If rng.Rows.Count > rng.SpecialCells(xlCellTypeVisible).Rows.Count Then
.ShowAllData
End If
End If
End With
ActiveSheet.Visible = xlSheetVisible
Sheets("BDK").Select
End Sub
3. Khi gửi mail thì bảng bên dưới hiện ra, nhấn allow thì mail mới đi. Vì kiểm soát nên em muốn việc gửi mail phải âm thầm -> Làm sao để không hiện bảng này ạ?
Em cảm ơn các cao thủ nhiều ạ!!!!!!
- Em muốn nhập các thông tin ở sheet MCK - IV, nhấn print thì dữ liệu sẽ qua sheet DL MCK và 1 số thông tin sẽ qua sheet MSHS MN (với định dạng như dữ liệu mẫu & loại bỏ những dòng trống). Đồng thời 1 đoạn nội dung nho nhỏ tóm lược của sheet MCK - IV được gửi đến email của ai đó với mục đích kiểm soát bao nhiêu Invoice được phát hành (cái này em muốn gửi nguyên thông tin của sheet nhưng do trình độ có hạn em chỉ lấy được tóm lược thôi)
- Ở sheet DL MCK và MSHS MN được dùng filter, nhưng khi nhấn back to menu thì trả về dữ liệu đầy đủ (không làm mất dấu filter)
Tuy nhiên, em bị vướng một số chỗ
1. Code của em lòng thòng quá nên dữ liệu khoảng trên 500 dòng file đã nặng -> có cách nào làm giảm ko ạ?
2. Đoạn code báo lỗi ở dòng " If rng.Rows.Count > rng.SpecialCells(xlCellTypeVisible).Rows.Count Then " -> Lỗi này là gì và phải sửa thế nào ạ?
Sub Backtomenu_boloc()
Dim rng As Range
With ActiveSheet
If .AutoFilterMode Then
Set rng = .AutoFilter.Range
If rng.Rows.Count > rng.SpecialCells(xlCellTypeVisible).Rows.Count Then
.ShowAllData
End If
End If
End With
ActiveSheet.Visible = xlSheetVisible
Sheets("BDK").Select
End Sub
3. Khi gửi mail thì bảng bên dưới hiện ra, nhấn allow thì mail mới đi. Vì kiểm soát nên em muốn việc gửi mail phải âm thầm -> Làm sao để không hiện bảng này ạ?
Em cảm ơn các cao thủ nhiều ạ!!!!!!
