Prévenir La Gamme.Find() de changer le “match ensemble du contenu de la cellule” paramètre de l'interface utilisateur

Après l'exécution de la première ligne du code ci-dessous, Excel modifie le Match ensemble du contenu de la cellule paramètre dans l'interface utilisateur. Le résultat est que la prochaine fois que l'utilisateur appuie sur Ctrl+F la recherche se fait dans l'ensemble du contenu de la cellule. Je n'aime pas une macro VBA qui change un paramètre qui influe sur l'expérience de l'utilisateur, de sorte que j'ai toujours exécuter la deuxième ligne, qui effectue une recherche et définit les Match ensemble du contenu de la cellule par défaut.

'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

Le problème est qu'il jeux de revenir à la valeur par défaut, et non pas à la valeur à l'utilisateur de définir ce dernier.

Je préfère avoir quelque chose comme:

'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

J'ai fait jusqu'à la Application.FindLookAt parce que je n'étais pas capable de le trouver.

Est-il un moyen de Range.Find quelque chose sans affecter l'expérience de l'utilisateur?

OriginalL'auteur stenci | 2013-10-09

  1. 2

    J'ai passé pas mal de temps à la recherche par le biais de la bibliothèque d'objet Excel et la documentation MSDN et il ne semble pas que c'est possible de les récupérer.

    Malheureusement, il ressemble également à Excel en fait remplace et met à votre réglage de l'utilisateur si vous n'incluez pas le paramètre par défaut.

    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

    Sinon, le code ci-dessus devrait fonctionner - mais il n'a pas la valeur par défaut est écrasée, même quand il n'est pas inclus.

    Merci pour l'effort. Je marque ce la réponse parce que je ne pense pas que je vais obtenir quelque chose de mieux. Cela semble être un désordre zone, ils n'ont même pas obtenir la documentation à droite: msdn.microsoft.com/en-us/library/office/... dit "Version a Ajouté: Excel 2007", mais il était déjà dans l'2003: msdn.microsoft.com/en-us/library/...
    ouais c'est une bonne question, j'espère que je me trompe - vous avez raison à propos de la documentation, de trop. Les versions sont parfois un désordre complet.

    OriginalL'auteur enderland

  2. 3

    Voici une fonction qui peut être utilisée pour renvoyer le courant LookAt valeur par défaut de sorte qu'il peut être remis à zéro.

    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

    Mon premier post, donc je ne suis pas en mesure d'ajouter un commentaire à enderland de réponse. Dans l'esprit de l'utilité, que le code n'a pas fonctionné comme prévu parce qu'il a utilisé A1 au lieu de $A$1.

    OriginalL'auteur Jerry Sullivan