Verhindern-Bereich.Find() aus der änderung der "match gesamte Zelle Inhalt" die Einstellung für die Benutzeroberfläche

Nach der Ausführung der ersten Zeile des folgenden code -, Excel-änderungen der "gesamten Zellinhalt vergleichen" Einstellung in der Benutzeroberfläche. Das Ergebnis ist, dass der Benutzer das nächste mal drückt Strg+F die Suche erfolgt in der whole-cell-Inhalte. Ich weiß nicht, wie ein VBA-makro, dass die änderungen eine Einstellung, die sich auf die Benutzer-Erfahrung, so dass ich immer ausführen, die zweite Linie, die führt die weitere Suche und legt die "gesamten Zellinhalt vergleichen" zurück auf den Standardwert.

'execute the find and changes the entire cell content setting
Set C = MyRange.Find(SomeText, LookAt:=xlWhole)

'put the setting back to the default value (not the previous value)
MyRange.SomeText ParName, LookAt:=xlPart

Das problem ist, dass es setzt es auf den Standardwert zurück, nicht den Wert, den der Benutzer einstellen, es reicht.

Ich würde eher etwas wie:

'store the current entire cell content setting
OldLookAt = Application.FindLookAt

'execute the find
Set C = MyRange.Find(SomeText, LookAt:=xlWhole)

'restore the original setting
Application.FindLookAt = OldLookAt

Ich habe die Application.FindLookAt denn ich war nicht in der Lage, es zu finden.

Ist es ein Weg, um Range.Find etwas ohne die user experience?

InformationsquelleAutor stenci | 2013-10-09

2

Ich verbrachte ziemlich viel Zeit mit der Suche durch die Excel-Objekt Bibliothek und die MSDN-Dokumentation und es scheint nicht, dies ist möglich abrufen zu können.

Leider es sieht so aus, dass Excel tatsächlich überschreibt, und stellt Ihre Benutzer-Einstellung, wenn Sie nicht den parameter auf den Standardwert.
```
Private Sub testXLLookAT()

    'Setup fake falues
    Dim mCurLookup As XlLookAt
    Range("A1").value = "Test1"
    Range("A2").value = "Test"

    'get current setting, but this doesn't work as it defaults...
    If Range("A1:A2").Find("Test").Address = "A1" Then
        mCurLookup = xlPart
    Else
        mCurLookup = xlWhole
    End If

    'your find here

    'note - mCurLookup always becomes xlWhole...
    Range("A1:A2").Find What:="Test", LookAt:=mCurLookup



End Sub
```
Sonst würde der obige code funktioniert - aber es nicht als Standard überschrieben wird, auch wenn es nicht im Lieferumfang enthalten.

Danke für die Mühe. Ich markiere diese Antwort, weil ich nicht denke, dass ich alles besser. Dies scheint eine schmutzige Gegend, die Sie nicht einmal in der Dokumentation rechts: msdn.microsoft.com/en-us/library/office/... sagt "- Version Hinzugefügt: Excel 2007", aber es war bereits im Jahr 2003: msdn.microsoft.com/en-us/library/...
ja das ist eine gute Frage, ich hoffe, ich Irre mich - du hast Recht über die Dokumentation, auch. Die Versionen sind manchmal ein komplettes Chaos gibt.

InformationsquelleAutor enderland

Hier ist eine Funktion, die verwendet werden können, um das aktuelle LookAt default-Wert, so kann es zurückgesetzt werden.

Function lGetCurLookAt() As Long
'--returns current default value for Range.Find method's
'    LookAt parameter.

 '--use helper cell after all data in col A
 With Cells(Rows.Count, "A").End(xlUp)(3)
   .Value = "TestPart"
   lGetCurLookAt = IIf( _
    .Find(What:="Part", SearchFormat:=False) Is Nothing, _
    xlWhole, xlPart)
   .Value = vbNullString
 End With

End Function

Mein Erster Beitrag, also ich bin nicht in der Lage zu Kommentar hinzufügen auf enderland Antwort. Im Geist des seins hilfreich, dass der code nicht funktioniert wie erwartet, weil es verwendet, A1, statt $A$1.

InformationsquelleAutor Jerry Sullivan

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.