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é.
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 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.
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
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
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