Som besökare på Nyheter24 samtycker du till användandet av s.k. cookies för att förbättra din upplevelse hos oss. Jag förstår, ta bort denna ruta!
 
Betyg idag: 1 192 Besökare idag: 5 277
annons
annons
omvandla värde till URL (i excel) - Teknik
Du kan alltid läsa vad som står på våra forum, men om du vill skriva måste du logga in eller bli medlem.
Veckla ihop
omvandla värde till URL (i excel)
RustyFilm  18:00 18/12 | Stäng | Nästa nya
I en importerad excel filmlista från filmtipset finns kolumnen IMDB#.
Numret i kolumnen definierar ju filmen hos IMDB.
Kan man omvandla numret till ett URL?
Hur?
Veckla ihop

Zarquon  05:28 19/12 | Stäng | Nästa nya
Menar du typ så här? https://imgur.com/a/UWF3K Denna formel ger en klickbar länk i en egen kolumn bredvid.

RustyFilm  10:18 19/12 | Stäng | Nästa nya
Jag menar nog som ett makro i excelbladet
Veckla ihop

ropo  08:52 19/12 | Stäng | Visa arv | Nästa nya
du kan bygga en macro som gör detta

En for loop (från 1 till kolumnens range) som mäter längden på texten i imdbidkolumnen (*) och fyller ut denna med vad som saknas och sedan kombinerar detta med "http://www.imdb.com/title/" och lägger ut det i valfri kolumn

* ett imdb id har en given struktur, tt och 7 siffror så tomrummet fylls alltid med tt och sedan 0'or
Veckla ihop

ropo  09:15 19/12 | Stäng | Nästa nya
kom på jag kunde lika gärna pula ihop funktionen, du får anpassa kolumner efter ditt eget ark

Sub loopo()

Dim ARange As Long
ARange = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

'------------------

Dim OutputTXT As String

For x = 1 To ARange

If Len(Sheet1.Cells(x, 1)) = 1 Then
OutputTXT = "http://www.imdb.com/title/tt000000" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
ElseIf Len(Sheet1.Cells(x, 1)) = 2 Then
OutputTXT = "http://www.imdb.com/title/tt00000" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
ElseIf Len(Sheet1.Cells(x, 1)) = 3 Then
OutputTXT = "http://www.imdb.com/title/tt0000" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
ElseIf Len(Sheet1.Cells(x, 1)) = 4 Then
OutputTXT = "http://www.imdb.com/title/tt000" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
ElseIf Len(Sheet1.Cells(x, 1)) = 5 Then
OutputTXT = "http://www.imdb.com/title/tt00" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
ElseIf Len(Sheet1.Cells(x, 1)) = 6 Then
OutputTXT = "http://www.imdb.com/title/tt0" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
ElseIf Len(Sheet1.Cells(x, 1)) = 7 Then
OutputTXT = "http://www.imdb.com/title/tt" & Sheet1.Cells(x, 1)
Sheet1.Cells(x, 2) = OutputTXT
End If

Next x
'------------------

End Sub
Veckla ihop

RustyFilm  10:18 19/12 | Stäng | Nästa nya
Tack, ska testa detta. Ska bara först plugga på lite om excelmakron

ropo  10:53 19/12 | Stäng | Nästa nya
kör på!

de värden du vill ändra för att få det att passa ditt ark är följande 3

Namn på den kolumn du ska utföra loopen på
ARange = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row

1 är kolumnnumret därifrån du vill skriva om till imdbaddresser
Sheet1.Cells(x, 1)

2 är där addresserna hamnar (det går att skriva till samma kolumn som du hämtar ifrån också)
Sheet1.Cells(x, 2)

så du kan lätt bara markera och köra find/replace

och förresten är det en header med i den exporterade excelfilen så ändra att loopen börjar på 2
For x = 2 To ARange
Inlägget är ändrat 10:59 19/12.
Historik
Göm historik
Veckla ihop

zonk  19:35 20/12 | Stäng | Visa arv | Nästa nya
Jag hade ju löst det med konkateneringsfunktionen, men sen är jag jävligt mkt för low tech-lösningar med. Slå ihop nummerkolumnen med en som alltid har värdet http://www.imdb.com/title/tt - med hjälp av funktionen "concatenate". Ja och se till att http://www.imdb.com/title/tt kommer till vänster. Klart.
omvandla värde till URL (i excel)
RustyFilm  19:51 1/1 | Stäng |
Jag valde att göra enl zonk förslaget
Tack Alla
/RustyFilm
Entertainity AB © 2000-2016 Om du vill kontakta oss gällande annonser, maila till ads@n24g.se Om Filmtipset Kontakt Medhjälpare Länkar Hjälp Regler & Villkor