Frage : Verbundene Zellen Excel-VBA Entdeckung

Hallo, sein das

I morgens versuchend, einen Index zu schreiben, der durch alle Arbeitsblätter in meinem Arbeitsbuch und in Suche nach verbundenen Zellen zu einer bestimmten Adresse „frrr/isis "

Any Hilfe schlingt, great

Thanks

Mark

Antwort : Verbundene Zellen Excel-VBA Entdeckung

Aaron-Blut schrieb ein ausgezeichnetes universelles Entdeckungprogramm („Kickbutt Entdeckung“) bei http://www.xl-logic.com/modules.php?name=Downloads&d_op=getit&lid=228, das Sie registrieren müssen können, damit dieser Aufstellungsort an diese Verbindung gelangt.

Ich addierte ein Makro, um zu benennen dass das Entdeckungprogramm zum Suchen alle Blätter nach Text, den Sie in den Formeln spezifizieren. Er vorwählt dann all diese Zellen se. Während Sie von Arbeitsblatt zu Arbeitsblatt gehen, können Sie jene Vorwähleren dann wiederholen.

Wenn Sie nach Formeln suchten, die eine genannte Strecke beziehen, wie frrr_isis, gerade diesen Text in Erwiderung auf den Eingangskasten eintragen.

Brad
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
6:
37:
38:
39:
40:
41:
42:
43:
44:

VorSearchAllSheets ()
Schwaches WS als Arbeitsblatt
Schwaches rg als Strecke
Schwaches FindText als Schnur
FindText = Application.InputBox („die Adresse oder die genannte Strecke bitte eintragen, die Sie finden möchten“)
Für jedes WS in ActiveWorkbook.Worksheets
    Rg einstellen = nichts
    Rg = Find_Range (FindText, WS einstellen. Zellen, xlFormulas, xlPart, falsch)
    Wenn nicht rg nichts dann ist
        WS. Aktivieren
        rg. Auserwählt
    Beenden wenn
Zunächst
Enden-Unterseeboot

'Find_Range geschrieben von Aaron Blood
Funktion Find_Range (Find_Item als Variante, _
    Search_Range als Strecke, _
    Wahlweise freigestelltes LookIn als XlFindLookIn = xlValues, _
    Wahlweise freigestelltes LookAt als XlLookAt = xlPart, _
    Wahlweise freigestelltes MatchCase, wie Boolesch = falsch) als Strecke
     
    Schwaches c als Strecke, FirstAddress als Schnur
     
    Mit Search_Range
        Einstellen c =. Finden (_
            Was: =Find_Item, _
            LookIn: =LookIn, _
            LookAt: =LookAt, _
            SearchOrder: =xlByRows, _
            SearchDirection: =xlNext, _
            MatchCase: =MatchCase, _
            SearchFormat: =False) 'Löschung dieser Ausdruck für XL2000 und früh
        Wenn nicht c nichts dann ist
            Find_Range = c einstellen
            FirstAddress = c.Address
            Tun
                Find_Range = Anschluss (Find_Range, c) einstellen
                Einstellen c = .FindNext (c)
            Schlingen, während nicht c nichts und c.Address FirstAddress <> ist
        Beenden wenn
    Mit beenden
     
Funktion beenden
Weitere Lösungen  
 
programming4us programming4us