/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Søgning i vba (excel)
Fra : Sus


Dato : 18-06-01 12:08

Hej

Jeg er rimeligt ny til det med VB, så jeg håber I kan forstå mit spørgsmål:

Jeg har en celle i Excel. Værdien af denne er f.eks. "Mon Jun 18 12:53:24
2001", altså formateret som "ddd mmm dd hh:mm:ss yyyy". Og sådan er det i
hele kolonnen ned, ca. 30 celler ned. Og det er jo også altsammen godt nok.

Men hvis nu jeg ville trække f.eks. årstallet eller ugedagen ud af cellen og
sætte det ind i cellen til højre, hvad hedder kommandoen så?

Jeg har søgningen efter en angivet variabel (se nedenstående). Den søger
efter værdien af InpVal og sætter værdien ind i den celle, der ligger 2 til
højre fra den, hvori resultatet er fundet.

Det jeg så vil, er, at kunne søge efter enten et specifikt årstal, eller et
datoformat, og flytte det over i cellen ved siden af.

Alternativt vil jeg gerne kunne søge på de sidste fire cifre i en celle,
eller på plads 4 til 8, eller andre pladser i cellen. Det ved jeg, der
findes en kommando til, men jeg kan ikke huske den og formatet af den.

Er der mon nogen, der kan hjælpe mig i min nød?

:)

Hav en nice dag

Med venlig hilsen
Per

- - - - - - - - - - - - - - -
Sub CopyDtoF()
Dim InpVal As String

With Worksheets(1).Columns("D:D")
InpVal = inputbox("Indtast søgekriterie for kolonne D", "Kopiering fra D til
E og F")

Set c = .Find(InpVal, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Cells.FindNext(After:=ActiveCell).Select
ActiveCell.Offset(0, 2).Range("A1") = InpVal
ActiveCell.Offset(0, 2).Range("A1").Select
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress

End If
End With
End Sub
- - - - - - - - - - - - - - -



 
 
Carsten Suurland (19-06-2001)
Kommentar
Fra : Carsten Suurland


Dato : 19-06-01 08:58

Hej Sus

Funktionen til at "hente" et årstal ud fra en given dato er YEAR (År hvis du
bruger Excel i DK version)

For at hente X antal bogstaver fra højre.... RIGHT

/Carsten Suurland



Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408893
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste