Søkeboks i excel 2003 eng.

[genuine]

Hei.

 

Lurer på om noen vet hvordan jeg får laget en søkeboks i excel til å søke i feks google.

 

Tror text box og command button er det jeg trenger.

 

Noe slikt.

[Harald Staff]

Hei

 

Vil du gjerne lage den, eller skal du bare ha? I fall siste så finnes det en ferdig her http://www.rondebruin.nl/Google.htm

 

HTH. Beste hilsen Harald

[genuine]

Takker for svar. Google var bare ett eksempel. Tenkte det ville gi meg svaret da den søker på samme måte. Jeg har en server med tegninger og skal søke på disse via tag. Om tagget er 1234 vil adressen bli www.server.no/1234.

 

Fikk svar fra deg tidligere på noe liggnende, men da med celle referanse. Her vil jeg gjerne ha en text box til å skrive søket i og en knapp for search.

[Harald Staff]

Aha skjønner.

Dette er textbox og commandbutton fra ActiveX-kontrollene. Knappekoden blir

 

Private Sub CommandButton1_Click()

If Me.TextBox1.Text = "" Then Exit Sub 'ikke utfylt

ActiveWorkbook.FollowHyperlink "http://www.server.no/" & Me.TextBox1.Text

End Sub

 

Skal du overføre dette til googlesøk så må du sjekke hvordan URL'en til et googlesøk er bygget opp. I enkleste form

 

ActiveWorkbook.FollowHyperlink "http://www.google.com/search?hl=en&source=hp&q=" & _

Replace(Trim(Me.TextBox1.Text), " ", "+") & _

"&aq=f&oq=&aqi=g10"

 

HTH. Beste hilsen Harald

[genuine]

Aha skjønner.

Dette er textbox og commandbutton fra ActiveX-kontrollene. Knappekoden blir

 

Private Sub CommandButton1_Click()

If Me.TextBox1.Text = "" Then Exit Sub 'ikke utfylt

ActiveWorkbook.FollowHyperlink "http://www.server.no/" & Me.TextBox1.Text

End Sub

 

Skal du overføre dette til googlesøk så må du sjekke hvordan URL'en til et googlesøk er bygget opp. I enkleste form

 

ActiveWorkbook.FollowHyperlink "http://www.google.com/search?hl=en&source=hp&q=" & _

Replace(Trim(Me.TextBox1.Text), " ", "+") & _

"&aq=f&oq=&aqi=g10"

 

HTH. Beste hilsen Harald

 

Rett og slett genialt. Takker og bukker.

[Harald Staff]

Rett og slett genialt. Takker og bukker.

Selv takk. Trengte en sånn nå