cái này mình làm được mà mình muốn hỏi là cái "MenWks" của bạn có cần khai bào gì không như "Menusheet" của mình không
code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngData As Range
If Target.Count > 1 Then Exit Sub
If Target.Row < 2 Then Exit Sub
If Target.Column > 8 Then Exit Sub
With ThisWorkbook.Sheets("MenuWks")
On Error Resume Next
ThisWorkbook.Names("Menu_Level").Delete
On Error GoTo 0
Set rngData = .Range(.[A2], .[A65536].End(xlUp).Offset(, 8))
ThisWorkbook.Names.Add _
Name:="Menu_Level", _
RefersToR1C1:="=" & rngData.Parent.Name & "!" & rngData.Address(True, True, xlR1C1)
End With
End Sub
bạn cho mình địa chỉ tạo menu có dấu của bạn làm cho mình đi! mình chỉnh sửa theo kiểu bạn nói thì không được rồi!