Xóa Name rác. (1 người xem)

  • Thread starter Thread starter sealand
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Đang trực tuyến: 1 (Thành viên: 0, Khách: 1)
sealand

sealand

Thành viên gạo cội
Tham gia
16/5/08
Bài viết
4,883
Được thích
7,688
Giới tính
Nam
Nghề nghiệp
Kế Toán
Mình đã cài Virus Macro Warming của TUAN VNUNI. Khi sử dụng cảnh báo tốt.
Nhưng có 1 số file Excel (Mẫu báo cáo BHXH tải từ Internet ) báo xóa Name rác và mình chọn xóa nhưng chương trình không xóa được hết. Mình vào define--Name để Delete nhưng không được.
Các bạn chỉ mình cách nào xóa được Name dạng này với.
Xin cảm ơn.
 
- Gửi thẳng cho anh Tuân đi bạn ! Cũng là góp phần giúp anh Tuân hoàn thiện Add-Ins của mình !
 
solomon đã viết:
Mong các anh chị giúp đỡ! chân thành cảm ơn....!@2@
Nhấp chuột vào đây để mở rộng...
Bạn chen ngang topic người khác rồi.
Code xóa dòng nếu C =0
PHP: 
Sub XoaRow()
Dim eRow As Long
Sheet1.Select
eRow = [a65000].End(xlUp).Row

For i = eRow To 1 Step -1
    If Range("C" & i).Value = 0 Then Rows(i).Delete Shift:=xlUp
Next

End Sub
Nhờ Mod dời bài hộ, cám ơn!
 
Chẳng hiểu sao chương trình của bạn TUAN tôi không làm được
Trước đây thì có báo nhưng diệt không được , nay thì không báo luôn
 
sealand đã viết:
Mình đã cài Virus Macro Warming của TUAN VNUNI. Khi sử dụng cảnh báo tốt.
Nhưng có 1 số file Excel (Mẫu báo cáo BHXH tải từ Internet ) báo xóa Name rác và mình chọn xóa nhưng chương trình không xóa được hết. Mình vào define--Name để Delete nhưng không được.
Các bạn chỉ mình cách nào xóa được Name dạng này với.
Xin cảm ơn.
Nhấp chuột vào đây để mở rộng...
Có 1 vài name khá kỳ lạ, dùng chương trình xóa không được, xóa bằng tay cũng không xong... nhưng nếu anh mở file trên Excel2007 thì nó làm tất tần tật trong vòng 5s
 
BNTT đã viết:
Cái link đó chạy tốt mà anh.
Anh thử cái này xem sao: http://www.giaiphapexcel.com/forum/showthread.php?t=14137
Nhấp chuột vào đây để mở rộng...
Hồi nãy tải không đựoc, giờ thì đựoc rồi!
Mấy cái name này thật lạ, sau khi xóa xong thì đúng là không còn nhìn thấy nó trong define name nữa... nhưng nếu mở nó trên Excel2007 thì thấy vẩn còn nguyên!
Ah... xóa được rồi đấy
Nhân đây xin hỏi các cao thủ 1 vấn đề liên quan đến Sendkeys
Nếu tôi xóa các name bằng tay thì tôi làm như sau:
1> Chọn 1 sheet
2> Bấm Ctrl + F3
3> Bấm phím TAB
4> Bấm mũi tên lên
5> Bấm Alt + D
6> Bấm mũi tên lên
Lập lại bước 5 và 6 cho đến khi không còn name nào!
Vậy nếu tôi dùng Sendkey để thay thế các phím nóng mà tôi vừa bấm thì phải viết thế nào? Đã viết thử nhưng nó chạy không đúng
 

File đính kèm

Lần chỉnh sửa cuối:
Nếu bạn muốn xóa name nhanh thì đừng dùng lệnh senkey làm gì bạn vào đây sẽ thấy rất nhiều cách xóa name. Nếu tìm trên mục tìm kiếm thì còn nhiều nữa! http://www.giaiphapexcel.com/forum/showthread.php?t=3446 Lệnh Sendkey viết như sau: Application.SendKeys "%tmm" '
 
Lần chỉnh sửa cuối:
Po_Pikachu đã viết:
Nếu bạn muốn xóa name nhanh thì đừng dùng lệnh senkey làm gì bạn vào đây sẽ thấy rất nhiều cách xóa name. Nếu tìm trên mục tìm kiếm thì còn nhiều nữa!
http://www.giaiphapexcel.com/forum/showthread.php?t=3446
Lệnh Sendkey viết như sau:

Application.SendKeys "%tmm" '<- Alt + T + M + M
Application.SendKeys "^{v}" '<- Ctrl + V

Hoặc bạn vào lệnh Object Brower trên thanh công cụ VBA rồi gõ từ khóa Sendkeys. Khi tìm thấy tồi nhấn phải chuột chọn Help sẽ có rất nhiều thông tin cho bạn chọn đó!
Thân.
Nhấp chuột vào đây để mở rộng...
Ẹc... ẹc... bạn cứ thử xóa name trong file mà ThuNghi gữi lên sẽ biết! Chưong trình của bạn TuanVNUNI bó tay luôn rồi đấy, cả Excel2007 cũng không xóa được! Vậy mà tôi dùng cách "củ chuối" trên thì lại được
 
Ẹc..Ẹc.. Sao em dùng cách cùi bắp đó mà có thấy gì hết đâu! Nó vẫn trơ ra đó.
 
Lần chỉnh sửa cuối:
Po_Pikachu đã viết:
Ẹc..Ẹc.. Sao em dùng cách cùi bắp đó mà có thấy gì hết đâu! Nó vẫn trơ ra đó.
Nhấp chuột vào đây để mở rộng...
Có 1 vài name rất cứng đầu... sau khi bạn chạy code lần 1 thì đã có 1 số name bị xóa, còn lại cho dù bạn xóa bằng tay nó vẩn trơ trơ!
Lúc ấy hãy tạm lưu và đóng file lại, mở ra lần nữa rồi chạy code!
Chú ý: Phải chạy trên từng sheet 1 vì có 1 số name thuộc loại cục bộ (name của sheet chứ không phải của Workbook), chỉ nhìn thấy khi chọn vào sheet tương ứng
Đóng và lưu file, rồi lại mở ra kiểm tra, làm chừng 3 lần sẽ xóa sạch các name
Code của tôi đơn giãn như sau:
PHP: 
Sub Test()
  Application.SendKeys "^{F3}"
  Application.SendKeys "{TAB}"
  Application.SendKeys "{UP}"
  For i = 1 To 500
     Application.SendKeys "%d"
     Application.SendKeys "{UP}"
  Next
  Application.SendKeys "{ESC}"
End Sub
 
Lần chỉnh sửa cuối:
ndu96081631 đã viết:
Có 1 vài name rất cứng đầu... sau khi bạn chạy code lần 1 thì đã có 1 số name bị xóa, còn lại cho dù bạn xóa bằng tay nó vẩn trơ trơ!
Lúc ấy hãy tạm lưu và đóng file lại, mở ra lần nữa rồi chạy code!
Chú ý: Phải chạy trên từng sheet 1 vì có 1 số name thuộc loại cục bộ (name của sheet chứ không phải của Workbook), chỉ nhìn thấy khi chọn vào sheet tương ứng
Đóng và lưu file, rồi lại mở ra kiểm tra, làm chừng 3 lần sẽ xóa sạch các name
Code của tôi đơn giãn như sau:
PHP: 
Sub Test()
  Application.SendKeys "^{F3}"
  Application.SendKeys "{TAB}"
  Application.SendKeys "{UP}"
  For i = 1 To 500
     Application.SendKeys "%d"
     Application.SendKeys "{UP}"
  Next
  Application.SendKeys "{ESC}"
End Sub
Nhấp chuột vào đây để mở rộng...
Gia công quá, thú thật lúc đâu tôi xóa OK, sau này xóa lại để HD bà chị thì không được, cũng dùng Excel 2007. Cũng chả nhớ mình đã làm gì.
Sao cái Virus Macro được tạo ra từ Excel mà lại không thể từ Excel xoa nhỉ, hay là quay lại Ex97.
Dù sao cũng cám ơn bạn.
 
ThuNghi đã viết:
Gia công quá, thú thật lúc đâu tôi xóa OK, sau này xóa lại để HD bà chị thì không được, cũng dùng Excel 2007. Cũng chả nhớ mình đã làm gì.
Sao cái Virus Macro được tạo ra từ Excel mà lại không thể từ Excel xoa nhỉ, hay là quay lại Ex97.
Dù sao cũng cám ơn bạn.
Nhấp chuột vào đây để mở rộng...

Anh xem cái VirusMacroWarning có tiêu diệt được không nhé.
http://www.bluesofts.net/Products/AddIns/VirusMacroWarning/Index.htm
 
Gần đây tôi thường thấy trong file có 1 sheet ẩn, tên là XL4Poppy, chứa các mã lệnh của Macro 4.
Và có rất nhiều name rác (gần 400).

Tôi thường làm thế này:
1. Hiện và xóa XL4Poppy.
2. Chạy vài lần 2 macro sau

Sub xoa_ten()
For i = 1 To Names.Count
Names(1).Delete
Next
End Sub

Sub Doi_Noi_Dung_ten()
For i = 1 To Names.Count
Names(i).Value = "A1"
Next
End Sub

3. Xóa tiếp bằng tay, có thể dùng SUB với Sendkeys
4. Đóng file và chương trình Excel trước khi làm tiếp với Excel

Thông thường, dung lượng file giảm khoảng 600 KB.
 
Lần chỉnh sửa cuối:
Tôi dùng thử VirusMacroWarning nhưng vẫn không xóa được hết các Name rác và vẫn phải xóa bằng tay. Tôi gửi kèm 2 files dưới đây: book1.xls là file gốc, book2.xls là file đã dùng VirusMacroWarning để xóa các Name rác, mọi người kiểm tra dùm.
 

File đính kèm

  • 1.rar
    1.rar
    184.9 KB · Đọc: 60

File đính kèm

Bạn vẫn dùng VirusMacroWarning hay vào Define Name để xoá từng name?
 
hỏi về ký hiệu % & ^ trong sendkey

PHP: 
Application.SendKeys "%tmm" '<- Alt + T + M + M
Application.SendKeys "^{v}" '<- Ctrl + V

Em thấy trong phương thức sendkey có ký hiệu % và ^
Em xin hỏi % thay thế cho Alt
và ............^ thay thế cho Ctrl

phải không?

Xin cám ơn
 
Chí phải, thậm chí không phải thay thế mà quy ước phải viết vậy.(3 nút chức năng: Shift: + Alt: % Ctrl: ^ )
 
Lần chỉnh sửa cuối:

File đính kèm

Le duy Thuong đã viết:
tôi dùng office 2010 vào name manager xóa 1 phát ăn ngay
cho thêm 2 tấn nữa cũng đi tuốt
hee heee
Nhấp chuột vào đây để mở rộng...

Hix, Excel 2007 đã làm được việc đó rồi,
Đây là hình như đang nói là Excel 2003 trở về trước, và tôi thấy rất nhiều người đang dùng !
 
Thấy mọi người thảo luận name, mình tìm được một chương trình diệt virus name của Do Thanh Nhan ở Quảng Ngãi gửi lên để mọi người tham khảo, bảo đảm diệt sạch virus.
 

File đính kèm

Cài Excel 2010 là ok!!!

yeudoi đã viết:
Thấy mọi người thảo luận name, mình tìm được một chương trình diệt virus name của Do Thanh Nhan ở Quảng Ngãi gửi lên để mọi người tham khảo, bảo đảm diệt sạch virus.
Nhấp chuột vào đây để mở rộng...

tôi cũng bị vấn đề này làm đau cả đầu. tuy nhiên sau khi dùng ecel 2010 thì del một phát cản nghìn name (Chắc bác Bill Gate cũng bị quả này nên đã cải tiến excel), tuy nhiên phải lưu ý bỏ del những name do chình mình tạo ra khong thì bảng tính của bạn cũng die luôn
 
Em tìm thấy 1 đoạn code và thử thì thấy diệt name rác khá nhanh và hiệu quả, tuy nhiên chưa hiểu rõ được đoạn code diệt name rác trên căn cứ vào nguyên lý gì và đã diệt những cái gì nên mong các bác giải thích giùm?
Sub DeleteErrName()
On Error Resume Next
Dim NSh As Name, i As Integer
Dim OldStatus As Boolean, ThongBao As String
OldStatus = Application.DisplayStatusBar
Sheets.Add.Name = "ShName"
For Each NSh In ActiveWorkbook.Names
If InStr(1, NSh.RefersToR1C1, "#") > 0 Or _
InStr(1, NSh.RefersToR1C1, "\") > 0 Then
i = i + 1
Application.StatusBar = "Deleted : " & Format(i, "#,##0") & _
" Deleting...: " & NSh.Name
Sheets("ShName").Range("A" & i).Value = NSh.Name
Sheets("ShName").Range("B" & i).Value = " " & NSh.RefersToR1C1
NSh.Delete
End If
Next
If i > 0 Then _
ThongBao = ThongBao & Chr(13) & Chr(13) & " -" & Format(i, "#,##0") & " Names da xoa"

MsgBox ThongBao, vbInformation, "GPE"

Application.StatusBar = ""
Application.DisplayStatusBar = OldStatus
End Sub
 
thangcola114 đã viết:
Em tìm thấy 1 đoạn code và thử thì thấy diệt name rác khá nhanh và hiệu quả, tuy nhiên chưa hiểu rõ được đoạn code diệt name rác trên căn cứ vào nguyên lý gì và đã diệt những cái gì nên mong các bác giải thích giùm?
Sub DeleteErrName()
On Error Resume Next
Dim NSh As Name, i As Integer
Dim OldStatus As Boolean, ThongBao As String
OldStatus = Application.DisplayStatusBar
Sheets.Add.Name = "ShName"
For Each NSh In ActiveWorkbook.Names
If InStr(1, NSh.RefersToR1C1, "#") > 0 Or _
InStr(1, NSh.RefersToR1C1, "\") > 0 Then
i = i + 1
Application.StatusBar = "Deleted : " & Format(i, "#,##0") & _
" Deleting...: " & NSh.Name
Sheets("ShName").Range("A" & i).Value = NSh.Name
Sheets("ShName").Range("B" & i).Value = " " & NSh.RefersToR1C1
NSh.Delete
End If
Next
If i > 0 Then _
ThongBao = ThongBao & Chr(13) & Chr(13) & " -" & Format(i, "#,##0") & " Names da xoa"

MsgBox ThongBao, vbInformation, "GPE"

Application.StatusBar = ""
Application.DisplayStatusBar = OldStatus
End Sub
Nhấp chuột vào đây để mở rộng...

Đoạn code trên không ăn thua gì bạn à. Nó chỉ xóa các name thông thường (không phải loại hiểm) và chỉ ở phạm vi workbook. Thực ra người ta tạo các virus macro và name hiểm ở các sheet (ở workbook không thấy), các dạng Dialog sheet, Chart Sheet, worksheet, macrosheet, các name tạo ra cố tình để các công cụ không xoá được. Các bạn lưu ý là name rác thường là hậu quả sau quá trình hoạt động của virus macro hoặc do chính người dùn tạo thừa và không dùng đến, có nghĩa là khi các bạn nhìn thấy nó thì virus đã làm cái gì trước đó rồi. Công cụ VirusMacroWarning là ngăn chặn từ khi nó bắt đầu hoạt động khi Excel bật và mở file, kiểm soát khi lưu dữ liệu. Sau khi chặn xong thì mới tiến hành tìm name rác cũ của file và thông báo diệt. Thủ thuật diệt name rác cứng đầu không phải chỉ bằng lệnh Delete thông thường của Excel đâu, còn cả kỹ thuật hook, API.
Các bạn cần công cụ ngăn chặn và diệt tự động virus macro và xóa name rác nên cập nhật các phiên bản mới của VirusMacroWarning.

Những bạn làm phụ trách IT của một đơn vị, thay vì cứ thỉnh thoảng phải trả lời điện thoại rồi đến sửa máy vì virus macro thì tốt nhất bảo họ download và cài VirusMacroWarning là nhẹ người.

Download
 
Lần chỉnh sửa cuối:
Nguyễn Duy Tuân đã viết:
Đoạn code trên không ăn thua gì bạn à. Nó chỉ xóa các name thông thường (không phải loại hiểm) và chỉ ở phạm vi workbook. Thực ra người ta tạo các virus macro và name hiểm ở các sheet (ở workbook không thấy), các dạng Dialog sheet, Chart Sheet, worksheet, macrosheet, các name tạo ra cố tình để các công cụ không xoá được. Các bạn lưu ý là name rác thường là hậu quả sau quá trình hoạt động của virus macro hoặc do chính người dùn tạo thừa và không dùng đến, có nghĩa là khi các bạn nhìn thấy nó thì virus đã làm cái gì trước đó rồi. Công cụ VirusMacroWarning là ngăn chặn từ khi nó bắt đầu hoạt động khi Excel bật và mở file, kiểm soát khi lưu dữ liệu. Sau khi chặn xong thì mới tiến hành tìm name rác cũ của file và thông báo diệt. Thủ thuật diệt name rác cứng đầu không phải chỉ bằng lệnh Delete thông thường của Excel đâu, còn cả kỹ thuật hook, API.
Các bạn cần công cụ ngăn chặn và diệt tự động virus macro và xóa name rác nên cập nhật các phiên bản mới của VirusMacroWarning.

Những bạn làm phụ trách IT của một đơn vị, thay vì cứ thỉnh thoảng phải trả lời điện thoại rồi đến sửa máy vì virus macro thì tốt nhất bảo họ download và cài VirusMacroWarning là nhẹ người.

Download
Nhấp chuột vào đây để mở rộng...

File đính kèm dưới đây chương trình VirusMacroWarning đã xóa được tổng cộng 2963 Name, còn khoảng 360 Name không xóa được.
 

File đính kèm

Cách diệt Name rác+Name conflict ???

Nguyễn Duy Tuân đã viết:
Đoạn code trên không ăn thua gì bạn à. Nó chỉ xóa các name thông thường (không phải loại hiểm) và chỉ ở phạm vi workbook. Thực ra người ta tạo các virus macro và name hiểm ở các sheet (ở workbook không thấy), các dạng Dialog sheet, Chart Sheet, worksheet, macrosheet, các name tạo ra cố tình để các công cụ không xoá được. Các bạn lưu ý là name rác thường là hậu quả sau quá trình hoạt động của virus macro hoặc do chính người dùn tạo thừa và không dùng đến, có nghĩa là khi các bạn nhìn thấy nó thì virus đã làm cái gì trước đó rồi. Công cụ VirusMacroWarning là ngăn chặn từ khi nó bắt đầu hoạt động khi Excel bật và mở file, kiểm soát khi lưu dữ liệu. Sau khi chặn xong thì mới tiến hành tìm name rác cũ của file và thông báo diệt. Thủ thuật diệt name rác cứng đầu không phải chỉ bằng lệnh Delete thông thường của Excel đâu, còn cả kỹ thuật hook, API.
Các bạn cần công cụ ngăn chặn và diệt tự động virus macro và xóa name rác nên cập nhật các phiên bản mới của VirusMacroWarning.

Những bạn làm phụ trách IT của một đơn vị, thay vì cứ thỉnh thoảng phải trả lời điện thoại rồi đến sửa máy vì virus macro thì tốt nhất bảo họ download và cài VirusMacroWarning là nhẹ người.

Download
Nhấp chuột vào đây để mở rộng...
Rất cảm ơn anh Tuân. Em đã download và dùng phần mềm VirusMacroWarning của anh.
Phần mềm rất tiện ích cho anh em văn phòng khi diệt virus excell.
Hiện nay em đang gặp phải 2 vấn đề chưa biết làm sao để giải quyết nhờ anh tư vấn giúp:
1. Phần mềm VirusMacroWarning dùng kèm theo phần mềm dự toán Aciit thì phần mềm luôn hiện thông báo chặn các macro sạch của phần mềm dự toán, liệu có cách nào có thể đưa các macro này vào danh sách tin tưởng của phần mềm để không bị hỏi lại mỗi khi sử dụng phần mềm dự toán không? (em thấy có nút cho phép chạy nhưng mỗi lần mở phần mềm lại phải kích hoạt vào đó nên hơi bất tiện)
2. Hiện tại, em có một số file excell bị lỗi Name conflict, lúc mở bằng excell 2003+Phần mềm VirusMacroWarning đã quét hết name rác, tuy nhiên không xóa hết được Name conflict nên không mở được bằng excell 2007 (khi mở excell bị đơ, không mở được file), có cách nào để có thể tắt chế độ kiểm tra name conflict trên excell 2007 không?
Em gửi kèm file ở mục 2 nhờ anh xem giúp
 

File đính kèm

Tôi sẽ kiểm tra khả năng diệt trên các file các bạn gửi, sẽ thông báo lại các bạn sau. Về phần mềm dự toán 97 hình như tác giả viết bằng ngôn ngữ Macro4 - Đây là ngôn ngữ phần lớn virus macro sử dụng để vận hành, nếu có thể tác giả gửi các sheet chứa Macro4 của phần mềm để đưa vào "danh sách định nghĩa ngoại trừ" vào mail: duytuan@bluesofts.net .
 
Không xóa được các name rác trong file excel.

ndu96081631 đã viết:
Có 1 vài name khá kỳ lạ, dùng chương trình xóa không được, xóa bằng tay cũng không xong... nhưng nếu anh mở file trên Excel2007 thì nó làm tất tần tật trong vòng 5s
Nhấp chuột vào đây để mở rộng...
-----------
Chào anh, em đã dùng excel2007 để xóa name rác file đính kèm nhưng vẫn ko được, xóa xong sau đó kiểm tra lại thì vẫn còn. Anh có thể chỉ giúp em cách xóa các name rác này ko ạ.
Cám ơn anh nhiều!
 

File đính kèm

hoainam9902 đã viết:
-----------
Chào anh, em đã dùng excel2007 để xóa name rác file đính kèm nhưng vẫn ko được, xóa xong sau đó kiểm tra lại thì vẫn còn. Anh có thể chỉ giúp em cách xóa các name rác này ko ạ.
Cám ơn anh nhiều!
Nhấp chuột vào đây để mở rộng...

Đã xóa rồi đây
Ngoài name rác, file của bạn còn có style rác nữa nhé (nói chung là cả đống rác)
 

File đính kèm

ndu96081631 đã viết:
Đã xóa rồi đây
Ngoài name rác, file của bạn còn có style rác nữa nhé (nói chung là cả đống rác)
Nhấp chuột vào đây để mở rộng...
---------
Cám ơn anh nhiều nhé, anh xóa bằng cách nào vậy, nếu có thể thì chỉ cho em biết với vì em hay phải làm tổng hợp khối lượng từ các file của mọi người gửi lên. nhiều file nặng quá nên tính toán cũng chậm.
 
tôi có nhận được file này, xoá bằng Công cụ VirusMacroWarning của anh tuân cũng không xong, xoá bằng cách của thầy ndu cũng không được, xoá bằng ex2007 vẫn trơ ra. mọi người xem dùm. ( file đã xoá dữ liệu cho bớt nặng)
 

File đính kèm

thang314 đã viết:
tôi có nhận được file này, xoá bằng Công cụ VirusMacroWarning của anh tuân cũng không xong, xoá bằng cách của thầy ndu cũng không được, xoá bằng ex2007 vẫn trơ ra. mọi người xem dùm. ( file đã xoá dữ liệu cho bớt nặng)
Nhấp chuột vào đây để mở rộng...

Nếu bạn dùng code DeleteName của tôi thì đầu tiên bạn phải Save As file thành xlsx trước đã ---> Bảo đảm chạy code sẽ sạch bóng
 

File đính kèm

Lần chỉnh sửa cuối:
thang314 đã viết:
tôi có nhận được file này, xoá bằng Công cụ VirusMacroWarning của anh tuân cũng không xong, xoá bằng cách của thầy ndu cũng không được, xoá bằng ex2007 vẫn trơ ra. mọi người xem dùm. ( file đã xoá dữ liệu cho bớt nặng)
Nhấp chuột vào đây để mở rộng...

Tôi mở file của bạn và diệt cùng VirusMacroWarning 3 lần (mở đi mở lại) là diệ hết 100% các name được cho là rác - vô tác dụng. Thực ế còn một số name công cụ VirusMacroWarning không diệt vì nghi ngờ đó là name hợp lệ, bạn muốn xóa phần còn lại thì vào tab Formula->Name Manager để xóa nhé.
 
File trên nếu xóa = Excel 2013, xóa được hết, nhưng khi lưu file lại, nó lại xuất hiện.
 
thang314 đã viết:
tôi có nhận được file này, xoá bằng Công cụ VirusMacroWarning của anh tuân cũng không xong, xoá bằng cách của thầy ndu cũng không được, xoá bằng ex2007 vẫn trơ ra. mọi người xem dùm. ( file đã xoá dữ liệu cho bớt nặng)
Nhấp chuột vào đây để mở rộng...
FILE NÀY XÓA QUÁ ĐƠN GIẢN BẰNG EXCEL 2010-2013
1 MỞ FILE LÊN BẤM F12 LƯA THÀNH .XLSX
2 VÀO NAME MANAGER XÓA HẾT NAME RÁC
3 CLICK CHUỘT FILE VÀO TÊN SHEET INHIDE 2 SHEET ~ VÀ XL4Poppy . XÓA 2 SHEET NÀY ĐI VÀ LƯU LẠI THÀNH .XLS
XONG
XEM FILE
 
Nguyễn Duy Tuân đã viết:
Tôi mở file của bạn và diệt cùng VirusMacroWarning 3 lần (mở đi mở lại) là diệ hết 100% các name được cho là rác - vô tác dụng. Thực ế còn một số name công cụ VirusMacroWarning không diệt vì nghi ngờ đó là name hợp lệ, bạn muốn xóa phần còn lại thì vào tab Formula->Name Manager để xóa nhé.
Nhấp chuột vào đây để mở rộng...
Anh Tuân có thể hướng dẫn em cách xóa virus macro bằng phần mềm VirusMacroWarning của anh không ạ. Em đã cài rồi nhưng em chưa biết cách dùng ạ.
 
nguyenngocha666 đã viết:
Anh Tuân có thể hướng dẫn em cách xóa virus macro bằng phần mềm VirusMacroWarning của anh không ạ. Em đã cài rồi nhưng em chưa biết cách dùng ạ.
Nhấp chuột vào đây để mở rộng...

Sau khi cài thì phần mềm diệt virus macro VirusMacroWarning tự chạy cùng Excel. Bạn mở file Excel, nếu có hiện tượng virus phần mềm sẽ có thông báo để diệt.
Download bản mới nhất tại www.bluesofts.net
 
Anh Tuân cho em xin địa chỉ mail của anh. Em gửi cho anh 1 file anh giúp em xóa File rác với ạ.
 
Lần chỉnh sửa cuối:
Anh chị nào sử dụng teamview thì hộ em trực tiếp với. File của em nặng quá em không đính kèm được ạ. Nếu hộ được nhắn lại em sẽ gửi ID và mật khẩu team của em.
 
Em dùng teamview 8, ID: 395 247 158; pass: 7343 mong anh chị giúp đỡ. Em mở teamview rồi ạ.
 
Nhờ mấy tiền bối giúp em giải quyết file này với
em mở lên nó chạy chậm hơn chữ chậm nữa (còn hơn ốc sên)
em cảm ơn các tiền bối
mail của em đây: hdlinhqlcn@gmail.com
 
tình hình là cài thử cái VirusMacroWarning để xem nó dư lào, có hữu ích gì ko thì thấy nó có cài quả bsfixwin.exe vào thư mục System và luôn chạy live ( tốn RAM ), check thử xem nó là file gì, có đáng tin cậy ko thì ko có thông tin gì -> nói chung ko đáng tin cậy. ae take care.
http://processchecker.com/file/bsfixwin.exe.html
 
ndu96081631 đã viết:
Hồi nãy tải không đựoc, giờ thì đựoc rồi!
Mấy cái name này thật lạ, sau khi xóa xong thì đúng là không còn nhìn thấy nó trong define name nữa... nhưng nếu mở nó trên Excel2007 thì thấy vẩn còn nguyên!
Ah... xóa được rồi đấy
Nhân đây xin hỏi các cao thủ 1 vấn đề liên quan đến Sendkeys
Nếu tôi xóa các name bằng tay thì tôi làm như sau:
1> Chọn 1 sheet
2> Bấm Ctrl + F3
3> Bấm phím TAB
4> Bấm mũi tên lên
5> Bấm Alt + D
6> Bấm mũi tên lên
Lập lại bước 5 và 6 cho đến khi không còn name nào!
Vậy nếu tôi dùng Sendkey để thay thế các phím nóng mà tôi vừa bấm thì phải viết thế nào? Đã viết thử nhưng nó chạy không đúng
Nhấp chuột vào đây để mở rộng...

Link tải Mediafire
http://www.mediafire.com/download/a1jn57t6od6c97d/Xóa+name+rác+excel.exe



Hướng dẫn:


1. Mở file excel chưa nhiều tên rác
~> Chú ý: để file excel full màn hình (maximize) ^^!



2. Click đúp chương trình "auto xóa name rác"
Hiện bẳng thông báo

~> Click "OK"



3. Các phím chức năng:
~> F6: để bắt đầu

F7: để tạm dừng
F8: để thoát
 
Lần chỉnh sửa cuối:
Link tải Mediafire
http://www.mediafire.com/download/a1jn57t6od6c97d/Xóa+name+rác+excel.exe



Hướng dẫn:


1. Mở file excel chưa nhiều tên rác
~> Chú ý: để file excel full màn hình (maximize) ^^!



2. Click đúp chương trình "auto xóa name rác"
Hiện bẳng thông báo

~> Click "OK"



3. Các phím chức năng:
~> F6: để bắt đầu

F7: để tạm dừng
F8: để thoát

code autoit:
MsgBox(64,"Auto xóa name rác by Tuấn Anh","F6 Bắt đầu" & @crlf & "F7 Tạm dừng"& @crlf &"F8 Thoát")
ToolTip("F6 Bắt đầu - F7 Tạm dừng - F8 Thoát",0,0)
While 1
HotKeySet("{f6}","a")
HotKeySet("{f7}","b")
HotKeySet("{f8}","c")
WEnd
Func a()
Send("^{F3}")
while 1
MouseClick("left",567,274,1,1)
sleep(1)
Send("{delete}")
sleep(1)
Send("{enter}")
sleep(1)
wend
EndFunc
Func b()
While 1
ToolTip("Đang tạm dừng F6 Bắt đầu - F8 Thoát",0,0)
sleep(1000)
WEnd
EndFunc
Func c()
Exit
EndFunc
 
Lần chỉnh sửa cuối:
Excel 2007 trở lên trên menu Formulas chọn lệnh Name Manager bạn có thể chọn xóa hàng loạt những Name ảo, Name lỗi.
 
ndu96081631 đã viết:
Có 1 vài name rất cứng đầu... sau khi bạn chạy code lần 1 thì đã có 1 số name bị xóa, còn lại cho dù bạn xóa bằng tay nó vẩn trơ trơ!
Lúc ấy hãy tạm lưu và đóng file lại, mở ra lần nữa rồi chạy code!
Chú ý: Phải chạy trên từng sheet 1 vì có 1 số name thuộc loại cục bộ (name của sheet chứ không phải của Workbook), chỉ nhìn thấy khi chọn vào sheet tương ứng
Đóng và lưu file, rồi lại mở ra kiểm tra, làm chừng 3 lần sẽ xóa sạch các name
Code của tôi đơn giãn như sau:
PHP: 
Sub Test()
  Application.SendKeys "^{F3}"
  Application.SendKeys "{TAB}"
  Application.SendKeys "{UP}"
  For i = 1 To 500
     Application.SendKeys "%d"
     Application.SendKeys "{UP}"
  Next
  Application.SendKeys "{ESC}"
End Sub
Nhấp chuột vào đây để mở rộng...
Dòng For i = 1 To 500
Sửa thành For i = 1 To Names.count để chạy 1 lần thôi.
 
ndu96081631 đã viết:
Bài này lâu lắm rồi. Đâu phải người ta không biết cái Names.Count mà hình như bạn chưa biết chuyện gì đang xảy ra thì phải?
Nhấp chuột vào đây để mở rộng...
Lâu rồi ghé ngang chơi tự nhiên thấy kêu phải làm 3 lần nên gõ vài chữ thử coi GPE còn đông người như ngày nào không đó mà! :)
 
Em có file này, Name rác quá trời, mong các anh chị xóa name rác dùm em (em có thử các cách trong topic mà không được)
 

File đính kèm

Cám ơn Thầy ndu nhiều!!!
 

File đính kèm

em tìm được đoạn code này để xoá name ẩn trong file nhưng khi tìm thấy name ẩn phải click "yes" để xác nhận xoá name, nhờ các anh chị sửa code giúp em để tự động xoá name ẩn mà không cần click "yes" để xác nhận xoá từng name không ạ. cảm ơn các anh chị nhiều.



Sub Remove_Hidden_Names()

' Dimension variables.
Dim xName As Variant
Dim Result As Variant
Dim Vis As Variant

' Loop once for each name in the workbook.
For Each xName In ActiveWorkbook.Names

'If a name is not visible (it is hidden)...
If xName.Visible = True Then
Vis = "Visible"
Else
Vis = "Hidden"
End If

' ...ask whether or not to delete the name.
Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
Chr(10) & xName.Name & "?" & Chr(10) & _
"Which refers to: " & Chr(10) & xName.RefersTo, _
Buttons:=vbYesNo)

' If the result is true, then delete the name.
If Result = vbYes Then xName.Delete

' Loop to the next name.
Next xName

End Sub
 
kienhv9991 đã viết:
em tìm được đoạn code này để xoá name ẩn trong file nhưng khi tìm thấy name ẩn phải click "yes" để xác nhận xoá name, nhờ các anh chị sửa code giúp em để tự động xoá name ẩn mà không cần click "yes" để xác nhận xoá từng name không ạ. cảm ơn các anh chị nhiều.
Sub Remove_Hidden_Names()
' Dimension variables.
Dim xName As Variant
Dim Result As Variant
Dim Vis As Variant
' Loop once for each name in the workbook.
For Each xName In ActiveWorkbook.Names
'If a name is not visible (it is hidden)...
If xName.Visible = True Then
Vis = "Visible"
Else
Vis = "Hidden"
End If

' ...ask whether or not to delete the name.
Result = MsgBox(prompt:="Delete " & Vis & " Name " & _
Chr(10) & xName.Name & "?" & Chr(10) & _
"Which refers to: " & Chr(10) & xName.RefersTo, _
Buttons:=vbYesNo)

' If the result is true, then delete the name.
If Result = vbYes Then xName.Delete

' Loop to the next name.
Next xName
End Sub
Nhấp chuột vào đây để mở rộng...
Bạn thử xóa đoạn bôi đỏ xem sao.
 
Lần chỉnh sửa cuối:
Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây.

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

Q
Không chỉnh sửa, copy được hình ảnh trong file excel. (3 người xem)
Trả lời
6
Đọc
4K
thaivanthao
T
L
Nhờ giúp file word (3 người xem)
Trả lời
1
Đọc
77
minhminh27
minhminh27
GPE-Trợ Lý
[GPE] TASKSHOW 14: TỪ BẢNG TÍNH ĐẾN BÁO CÁO ĐỘNG - BẮT ĐẦU VỚI LOOKER STUDIO (3 người xem)
    • Thích
Trả lời
1
Đọc
11K
GPE-Trợ Lý
GPE-Trợ Lý
dungluyen2119
  • Question Question
Code VBA để tính tổng theo chiều ngang mà số cột không cố định (1 người xem)
Trả lời
5
Đọc
258
dungluyen2119
dungluyen2119
ongke0711
  • Question Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
    • Cảm ơn
2 3 4
Trả lời
390
Đọc
46K
phdong
P
8
Theo dõi bán hàng
Trả lời
10
Đọc
309
84huong
8
L
  • Question Question
Nhờ sửa code ChrW () (1 người xem)
Trả lời
2
Đọc
94
le_vis
L
N
  • Question Question
Hỗ trợ tiếng việt trong macro
Trả lời
12
Đọc
525
Quang_Hải
Quang_Hải
D
xin hỏi về lỗi mô đun ẩn.
Trả lời
6
Đọc
295
du trung kien
D
haohvnh
Lỗi hàm SUM không hiển thị ra kết quả
Trả lời
19
Đọc
45K
ptm0412
ptm0412
minhduc1o2
Hình ảnh bị lỗi #VALUE (1 người xem)
Trả lời
5
Đọc
174
minhduc1o2
minhduc1o2
ongke0711
  • Question Question
Tra cứu thông tin mã số thuế (cập nhật lại code cũ)
    • Thích
    • Cảm ơn
    • Yêu thích
Trả lời
5
Đọc
310
ongke0711
ongke0711
befaint
Chia sẻ tâm tư, xả nỗi lòng
    • Thích
6 7 8
Trả lời
761
Đọc
61K
SA_DQ
SA_DQ
S
  • Question Question
Object.close và Set Object = nothing
Trả lời
14
Đọc
1K
nguyendang95
N
H
Lỗi khi sort data xin được hỗ trợ
Trả lời
2
Đọc
123
hunglq48
H
Nguyenkhang2404
Tính định mức sản phẩm (1 người xem)
    • Chấp nhận
Trả lời
9
Đọc
371
Nguyenkhang2404
Nguyenkhang2404
T
Ngắt kết nối với tệp lệnh đính kèm
Trả lời
2
Đọc
136
TungXauGiai
T
ongke0711
  • Question Question
Trộn dữ liệu từ Excel sang Word mở rộng (phiên bản ongke0711)
    • Thích
    • Yêu thích
    • Cảm ơn
2 3
Trả lời
277
Đọc
35K
joker102
J
S
tỷ lệ % không khớp khi cộng tổng
Trả lời
2
Đọc
112
snoobcool
S
D
Tên sheet bị che khuất khi thực hiện sửa tên sheet
Trả lời
1
Đọc
273
PhamMaiTB
P
Xem thêm…

Thành viên có số lượng bài viết cao nhất tháng

Thành viên có điểm tương tác cao nhất tháng

Thời gian đếm ngược.

000
Ngày
00
Giờ
00
phút
00
giây
Thân mời tham dự sự kiện sinh nhật GPE 2025
Back
Top Bottom