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 075 Besökare idag: 5 802
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/12 2016 | 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  19/12 2016 | 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  19/12 2016 | Stäng | Nästa nya
Jag menar nog som ett makro i excelbladet
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  19/12 2016 | 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  19/12 2016 | Stäng | Nästa nya
Tack, ska testa detta. Ska bara först plugga på lite om excelmakron

ropo  19/12 2016 | 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 19/12 2016.
Historik
Göm historik
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  1/1 2017 | 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