I wonder if anyone knows how can I create a search box in Excel to search in e.g. google search? Do text box and command button are what I need? I am having Office 2003 installed on my computer running Windows XP as operating system.
I wonder if anyone knows how can I create a search box in Excel to search in e.g. google search? Do text box and command button are what I need? I am having Office 2003 installed on my computer running Windows XP as operating system.
You can use Google Search Add-in on your Excel 2003 worksheet. Google Search puts a search tool where you want it and when you want it. Google Search provides a user friendly and intuitive interface that provides you with the Knowledge of how and where to search. To use the Google Search:
1. Download and extract it to a local directory.
2. Copy GoogleSearch.xla and the Access file to the following directory:
local_drive:\Program Files\Microsoft Office\OfficeNumber\Library
Note Depending on the version of Excel, the OfficeNumber directory may named Office or may include a version number.
Once installed, to access it:
3. Start Excel and open a workbook.
4. Click Tools, click Add-Ins, Verify Google Search is checked in this list and then click OK.
Source: rondebruin.nl
Thank you for your reply but Google was just an example. I thought it would give me the answer when it seeks the same way. I have a server with the drawings and to apply for these via the tag. If tagged the 1234 address will be www.server.com/1234. Here I would like to have a text box to type in your query and a button for search.
Put the TextBox and the command button from the ActiveX controls. Button code is:
If you want to transfer this to Google Search, you need to check how the URL of a Google Search is built up. In the simplest formCode:Private Sub CommandButton1_Click () If Me.TextBox1.Text = "" Then Exit Sub 'not-completed ActiveWorkbook.FollowHyperlink "http://www.server.com/" & Me.TextBox1.Text End Sub
Code:ActiveWorkbook.FollowHyperlink "http://www.google.com/search?hl=en&source=hp&q=" & _ Replace(Trim(Me.TextBox1.Text), " ", "+") & _ "&aq=f&oq=&aqi=g10"
Bookmarks