Short-cut cho Name box

Thảo luận trong 'Ứng dụng Excel' bắt đầu bởi levanduyet, 21 Tháng tư 2005.

3,081 lượt xem

  1. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    Excel cung cấp rất nhiều short cut,
    http://www.cpearson.com/excel/ShortCuts.htm
    Nhưng lại thiếu short cut cho name box.
    Thủ tục VBA sau sẽ giúp các bạn có short cut để đi đến Name box:
    (Bằng cách bạn tạo short cut cho thủ tục SetFocusNameBox)
    Public Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" _
    (ByVal hWnd1 As Long, ByVal hWnd2 As Long, _
    ByVal lpsz1 As String, ByVal lpsz2 As String) As Long


    Sub SetFocusNameBox()
    Dim Res As Long
    Res = SetFocus( _
    FindWindowEx( _
    FindWindowEx( _
    FindWindow("XLMAIN", Application.Caption) _
    , 0, "EXCEL;", vbNullString) _
    , 0, "combobox", vbNullString))
    End Sub
    Chúc các bạn thành công.
    Tham khảo từ www.cpearson.com
    Lê Văn Duyệt
     
    #1
  2. ForestC

    ForestC Thành viên sơ cấp

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Name box nào cơ hả anh? Theo em biết thì để vào hộp Paste Name thì ta có thể bấm F3, còn nếu muốn vào hộp quản lý Name đầy đủ hơn thì ta có thể bấm Ctrl+F3 cơ mà, ở đây anh muốn nói đến Name Box nào thế ạ, hay là trong Excel còn có cái Name Box thứ 2 mà em chưa có cơ hội được biết nhỉ, ???
     
    #2
  3. levanduyet

    levanduyet Welcome

    Bài viết:
    535
    Đã được thích:
    11
    Giới tính:
    Nam
    Nơi ở:
    HCM
    To:MaiKa,
    Name box là nơi thể hiện địa chỉ của cell khi em di chuyển (Góc bên trái của màn hình). Khi em di chuyển con trỏ chuột tới vị trí Name box thì sẽ thấy xuất hiện chữ Name box.
    Thân,
    Lê Văn Duyệt
     
    #3
  4. ForestC

    ForestC Thành viên sơ cấp

    Bài viết:
    377
    Đã được thích:
    1
    Nơi ở:
    E'rywhere
    Vậy như thế thì em hiểu rồi, thủ tục này có chức năng GoTo Name hả anh?
     
    #4

Chia sẻ trang này