Pitäisi saada aikaan hyperlinkkejä Googlen kuvahakuun niin, että d-sarakkeessa oleva teksti (kaksi sanaa) olisi hakusanana ja hyperlinkkinä. Tekstiä ei ole joka solussa.
Natsaako?
Hyperlinkki
pom
4
1075
Vastaukset
koodi moduuliin... ja liität nappiin
Sub HyperlinkinLisäys()
Dim vika As Integer
Dim haku As String
Dim teksti As String
Dim a As Variant
Dim i As Integer
vika = Range("D65536").End(xlUp).Row
For i = 1 To vika
Range("E" & i).Select
If Range("D" & i) "" Then
a = Split(ActiveCell.Offset(0, -1), " ")
haku = a(0) & " " & a(1)
teksti = ActiveCell.Offset(0, -1) & " Google kuvalinkki"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", _
TextToDisplay:=teksti
End If
Next i
End Sub- pom
"Compile error: Syntax error" virheilmoitus tulee tästä koodin pätkästä:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.fi/search?hl=fi&q="; & haku & "&btnG=Google-haku&meta=", _
TextToDisplay:=teksti
Koodi näkyi moduulissa punaisella fontilla...
Mitäs mä oon häslännyt? pom kirjoitti:
"Compile error: Syntax error" virheilmoitus tulee tästä koodin pätkästä:
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.fi/search?hl=fi&q="; & haku & "&btnG=Google-haku&meta=", _
TextToDisplay:=teksti
Koodi näkyi moduulissa punaisella fontilla...
Mitäs mä oon häslännyt?kadonneet sulla kopioinnin yhteydessä.Muutin koodin yhdelle riville.
tämä pätkä pitää olla yhdellä rivillä
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti
Sub HyperlinkinLisäys()
Dim vika As Integer
Dim haku As String
Dim teksti As String
Dim a As Variant
Dim i As Integer
vika = Range("D65536").End(xlUp).Row
For i = 1 To vika
Range("E" & i).Select
If Range("D" & i) "" Then
a = Split(ActiveCell.Offset(0, -1), " ")
haku = a(0) & " " & a(1)
teksti = ActiveCell.Offset(0, -1) & " Google kuvalinkki"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti
End If
Next i
End Sub- pom
kunde kirjoitti:
kadonneet sulla kopioinnin yhteydessä.Muutin koodin yhdelle riville.
tämä pätkä pitää olla yhdellä rivillä
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti
Sub HyperlinkinLisäys()
Dim vika As Integer
Dim haku As String
Dim teksti As String
Dim a As Variant
Dim i As Integer
vika = Range("D65536").End(xlUp).Row
For i = 1 To vika
Range("E" & i).Select
If Range("D" & i) "" Then
a = Split(ActiveCell.Offset(0, -1), " ")
haku = a(0) & " " & a(1)
teksti = ActiveCell.Offset(0, -1) & " Google kuvalinkki"
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="http://www.google.fi/search?hl=fi&q=" & haku & "&btnG=Google-haku&meta=", TextToDisplay:=teksti
End If
Next i
End Subpaljon, nyt pelittää!
Kun koodista vaihtaa "search" tilalle "images", niin menee suoraan kuukkelin kuvahakuun...
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Sanna Marin teki sen, mihin muut eivät pystyneet - sote kerralla maaliin
Yli 15 vuotta Suomessa vatvottu sote-uudistus meni lopulta läpi Sanna Marinin hallituksen aikana. Edeltävät hallitukset768584Marinin hallitus hyväksyi soten (105-77) vuonna 2021
vastaan äänesti Kok, persut, KD, Liike Nyt. Nyt on sitten käynyt niin kuin on käynyt. Pääkirjoitus: Sanna Marin jätti905937Pikkupersu osoitti olevansa hieman yksinkertainen
"Heikosti älykkyystesteissä pärjänneistä lapsista tulee muita todennäköisemmin ennakkoluuloisia ja konservatiivisia", uu1034806Enää viisi yötä Sannan kirjaan
Ihan täpinöissään tässä odotellaan. Vaikea pysytellä aloillaan, kun koko ajan tekisi mieli jo kirjakauppaan rynnätä, mut483935Jos on heikkolahjainen ja laiska koulupudokas, niin silloin äänestää vasemmistopuolueita
näin tämä on käytännössä aina mennyt. Jos ei älyä ole paljon suotu, niin ei silloin inssiksi opiskella, vaan päädytään293856Kannattaako suomalaisen duunarin enää äänestää vasemmistopuolueita
sillä eivät ne tunnu kovasti ajavan suomi-duunarin etuja. Jos katsotaan Vasemmistoliittoa, niin sehän on ihan feministi743821Sanna-kulttilaiset hehkuttaa edelleen Marinia, vaikka esim. Sote oli susi jo syntyessään
mutta kulttilaiset eivät ole järjen jättiläisiä, ja sanoihin Lasse Lehtinenkin, että Suomessa on pohjoismaiden tyhmimmät453672Lehtinen: "Oli demareidenkin onni, että valkoiset voittivat sodan 1918"
Lasse Lehtisen mukaan vasemmalla on radiohiljaisuus hänen uutuuskirjastaan, "Läheltä piti. Kansakunnan hurjat hetket" L1133070IL - 100 000 potentiaalista sotilasta pakeni Ukrainasta!
"Ukrainasta nuorten miesten joukkopako Liki 100 000 asevelvollisuusikäistä miestä on poistunut Ukrainasta parin viime k572879SDP:n valtuutettu valehtelee koulutuksensa
SDP:n helsinkiläinen kaupunginvaltuutettu Mahad Ahmed käyttää maisterin titteliä suoritettuaan 60 opintopisteen epäviral982849