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
1079
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
Marin sitä, Marin tätä, yhyy yhyy, persut jaksaa vollottaa
On nuo persut kyllä surkeaa porukkaa. Edelleen itkevät jonkun Marinin perään, vaikka itse ovat tuhonneet Suomen kansan t1524238Ikävä sinua..
Kauan on aikaa kulunut ja asioita tapahtunut. Mutta sinä M-ies olet edelleen vain mielessäni. En tiedä loinko sinusta va222211Riikka Purra: "Kokoomus haluaa leikata pienituloisten etuuksista - Se ei meille käy"
Näin vakuutti persujen Purra edellisten eduskunta vaalien alla,. https://www.ku.fi/artikkeli/4910942-kun-uudessa-videos521808Riikka Purra sanoo, että sietokykyni vittumaisiin ihmisiin alkaa olla lopussa.
https://www.iltalehti.fi/politiikka/a/be8f784d-fa24-44d6-b59a-b9b83b629b28 Riikka Purra sanoo medialle suorat sanat vitt3651703Muistattekos kuinka persujen Salainen Akentti kävi Putinin leirillä
Hakemassa jamesbondimaista vakoiluoppia paikan päällä Venäjällä? Siitä ei edes Suomea suojeleva viranomainen saanut puhu221469Lindtmanin pääministeriys lähenee päivä päivältä
Suomen kansan kissanpäivät alkavat siitä hetkestä, kun presidentti Stubb on tehnyt nimityksen. Ainoastaan ylin tulodesi611464Kapiainen siviiliesimies, Herra suuri Herra
Sotilaana kyvytön, johtajana munaton ja kotona tossun alla. Se on upseerin uran tuen pää, seinään ajo. Mutta aina löytyy801344Pitäisikö ilotulitteiden myynti kieltää?
Esim jyväskylässä ainakin on ammuttu ilotulitteita päin ihmisiä ja autoja. Samoin Helsingissä? Pitäisikö ilotulitteiden841182Väärä pää tutustumiseen
Mikä ihme on, että miehet haluavat ensimmäisenä sänkyyn? Onko nykyään niin helppo saada nainen peittojensa alle.. tai pä1531174Tuntuuko sinusta mies
että olet jossain, mutta sydämessäsi haluat olla muualla. Suunnittelet kaikkea kivaa ja olet innolla mukana, mutta silti221145