Vba excel: Xin hỏi cách kiểm tra sự tồn tại của name define (1 người xem)

[today100506]

Xin chào anh chị,
Em muốn hỏi 1 câu hỏi rất đơn giản,
Em đã xem qua nhiều bài nhưng vẫn chưa làm được mong anh/ chị giúp đỡ.

Giả sử: Trong sheet em tạo 1 name động: "object"

Hỏi: Xin hướng dẫn Cách viết code kiểm tra sự tồn tại của name động "object" trên

Em đã làm được như thế này:

Sub test()
      dim b as boolean
[COLOR="#FF0000"]      ' code kiểm tra name "object" tồn tại, chỗ này em chưa biết viết code gì ???[/COLOR]
      ' if b=true then
              msgbox "name tồn tại"
        else
              msgbox "name không tồn tại"
        end if
End sub

XIN CẢM ƠN !

 

[hungpecc1]

Xin chào anh chị,
Em muốn hỏi 1 câu hỏi rất đơn giản,
Em đã xem qua nhiều bài nhưng vẫn chưa làm được mong anh/ chị giúp đỡ.

Giả sử: Trong sheet em tạo 1 name động: "object"

Hỏi: Xin hướng dẫn Cách viết code kiểm tra sự tồn tại của name động "object" trên

Em đã làm được như thế này:

Sub test()
      dim b as boolean
[COLOR=#FF0000]      ' code kiểm tra name "object" tồn tại, chỗ này em chưa biết viết code gì ???[/COLOR]
      ' if b=true then
              msgbox "name tồn tại"
        else
              msgbox "name không tồn tại"
        end if
End sub

XIN CẢM ƠN !

Sub Macro1()
Dim name As name
    For Each name In ActiveWorkbook.Names
        s = name.name
        If UCase(s) = UCase(" Ten can kiem tra") Then
            MsgBox " TON TAI"
        Else
            MsgBox "CHUA TON TAI"
        End If
    Next
End Sub

 

[ndu96081631]

Xin chào anh chị,
Em muốn hỏi 1 câu hỏi rất đơn giản,
Em đã xem qua nhiều bài nhưng vẫn chưa làm được mong anh/ chị giúp đỡ.

Giả sử: Trong sheet em tạo 1 name động: "object"

Hỏi: Xin hướng dẫn Cách viết code kiểm tra sự tồn tại của name động "object" trên

Em đã làm được như thế này:

Sub test()
      dim b as boolean
[COLOR=#FF0000]      ' code kiểm tra name "object" tồn tại, chỗ này em chưa biết viết code gì ???[/COLOR]
      ' if b=true then
              msgbox "name tồn tại"
        else
              msgbox "name không tồn tại"
        end if
End sub

XIN CẢM ƠN !

Viết hằn luôn 1 hàm kiểm tra sự tồn tại của name:

Function NameExists(ByVal DFName As String) As Boolean
  On Error Resume Next
  Application.Volatile
  NameExists = CBool(Len(Names(DFName).Name))
End Function

Giờ muốn kiểm tra xem name "Object" có tồn tại hay không ta ứng dụng:

Sub Test()
  If [COLOR=#ff0000]NameExists("Object")[/COLOR] Then  
     MsgBox "name to^`n ta.i"
  Else
     MsgBox "name không to^`n ta.i"
  End If
End Sub