Recherchez B20 dans la colonne A à l’aide de la fonction RECHERCHEV dans le tableau 2

RECHERCHEV2 tableau 2 A B 2 0

Si vous ne comprenez pas comment générer des boutons et des programmes associés, demandez à nouveau, je ne répondrai pas à cette partie ici.

Parce que votre expression est ambiguë, voici trois méthodes.

'1. Écrivez une formule pour la cellule spécifiée (modifiez légèrement la cellule spécifiée ou cela peut être une variable) :

Sub écrit la formule() dans la cellule

Plage(＂B2＂).Sélectionner

ActiveCell.Formula = ＂=RECHERCHEV(A2, Tableau 2!A:B,2,0)＂

'ActiveCell.Formula = ＂=RECHERCHEV(A:A, Tableau 2!A:B,2,0)＂

'ActiveCell.FormulaR1C1 = ＂=RECHERCHEV(RC[-1], Tableau 2!C[-1]:C[0],2,0)＂

'ActiveCell.FormulaR1C1 = ＂=RECHERCHEV(C[-1], Tableau 2!C[-1]:C[0],2,0)＂

Fin du sous-marin

' 2. Expliquez la fonction RECHERCHEV et recherchez la valeur dans la référence de cellule spécifiée :

Sub spécifie la référence de recherche de cellule()

Dim m

Avec feuilles（＂Tableau 2＂）

Pour m = 1 À .[A65536].End(3).Row

Si .Cells(m, 1) = Sheets(1).Cells(2, 1) Alors

Feuilles(1).Cells(2, 2) = .Cells(m, 2)

Fin si

Suivant

Fin avec

Fin du sous-marin

' 2. Expliquez la fonction RECHERCHEV, qui fait référence à la valeur de recherche dans la colonne spécifiée. Le code ci-dessus est ici légèrement optimisé et est universel :

Sub All Find References()

Dim je, j

Avec feuilles（＂Tableau 2＂）

Pour i = 1 À .[A65536].End(3).Row

Pour j = 1 To Sheets(1).[A65536].End(3).Row

Si .Cells(i, 1) = Sheets(1).Cells(j, 1) Alors

Feuilles(1).Cells(j, 2) = .Cells(i, 2)

Fin si

Suivant

Suivant

Fin avec

Fin du sous-marin

Comment appeler des fonctions Excel dans les instructions VBA

Méthode/étapes

Ouvrez Microsoft Office Excel 2007, cliquez sur « Démarrer » -> « Options Excel ».

Dans la boîte de dialogue contextuelle, sélectionnez l'onglet « Général », puis cliquez sur « Afficher l'onglet « Outils de développement » dans le ruban » à droite, puis cliquez sur « OK ».

Entrez "radians" dans la cellule A1, entrez "angle" dans la cellule B1, entrez "3,14" dans la cellule A2, puis entrez la formule "= DEGRÉS (A2)" dans la cellule B2 et appuyez sur Entrée, le résultat de sortie de cette cellule est 179.9087477.

Remarque : La fonction DEGRÉS est utilisée pour convertir les radians en angles.

Ensuite, nous utilisons VBA pour implémenter la même fonction. Cliquez sur l'onglet "Outils de développement", cliquez sur "Visual Basic" pour démarrer Visual Basic Editor.

Faites un clic droit sur "Objet Microsoft Excel", cliquez sur "Insérer" -> "Module", créez le "Module 1", et saisissez le contenu dans le module :

Sous-conversion()

MsgBox Application.WorksheetFunction.Degrees(3.14)

Fin du sous-marin

Cliquez sur le bouton « Exécuter le sous-processus/UserForm », sélectionnez « Convertir » dans la boîte de dialogue contextuelle, puis cliquez sur le bouton « Exécuter ».

Le programme affiche une boîte de dialogue et le résultat est le même que celui obtenu par la formule dans Excel, sauf que le nombre de chiffres significatifs est différent, qui peut être choisi selon les besoins.

Résumé : lorsque vous effectuez une programmation VBA, vous pouvez utiliser la méthode WorkSheetFunction pour référencer des fonctions Excel. Cela nous permet de référencer plus facilement les fonctions, d'éviter de passer plus de temps sur des fonctions personnalisées et d'améliorer efficacement l'efficacité du travail.

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!