A google kereső értékeket Excel munkalap, hogy az Excel makrók
A keresési funkció áll rendelkezésre a helyi menüből a sejt:
Mint látható a képen, van egy választás böngészőt.
Válasszon a legnépszerűbb böngészők: Internet Explorer, Mozilla Firefox, Opera, Chrome iGoogle.
A makró szándékosan fel a hitelkeretet a sejtek száma, amelynek szövege lehet futtatni egyszerre a keresést.
Ha a számos egyedi, nem nulla értéket a kijelölt cella meghaladja a 20, a keresés megszakad,
és a felhasználó megjelenik egy figyelmeztető üzenet:
Kódot (lásd. A példa a csatolt fájlban) két makrók.
CreateItemsInCellContextMenu makró automatikusan lefut minden alkalommal, amikor a jobb gombbal a lapra,
és hozzáteszi, új elem, hogy a helyi menüből a sejt.
SearchValuesInWeb makró fut, ha rákattint az egyik elem hozzá a menü,
Ez határozza meg, hogy melyik böngészőt szükséges keresést végez, és elkezdi keresni az egyes értékek a kijelölt tartomány.
Minden jó napot. Írok a kódot futtatni a makrót a bővítmény vagy a gombot (a makró létrehozásához menü eltávolításra került).
Sub SearchValuesInWeb ()
Dim link $
„A makro megnyílik a kiválasztott böngésző keresési eredmények értékei a sejtek
„A keresés az Google
Ha Err Akkor Exit Sub „nem indul a helyi menüből
maxCellsCount = 10 „nagyobb mint 20 sejtek - megtagadják a keresés elindításához
Dim coll As New Collection
„Vegyük csak nem üres egyedülálló értéke a kijelölt cellatartomány
Dim RA Range: Set ra = Intersect (Selection, ActiveSheet.UsedRange)
Arr = ra.Value: Ha ra.Cells.Count = 1, akkor Arr = Array (RA (1))
Minden elemével Arr
Ha Len (trim (pont)) Majd coll.Add CStr (trim (pont)), CStr (trim (pont))
Ha coll.Count> maxCellsCount Akkor kijárat
következő
„Ha véletlenül a keresés elindításához ezer értékek - számítógépes podvisnet hosszú.
Ha coll.Count> maxCellsCount Aztán
msg = „Az értékek száma találni provysilo limit” maxCellsCount "Cells!"
MsgBox msg, vbExclamation, "Túl sok érték - keresés megszakítva"
Exit Sub
End If
„Forma utat a kiválasztott böngésző (a regisztrációhoz szükséges információt ásni nehéz.)
„Nem az a tény, hogy bydet munka az összes számítógépen (a program lehet telepíteni más mappa)
Path $ = "" "" "C: \ Program Files (x86) \ Google \ Chrome \ Application \ chrome.exe" „” „”
„Ellenőrizze, hogy létezik a futtatható fájl böngésző
Elérési_út2 $ = Útvonal $: Ha Dir (Split (Path $, Chr (34)) (1), vbNormal) = "" Akkor Path2 $ = ""
Igen, ez lehetséges.
Az ilyen döntések csinálok alapján „elemző oldalak” felépítmény
Helló, és kereshet nem a Google-on, és az adott oldalon?
Üdvözlünk!
Mondja, ez lehet szinkronizálni egy makró aktuális dátum az interneten.
Azt akarom, hogy beállíthat egy felső korlátot a munkát a mai napig a jelenlegi program.
Most a kód így néz ki:
Private Sub Workbook_Open ()
más
Sheets ( "Munka1"). Jelölje
ActiveSheet.Cells (1, 1) .Value = 0
Sejtekben, ahol a értéke (1, 1) lezárja a programot.
De ez nagyon könnyen bejárható, csak megváltoztatni a dátumra a naptárban windose. Mit kell tenni?
Kód nem működik néhány karakter.
Ha a keresés a szöveg típusát
text1 | text2
azaz A VAGY logikai operátor
Mondd, hogy mit lehet csatlakoztatni? Még ha megváltoztatjuk a szimbólum | on% 7c - még mindig nem akar.
Köszönjük Bolshany hasznos forrás.
Ő probléma megoldódott, de don `t tudom, hogy technikailag megfelelően megoldani, de a nemenie munka 100%
Sub CreateItemsInCellContextMenu ()
On Error Resume Next
PopularBrowsers = Array ( "2gis térképek", "Yandex térképet", "Google Maps", "Yandex", "Google")
Application.CommandBars ( "cell"). Törlés „reset helyi menü sejtek
Application.CommandBars ( "cell"). Controls (1) .BeginGroup = True „vonal fölött az első menüpont
„Elemek hozzáadása a helyi menühöz a sejt
A Application.CommandBars ( "cell"). Controls.Add (10. 1)
.Caption = "Keresés".
„Add almenü
For Each böngésző PopularBrowsers' minden böngésző - egy al-menü
A .Controls.Add (1 1) „adjunk hozzá egy menüpont
.OnAction = "SearchValuesInWeb" „kiosztható gomb makró SearchValuesInWeb
.Caption = böngészőt. Tag = böngésző az ingatlan TAG megjegyezni a nevét a böngésző
végződésű
következő
végződésű
End Sub
Sub SearchValuesInWeb ()
„A makro megnyílik a kiválasztott böngésző keresési eredmények értékei a sejtek
„A keresés az Google
On Error Resume Next: Err.Clear
böngésző $ = Application.CommandBars.ActionControl.Tag „olvasható paraméter a tulajdonságait a TAG
Ha Err Akkor Exit Sub „nem indul a helyi menüből
maxCellsCount = 20 „nagyobb mint 20 sejtek - megtagadják a keresés elindításához
Dim coll As New Collection
„Vegyük csak nem üres egyedülálló értéke a kijelölt cellatartomány
Dim RA Range: Set ra = Intersect (Selection, ActiveSheet.UsedRange)
arr = ra.Value: Ha ra.Cells.Count = 1, akkor arr = Array (RA (1))
Minden elemével arr
Ha Len (trim (pont)) Majd coll.Add CStr (trim (pont)), CStr (trim (pont))
Ha coll.Count> maxCellsCount Akkor kijárat
következő
„Ha véletlenül a keresés elindításához ezer értékek - számítógépes podvisnet hosszú.
Ha coll.Count> maxCellsCount Aztán
msg = „Az értékek száma találni provysilo limit” maxCellsCount "Cells!"
MsgBox msg, vbExclamation, "Túl sok érték - keresés megszakítva"
Exit Sub
End If
Ha szüksége van kész kódot - mindig megrendelését változatkódja hogy megfeleljen az Ön igényeinek.
Vagy fórum Excel már feltette ezt a kérdést - biztosan ott már segített a döntés.