Hix, Vào Define Name mà xóa từng Name có mà đến tuần sau à ...?Gửi bởi thaycung
Ăn thua là tùy ở từng cái VirusMacroWarning...
Hix, Vào Define Name mà xóa từng Name có mà đến tuần sau à ...?Gửi bởi thaycung
Ăn thua là tùy ở từng cái VirusMacroWarning...
Em thấy trong phương thức sendkey có ký hiệu % và ^Mã nguồn PHP:
Application.SendKeys "%tmm" '<- Alt + T + M + MApplication.SendKeys "^{v}" '<- Ctrl + 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: ^ )
tôi dùng office 2010 vào name manager xóa 1 phát ăn ngayGửi bởi dat_butmuc
cho thêm 2 tấn nữa cũng đi tuốt
hee heee
Hix, Excel 2007 đã làm được việc đó rồi,Gửi bởi Le duy Thuong
Đâ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.
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ônGửi bởi yeudoi
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
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.Gửi bởi Nguyễn Duy Tuân
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 .