Finden Sie B20 in Spalte A mithilfe der SVERWEIS-Funktion in Tabelle 2

VLOOKUPA2 Tabelle 2 A B 2 0

Wenn Sie nicht verstehen, wie man Schaltflächen und zugehörige Programme generiert, fragen Sie noch einmal. Ich werde diesen Teil hier nicht beantworten.

Da Ihr Ausdruck mehrdeutig ist, gibt es hier drei Methoden.

'1. Schreiben Sie eine Formel für die angegebene Zelle (ändern Sie die angegebene Zelle leicht, oder es kann eine Variable sein):

Sub schreibt Formula() in die Zelle

Bereich(＂B2＂).Auswählen

ActiveCell.Formula = ＂=VLOOKUP(A2, Tabelle 2!A:B,2,0)＂

'ActiveCell.Formula = ＂=VLOOKUP(A:A, Tabelle 2!A:B,2,0)＂

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

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

End Sub

' 2. Erklären Sie die SVERWEIS-Funktion und suchen Sie den Wert in der angegebenen Zellreferenz:

Sub gibt die Zellsuchreferenz()

an

Dim m

Mit Blättern（＂Tabelle 2＂）

Für m = 1 To .[A65536].End(3).Row

Wenn .Cells(m, 1) = Sheets(1).Cells(2, 1) Then

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

Ende wenn

Weiter

Ende mit

End Sub

' 2. Erklären Sie die VLOOKUP-Funktion, die sich auf den Suchwert in der angegebenen Spalte bezieht. Der obige Code ist hier leicht optimiert und universell einsetzbar:

Sub All Find References()

Dim i, j

Mit Blättern（＂Tabelle 2＂）

Für i = 1 To .[A65536].End(3).Row

Für j = 1 To Sheets(1).[A65536].End(3).Row

Wenn .Cells(i, 1) = Sheets(1).Cells(j, 1) Then

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

Ende wenn

Weiter

Weiter

Ende mit

End Sub

So rufen Sie Excel-Funktionen in VBA-Anweisungen auf

Methode/Schritte

Öffnen Sie Microsoft Office Excel 2007 und klicken Sie auf „Start“ -> „Excel-Optionen“.

Wählen Sie im Popup-Dialogfeld die Registerkarte „Allgemein“ aus, klicken Sie rechts auf „Registerkarte ‚Entwicklertools‘ im Menüband anzeigen“ und klicken Sie auf „OK“.

Geben Sie „Bogenmaß“ in Zelle A1 ein, geben Sie „Winkel“ in Zelle B1 ein, geben Sie „3,14“ in Zelle A2 ein, geben Sie dann die Formel „=DEGREES(A2)“ in Zelle B2 ein und drücken Sie die Eingabetaste. Das Ausgabeergebnis dieser Zelle lautet 179.9087477.

Hinweis: Die Funktion DEGREES wird verwendet, um Bogenmaß in Winkel umzurechnen.

Als nächstes verwenden wir VBA, um dieselbe Funktion zu implementieren. Klicken Sie auf die Registerkarte „Entwicklungstools“ und dann auf „Visual Basic“, um den Visual Basic-Editor zu starten.

Klicken Sie mit der rechten Maustaste auf „Microsoft Excel-Objekt“, klicken Sie auf „Einfügen“ -> „Modul“, erstellen Sie „Modul 1“ und geben Sie den Inhalt in das Modul ein:

Sub konvertieren()

MsgBox Application.WorksheetFunction.Degrees(3.14)

End Sub

Klicken Sie auf die Schaltfläche „Unterprozess/UserForm ausführen“, wählen Sie im Popup-Dialogfeld „Konvertieren“ und klicken Sie dann auf die Schaltfläche „Ausführen“.

Das Programm öffnet ein Dialogfeld und das Ergebnis ist dasselbe wie das von der Formel in Excel ausgegebene Ergebnis, mit der Ausnahme, dass die Anzahl der signifikanten Ziffern unterschiedlich ist und je nach Bedarf ausgewählt werden kann.

Zusammenfassung: Bei der VBA-Programmierung können Sie die WorkSheetFunction-Methode verwenden, um auf Excel-Funktionen zu verweisen. Dies erleichtert uns die Referenzierung von Funktionen, vermeidet mehr Zeit für benutzerdefinierte Funktionen und verbessert effektiv die Arbeitseffizienz.

Das obige ist der detaillierte Inhalt vonFinden Sie B20 in Spalte A mithilfe der SVERWEIS-Funktion in Tabelle 2. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!