cách truy tìm giá trị theo Name box quy định trong bảng.
Tại vì nếu khác sheet và phải đi tìm giá trị để click chọn thì rất là khó và lâu.
Hi,
Nếu mình hiểu đúng ý của bạn thì đây là một câu hỏi rất hay và có lẽ nhiều người cần đến. Nếu ý bạn là tạo tự động hàng loạt các Name box mà tên của nó gồm Sheet name & giá trị. Sau đó khi cần dùng thì chỉ cần gõ name box trong công thức của excel là OK. Đây là câu trả lời của mình. Hãy copy & paste vào VBA. Cách dùng:
Bước 1: Chọn range cần đặt tên
Bước 2: Chạy marco "Create_Name_Box"
=================================================
Option Explicit
Sub DeleteNames()
Dim xName As Name
For Each xName In Application.ActiveWorkbook.Names
xName.Delete
Next
End Sub
Sub Create_Name_Box()
Dim ActSheet As Worksheet
Dim SelRange As Range
Dim Cell_in_range As Range
Dim Name_Box_Cell As String
Call DeleteNames
Set ActSheet = ActiveSheet
Set SelRange = Selection
For Each Cell_in_range In SelRange
If Cell_in_range.Value <> "" Then
ActSheet.Names.Add Name:=ActSheet.Name & "_" & Cell_in_range.Value, _
RefersTo:=Cell_in_range
End If
Next
End Sub
