表 2 の VLOOKUP 関数を使用して列 A の B20 を検索します。

VLOOKUPA2 テーブル 2 A B 2 0

ボタンと関連プログラムの生成方法がわからない場合は、もう一度質問してください。この部分についてはここでは答えません。

表現が曖昧なので、3つの方法を紹介します。

'1. 指定したセルの数式を記述します (指定したセルを少し変更するか、変数にすることもできます):

Sub は数式 () をセルに書き込みます

範囲(＂B2＂).選択

ActiveCell.Formula = "=VLOOKUP(A2, テーブル 2!A:B,2,0)"

'ActiveCell.Formula = "=VLOOKUP(A:A, テーブル 2!A:B,2,0)"

'ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1], テーブル 2!C[-1]:C[0],2,0)"

'ActiveCell.FormulaR1C1 = "=VLOOKUP(C[-1], テーブル 2!C[-1]:C[0],2,0)"

エンドサブ

'2. VLOOKUP 関数を説明し、指定したセル参照の値を見つけます:

Sub セル検索参照指定()

寸法m

シートあり（＂表2＂）

m = 1 の場合 .[A65536].End(3).Row

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

シート(1).セル(2, 2) = .セル(m, 2)

終了の場合

＃＃＃次＃＃＃

で終わる

エンドサブ

'2. 指定した列の検索値を参照するVLOOKUP関数について説明します。上記のコードはここでわずかに最適化されており、汎用性があります:

Sub All 参照の検索()

Dim i、j

シートあり（＂表2＂）

For i = 1 To .[A65536].End(3).Row

j = 1 の場合 Sheets(1).[A65536].End(3).Row

If .Cells(i, 1) = Sheets(1).Cells(j, 1) then

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

終了の場合

＃＃＃次＃＃＃ ＃＃＃次＃＃＃

で終わる

エンドサブ

VBA 命令で Excel 関数を呼び出す方法

方法/ステップ

Microsoft Office Excel 2007 を開き、[スタート] -> [Excel オプション] をクリックします。

ポップアップダイアログボックスで「全般」タブを選択し、右側の「リボンに「開発ツール」タブを表示する」をクリックして「OK」をクリックします。

セル A1 に「ラジアン」を入力し、セル B1 に「角度」を入力し、セル A2 に「3.14」を入力してから、セル B2 に数式「=DEGREES(A2)」を入力して Return キーを押します。車の後に、出力が表示されます。このセルの結果は 179.9087477 です。

注: DEGREES 関数は、ラジアンを角度に変換するために使用されます。

次に、VBA を使用して同じ機能を実装します。 「開発ツール」タブをクリックし、「Visual Basic」をクリックして Visual Basic Editor を起動します。

「Microsoft Excel オブジェクト」を右クリックし、「挿入」->「モジュール」をクリックして「モジュール 1」を作成し、モジュールにコンテンツを入力します。

Sub Convert()

MsgBox Application.WorksheetFunction.Degrees(3.14)

エンドサブ

「サブプロセス/ユーザーフォームの実行」ボタンをクリックし、ポップアップダイアログボックスで「変換」を選択し、「実行」ボタンをクリックします。

プログラムによりダイアログ ボックスが表示され、必要に応じて選択できる有効桁数が異なることを除いて、結果は Excel の数式によって出力された結果と同じです。

概要: VBA プログラミングを行う場合、WorkSheetFunction メソッドを使用して Excel 関数への参照を実装できます。これにより、関数への参照が容易になり、カスタム関数に多くの時間を費やすことがなくなり、効果的に効率が向上します。

以上が表 2 の VLOOKUP 関数を使用して列 A の B20 を検索します。の詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。