Jeg har behov for en rutine som fra en given celle og nedad til sidste post "omformatterer" og efterlader samme format i alle celler.
Der er tale om et referencenummer som jeg importerer fra en ekstern kilde, hvor der tilsyneladende er ret frie muligheder for at indtaste dette - eksempel :
1000-0000011 1000-11 1000-00000011
Alle er samme referencenummer, men skal se således ud :
1000-0011
dvs. formatet skal være 0000-0000
Første halvdel af referencenummer skal altid indeholde 4 cifre, men kan godt være mindre end 1000 - dvs. der skal også her være foranstillede nuller
Virksomheder er på vej fra store sprogmodeller, der svarer på spørgsmål, til AI-agenter, der kan udføre opgaver på egen hånd. Det gør teknologien mere nyttig – og langt mere risikabel.
Public Function SplitRef(Celle As Range, Nummer As Boolean) As String Dim a, Nr, Navn a = Split(Celle, "-") If UBound(a) <> 2 Then SplitRef = "Fejl i data" Exit Function End If If IsNumeric(a(0)) Then Nr = a(0) & "-" & Format((a(1)), "0000") Navn = a(2) Else Nr = a(1) & "-" & Format((a(2)), "0000") Navn = a(0) End If If Nummer Then SplitRef = Nr Else SplitRef = Navn End If End Function
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
