Bruke andre funksjoner til å identifisere koblede datatyper

Formler

Du kan alltid skrive formler som refererer til datatyper. Hvis du imidlertid vil trekke ut teksten i en celle med en koblet datatype ved hjelp av TEKST-funksjonen, får du en #VALUE! -feil.

En midlertidig løsning er å bruke FELTVERDI-funksjonen og angi Navn-feltet for field_name argumentet. Hvis celle A1 inneholdt en aksjedatatype i eksemplet nedenfor, returnerer formelen aksjenavnet.

=FELTVERDI(A1;"Navn")

Hvis celle A1 imidlertid ikke inneholder en koblet datatype, returnerer FELTVERDI-funksjonen en #FIELD!-feil. Hvis du vil evaluere om en celle inneholder en koblet datatype, kan du bruke følgende formel, som bruker ERFEIL-funksjonen til å teste om FELTVERDI-funksjonen returnerer en feil.

=HVIS(ERF(FELTVERDI(A2;"Navn")),"Denne cellen har ikke en koblet datatype","Denne cellen har en koblet datatype")

Hvis formelen evalueres til en feil, returneres teksten «Denne cellen har ikke en koblet datatype», ellers returneres «Denne cellen har en koblet datatype».

Hvis du bare vil undertrykke #FIELD! kan du bruke:

=HVIS.FEIL(FELTVERDI(A1;"Navn"),"")

Som returnerer en tom celle hvis det er en feil.

Betinget formatering

Du kan betinget formatere en celle basert på om den har en koblet datatype eller ikke. Først merker du cellene som trenger betinget formatering, og deretter går du til Hjem-> Betinget formatering > Ny regel > Bruke en formel ... For formelen bruker du følgende:

=IKKE(ERF(FELTVERDI(A1;"Navn")))

Der celle A1 er den øverste cellen i området du vil evaluere. Bruk deretter formatet du vil bruke.

I dette eksemplet, hvis celle A1 inneholder et gyldig feltnavn for «Navn», returnerer formelen SANN, og formateringen brukes. Hvis celle A1 ikke inneholder en koblet datatype, returnerer formelen USANN, og ingen formatering brukes. Du kan fjerne NOT hvis du vil utheve celler som ikke inneholder gyldige koblede datatyper i stedet.

VBA

Det finnes flere VBA-metoder (Visual Basic for Applications) som du kan bruke til å identifisere om en celle eller et område inneholder koblede datatyper. Denne første fremgangsmåten bruker HasRichDataType-egenskapen. 

Begge disse prosedyrene vil be deg om å velge et celleområde som skal evalueres, og deretter returnere en meldingsboks med resultatene.

Sub IsLinkedDataType()
    Dim c As Range
    Dim rng As Range
    Dim strResults As String
    
    Set rng = Application.InputBox("Select a range to check for linked data types", Type:=8)
    
    For Each c In rng
      '    Check if the HasRichDataType is TRUE or FALSE
        If c.HasRichDataType = True Then
        '   The cell holds a linked data type
            strResults = strResults & c.Text & " - Linked data type" & vbCrLf
        Else
            strResults = strResults & c.Text & " - Not a linked data type" & vbCrLf
        End If
    Next c

    MsgBox "Your range contains the following details" & vbCrLf & vbCrLf & strResults, vbInformation + vbOKOnly, "Results"
    
End Sub

Denne neste fremgangsmåten bruker egenskapen LinkedDataTypeState.

Sub IsLinkedDataTypeState()
    Dim c As Range
    Dim rng As Range
    Dim strResults As String
    
    Set rng = Application.InputBox("Select a range to check for linked data types", Type:=8)
    
    For Each c In rng
   '    Check if the LinkedDataTypeState is 1 (TRUE) or 0 (FALSE)
        If c.LinkedDataTypeState = 1 Then
        '   The cell holds a linked data type
            strResults = strResults & c.Text & " - Linked data type" & vbCrLf
        Else
            strResults = strResults & c.Text & " - Not a linked data type" & vbCrLf
        End If
    Next c
    
   MsgBox "Your range contains the following details" & vbCrLf & vbCrLf & strResults, vbInformation + vbOKOnly, "Results"

End Sub

Denne siste kodesnutten er en brukerdefinert funksjon (UDF), og du refererer til den på samme måte som alle andre Excel formelen. Bare skriv inn =fn_IsLinkedDataType(A1), der A1 er cellen du vil evaluere.

Public Function fn_IsLinkedDataType(c As Range)
'   Function will return TRUE if a referenced cell contains a linked data type
    If c.HasRichDataType = True Then
      fn_IsLinkedDataType = "Linked data type"
    Else
        fn_IsLinkedDataType = "Not a linked data type"
    End If
End Function

Hvis du vil bruke noen av disse eksemplene, trykker du alt+F11 for å åpne Visual Basic Editor (VBE), og deretter går du til Sett inn >-modul, og limer inn koden i det nye vinduet som åpnes til høyre. Du kan bruke ALT+Q til å gå tilbake til Excel når du er ferdig. Hvis du vil kjøre ett av de to første eksemplene, går du til Utvikler-fanen >Kode > Makroer > velger makroen du vil kjøre fra listen, og deretter velger du Kjør.

Trenger du mer hjelp?

Du kan alltid spørre en ekspert i det tekniske fellesskapet for Excel eller få støtte i Fellesskap.