Trang 6 của 6 Đầu tiênĐầu tiên ... 456
Kết quả 51 đến 52 của 52

Chủ đề: Xóa Name rác.

  1. #51
    thethongminhvn Guest
    Trích dẫn Gửi bởi ndu96081631
    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
    Link tải Mediafire
    http://www.mediafire.com/download/a1...%A1c+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

  2. #52
    doremon29 Guest
    Link tải Mediafire
    http://www.mediafire.com/download/a1...%A1c+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

Trang 6 của 6 Đầu tiênĐầu tiên ... 456

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •