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

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I går 16:49	I går 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

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