ボタンと関連プログラムの生成方法がわからない場合は、もう一度質問してください。この部分についてはここでは答えません。
表現が曖昧なので、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 オプション] をクリックします。
セル 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 サイトの他の関連記事を参照してください。