Short-cut cho Name box

[levanduyet]

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

 

[ForestC]

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ỉ, ???

 

[levanduyet]

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ỉ, ???

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

 

[ForestC]

Vậy như thế thì em hiểu rồi, thủ tục này có chức năng GoTo Name hả anh?