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
4
1063
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
- 887227
- 353373
Lähetä terveisesi kaipaamallesi henkilölle
Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘1021816- 21892
Valtimon Haapajärvellä paatti mäni nurin
Ikävä onnettomuus Haapajärvellä. Vene hörpppi vettä matkalla saaren. Veneessä ol 5 henkilöä, kolme uiskenteli rantaan,27891Taas ryssittiin oikein kunnolla
r….ä hyökkäsi Viroon sikaili taas ajattelematta yhtään mitään https://www.is.fi/ulkomaat/art-2000011347289.html32853Rakastuminenhan on psykoosi
Ei ihme että olen täysin vailla järkeä sen asian suhteen. Eipä olis aikoinaan arvannut, että tossa se tyyppi menee, jonk47762Tähän vaivaan ei auta kuin kaksi asiaa
1. Tapaaminen uudestaan tai 2. Dementia Anteeksi kun olen olemassa🙄60719Olisinko mä voinut käsittää sut väärin
Nyt mä kelaan päässäni kaikkea meidän välillä tapahtunutta. Jos mä sit kuitenkin tulkitsin sut väärin? Se, miten sä käyt29686Känniläiset veneessä?
Siinä taas päästiin näyttämään miten tyhmiä känniläiset on. Heh heh "Kaikki osalliset ovat täysi-ikäisiä ja alkoholin v26642