List Name Define

[ThuNghi]

Nhờ các bạn chỉ giúp:
- Có cách nào liệt kê các Name Define vào 1 Sh, và nếu có thể link đến giống như Hype link
- Và ngược lại có cách gì đặt Name Define từ một Sheet, vd: A1=mang1=Sh(2).A1:A100
Xin cám ơn

 

[Đào Việt Cường]

Dear ThuNghi,
-------------
Theo mình thì không có CÔNG THỨC nào như vậy cả!

 

[nvson]

Tạo Names từ danh sách:

Option Explicit
Sub Creat_Name()
'Chon vung de dat ten
'cot thu 1 la Names
'cot thu 2 la RefersTo
On Error GoTo thoat
Dim rngData As Range
Dim i As Integer
Set rngData = Selection
For i = 1 To rngData.Rows.Count
    ActiveWorkbook.Names.Add rngData.Cells(i, 1), _
    Range(rngData.Cells(i, 2).Text)
Next i
thoat:
End Sub

Insert Name (kèm theo cả đường link

Sub Link_Paste_Names()
On Error GoTo thoat
Dim row1 As Integer, col1 As Integer
Dim i As Integer
row1 = ActiveCell.Row
col1 = ActiveCell.Column
For i = 1 To ActiveWorkbook.Names.Count
    Cells(row1 + i - 1, col1) = ActiveWorkbook.Names(i, 1, 1).NameLocal
    Cells(row1 + i - 1, col1 + 1) = Mid(ActiveWorkbook.Names(i, 1, _ 
    1).RefersTo, 2)
    Cells(row1 + i - 1, col1 + 1).Select
    Selection.Hyperlinks.Add Anchor:=Selection, Address:="", _ 
    SubAddress:=ActiveWorkbook.Names(i, 1, 1).RefersTo
Next i
thoat:
End Sub

 

[WhoamI]

Nhờ các bạn chỉ giúp:
- Có cách nào liệt kê các Name Define vào 1 Sh, và nếu có thể link đến giống như Hype link

Bạn down add-in của anh Maika về sử dụng nhé! Với mình thì Name manager rất hữu dụng, gon nhẹ để quản lý các Name Define

 

[ThuNghi]

Vô cùng cám ơn!

 

[ditimdl]

Trong Namemanager.rar có phần dịch số ra chữ, khi dịch số tiền tỷ trở lên thì nó bị sai chữ tỷ? Vậy làm sao để edit nó vậy các bạn.

 

[ThuNghi]

Bạn nhấn Alt F11 và vào Modules hamthongdung
Function VNUD(baonhieu)
....
Doc = Array("None", "ng" & ChrW$(224) & "n t" & ChrW$(272), "t" & ChrW$(272), "tri" & ChrW$(7879) & "u", "ng" & ChrW$(224) & "n", ChrW$(273) & ChrW$(7891) & "ng", "")
Thay thế số 272 bằng số 7927