CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

jisch Mester

25. februar 2017 - 11:17 Der er 4 kommentarer og
1 løsning

VBA funktioner

Jeg har en kolonne (A1:A20) med talværdier. Der er tomme værdier i nogle af cellerne . Jeg vil gerne have en ny celle (A21) med den første numeriske talværdi og en celle (A22) med den sidste numeriske værdi.

Det har jeg løst på følgende måde i A21:

=HVIS.FEJL(INDEKS(A1:A20;SAMMENLIGN(SAND;INDEKS(A1:A20<>0;);0));"")

Og i A22

=HVIS.FEJL(FORSKYDNING(A1;SAMMENLIGN(MAKS(A1:A20)+1;A1:A20;1)-1;0);"")

Og så til mit spørgsmål. Hvordan kan jeg i VBA skrive 2 funktioner, der kan løse ovenstående så jeg f.eks. kan skrive:

I A21:
=V_First(A1:A20)

I A22:

=V_Last(A1:A20)

Synes godt om

jisch Mester

25. februar 2017 - 11:50 #1

Excel: I A22 kan også skrives:

=HVIS.FEJL(SLÅ.OP(1;1/(A1:A20<>0);A$1:A$20);"")

Dette kan også håndtere alfanumeriske værdier.

Synes godt om

finb Ekspert

25. februar 2017 - 12:29 #2

Kort udkast efter hukommelsen,
ret selv til:

for each cell in range ("a1:a20")
cell.select
if selection isNumeric then
Range("a21")=selection
exit for
endif

range("a20").select
for stepOpad = -1 to -20
if selection.offset(stepOpad) isNumeric then
range("a22")=selection.offset(stepOpad)
exit for
endif
exit for

Synes godt om

jisch Mester

25. februar 2017 - 19:42 #3

>finb: Tak for inspiration. Jeg har omskrevet til denne løsning:

Function FirstLast(Rng As Range, Optional First = True) As Variant
'
' Range Rng: Vertical or Horizontal
'
Dim R As Variant
Dim C As Range

R = ""
For Each C In Rng
C.Select
If C.Value <> "" Then
R = C.Value
If First = True Then Exit For
End If
Next C
FirstLast = R
End Function

I A21:
=FirstLast(A1:A20)
I A22
=FirstLast(A1:A20;Falsk)

Synes godt om

finb Ekspert

01. marts 2017 - 08:50 #4

Tak for "point" ! finb

Synes godt om

jisch Mester

01. marts 2017 - 16:01 #5

Til alle der bruger Function FirstLast:

Fejl: C.Select (væk med den!!)

Synes godt om

Ny bruger Nybegynder

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.

Følg dette spørgsmål

Opret Preview

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Skrive tekst fra celle i formel Af SFrede i Excel	1	I går 14:54	I går 15:43
slette rækker automatisk Af torben lind i Excel	10	24/04/202418:52	I går 19:58
Ctrl + Backspace Af xl-Enthusiast i Excel	7	22/04/202408:15	22/04/202410:12
Lopslag Af Mariacecilia i Excel	9	19/04/202419:00	20/04/202420:01
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	19/04/202413:33	-

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS