VBA Excel: Comment puis-je utiliser Recherchev et SI en VBA?

Comment puis-je le faire en VBA?

IF(VLOOKUP(E3;Tabel5;2;0)>=F26;VLOOKUP(E3;Tabel5;4;0)*F26;)

Merci beaucoup!

  • veuillez décrire ce que vous essayez de le faire (au lieu de simplement donner de l'alternative fonction excel)
InformationsquelleAutor user3133588 | 2014-01-05
  1. 2

    essayez d'utiliser ce code:

    Premier moyen (vous pouvez utiliser la fonction définie par l'utilisateur):

    Function getSomeData(E3 As Range, Table5 As Range, F26 As Range)      
   getSomeData = ""

   If WorksheetFunction.VLookup(E3, Table5, 2, 0) >= F26 Then
      getSomeData= WorksheetFunction.VLookup(E3, Table5, 4, 0) * F26
   End If
End Function

    Que vous pouvez l'appeler comme ça dans n'importe quelle cellule, juste en tapant =getSomeData(E3;Tabel5;F26) en elle. Les avantages de cette approche est que lorsque vous modifiez des données dans les cellules liées (E3, F26 ou Table5), la fonction recalcule la valeur dans la cellule.

    Deuxième façon:

    Sub getSomeDataSub()    
   Dim E3 As Range, F26 As Range, Table5 As Range

   Range("F27") = ""
   Set E3 = Range("E3")
   Set Table5 = Range("Table5")
   Set F26 = Range("F26")
   If WorksheetFunction.VLookup(E3, Table5, 2, 0) >= F26 Then
      Range("F27")= WorksheetFunction.VLookup(E3, Table5, 4, 0) * F26
   End If
End Sub

    vous pouvez appeler cette macro à partir du ruban, et il insère des données dans F27 cellule. Dans cette approche, vous devez appeler cette macro à chaque fois que vous modifiez les valeurs dans les cellules liées à recalculer en F27.

    • Comment puis-je faire que le code VBA exécuter dans la cellule F27 ? Merci pour la rapidité de responsab 🙂
    • J'ai mis à jour ma réponse
    • Le premier fonctionne très bien - mais il ne met pas à jour automatiquement, je dois mettre à jour manuellement la cellule F27. Est' il possible que la cellule F27 fonctionne automatiquement dès que la cellule F26 changements? 🙂
    • Voir les mises à jour de ma réponse
    • Merci pour l'aide, il fonctionne parfaitement. Juste une question est-il possible d'insérer deux fonctions supplémentaires dans le code: Présent dans la cellule F26: = SOMME (Tabel4 [Total]) et ce dans la cellule F28: = F27 + F26 Merci encore 🙂
    • Désolé, je n'ai pas accepté votre réponse tout de suite - je suis nouveau ici. Comment puis-je ajouter les deux fonctions dans le code? Merci 🙂
    • Si je vous comprends bien, que d'essayer ces fonctions: Function addValues(F27 As Range, F26 As Range) addValues = F27 + F26 End Function pour F26 cellule et Function TableSum(Table4 As Range) TableSum = WorksheetFunction.Sum(Table4) End Function pour F28 cellule
    • Vous l'avez compris moi bien, mais comment puis-je fusionner dans le premier code? 🙂
    • Vous devez utiliser 3 utilisateur distinct difined fonctions: getSomeData , addValues, TableSum. Si vous souhaitez qu'il soit dans l'une des fonctions - il est préférable d'utiliser la seconde approche, en ajoutant deux lignes: au tout début de la fonction : Range("F26")=WorksheetFunction.Sum(Range("Table4")) et à la fin de la fonction : Range("F28")=Range("F27")+Range("F26")

    InformationsquelleAutor Dmitry Pavliv