Функцията за търсене е на разположение от контекстното меню на клетката:
Както можете да видите на снимката по-, има възможност за избор на браузър.
Можете да избирате между най-популярните браузъри: Internet Explorer, Mozilla Firefox, Opera, Chrome iGoogle.
Макросът умишлено сложи лимит на броя на клетките, текстът на която може да се управлява едновременно в търсенето.
Ако броят на уникално не-нулева стойност в избраната клетка, надвишава 20, търсенето се отменя,
и потребителят ще видите предупредително съобщение:
Код (вж. Примерът в прикачения файл) се състои от две макроси.
CreateItemsInCellContextMenu макро писти автоматично всеки път, когато щракнете с десния бутон върху листа,
и добавя нови елементи към контекстното меню на клетката.
SearchValuesInWeb макро писти Когато кликнете върху един от елементите, добавени в менюто,
Той определя кой браузър е необходимо да извършите търсене, и ще започне да търси всяка стойност на избрания диапазон.
Всички добри дни. Аз публикувате код, за да стартира макроса от добавката или бутона (макрос за създаване на меню е отстранен).
Под SearchValuesInWeb ()
Дим Link $
"Макроикономическата отваря в избраните резултати стойности за търсене на браузъра на клетките
"Търси се извършва на Google
Ако Err Тогава Exit Sub "не се стартира от контекстното меню
maxCellsCount = 10 "е по-голяма от 20 клетки - да отказват да започнете търсенето
Дим Кол Като Нова колекция
"Вземете само непразните уникална стойност на избрания диапазон от клетки
Затъмняване на РА в обхват: Set RA = Пресичане (подбор, ActiveSheet.UsedRange)
Агг = ra.Value: Ако ra.Cells.Count = 1 Тогава Агг = Array (RA (1))
За всеки елемент В Прист
Ако Лен (Trim (т)) Тогава coll.Add CStr (Trim (т)), CStr (Trim (т))
Ако coll.Count> maxCellsCount След излизане за
до
"Ако случайно започне хилядите търсене на ценности - компютър podvisnet дълго.
Ако coll.Count> maxCellsCount Тогава
съобщ = "Броят на ценности, за да намерите provysilo граница" maxCellsCount "Клетките!"
MsgBox съобщ, vbExclamation "Твърде много ценности - Търсене абортирани"
Exit Sub
Крайна сметка, ако
"Форма път към избрания от вас браузър (в регистъра информация, която трябва да се изкопае трудно.)
"Не е фактът, че bydet работа на всички компютри (програмата може да се инсталира в други папки)
Път $ = "" "" "C: \ Program Files (x86) Google \ Chrome \ Application \ chrome.exe \" "" ""
"Проверка на съществуването на изпълним файл браузър
Path2 $ = $ Path: Ако Dir (Сплит (Path $, Chr (34)) (1), vbNormal) = "" Тогава Path2 $ = ""
Да, можете.
Подобни решения, което правя на базата на "синтактичен анализ сайтове" надстройка
Здравейте, и можете да търсите не на Google, както и в даден сайт?
Добре дошли!
Кажете ми, възможно ли е да се синхронизира чрез макро текущата дата в интернет.
Искам да се определи срок за работата до момента на настоящата програма.
Сега кодът изглежда по следния начин:
Частни Под Workbook_Open ()
още
Sheets ( "Sheet1"). Изберете
ActiveSheet.Cells (1, 1) .Value = 0
Клетките, когато стойността на (1, 1) прекратява програмата.
Но това е много лесно да се придвижва, просто смяна на датата в календара windose. Какво да се прави?
Код не работи с някои от героите.
Ако търсенето е за вида на текста
текст1 | text2
т.е. Използване OR логическа оператор
Кажи ми какво може да се свърже? Дори и да смените символа | върху% 7в - все още не иска да.
Благодаря ви за Bolshany полезен ресурс.
Неговият проблем е решен, но аз не `знам дали технически е правилно решен, но работата по nemenie на 100%
Под CreateItemsInCellContextMenu ()
На Грешка Resume Следваща
PopularBrowsers = Array ( "2gis карти", "Yandex карти", "Google Maps", "Яндекс", "Google")
Application.CommandBars ( "клетки"). Reset "нулират за бърз достъп от менюто клетки
Application.CommandBars ( "клетки"). Controls (1) .BeginGroup = True "линия в горната точка на първата меню
"Добавяне на елементи към контекстното меню на клетката
С Application.CommandBars ( "клетки"). Controls.Add (10 1)
.Caption = "Търсене в."
"Добавяне на подменю
За Всеки браузър В PopularBrowsers "за всеки браузър - подменю
С .Controls.Add (1. 1) "се добавят елемент от менюто
.OnAction = "SearchValuesInWeb" "може да бъде отнесен бутон макро SearchValuesInWeb
.Caption = браузър. Tag = браузър в маркера за собственост да си спомня името на браузъра
завършва с
до
завършва с
End Sub
Под SearchValuesInWeb ()
"Макроикономическата отваря в избраните резултати стойности за търсене на браузъра на клетките
"Търси се извършва на Google
На Error Resume Next: Err.Clear
браузър $ = Application.CommandBars.ActionControl.Tag "да се чете параметър от свойствата на TAG
Ако Err Тогава Exit Sub "не се стартира от контекстното меню
maxCellsCount = 20 'е по-голяма от 20 клетки - да отказват да започнете търсенето
Дим Кол Като Нова колекция
"Вземете само непразните уникална стойност на избрания диапазон от клетки
Затъмняване на РА в обхват: Set RA = Пресичане (подбор, ActiveSheet.UsedRange)
ARR = ra.Value: Ако ra.Cells.Count = 1 Тогава ARR = Array (RA (1))
За всеки елемент В Пр
Ако Лен (Trim (т)) Тогава coll.Add CStr (Trim (т)), CStr (Trim (т))
Ако coll.Count> maxCellsCount След излизане за
до
"Ако случайно започне хилядите търсене на ценности - компютър podvisnet дълго.
Ако coll.Count> maxCellsCount Тогава
съобщ = "Броят на ценности, за да намерите provysilo граница" maxCellsCount "Клетките!"
MsgBox съобщ, vbExclamation "Твърде много ценности - Търсене абортирани"
Exit Sub
Крайна сметка, ако
Ако имате нужда от готов код - винаги можете да направите поръчка за преразглеждане код, за да отговарят на вашите нужди.
Или форум за Excel си задава този въпрос - има със сигурност вече сте помогнали с решението.
Свързани статии