Excel 2016 VBAでラッパー関数を使用する方法 - ダミー

ビデオ: TARGETとエクセルを使ってテン乗りや乗り戻りを抽出する方法 2024

ここでは、非常に便利なExcel VBAワークシート関数を簡単に見つけることができます。これらの関数は、本質的なVBA要素にラップされたコードで構成されているため、ラッパー関数と呼ばれます。つまり、ワークシート式でVBA関数を使用することができます。

Function User（） '現在のユーザーUser = Applicationの名前を返します。 UserName End Function

この関数は、本質的に、数式でApplicationオブジェクトのUserNameプロパティにアクセスできるようにします。

<！ --1 - >

NumberFormat関数

この関数は、単にセルの数値書式を表示します。セルのグループがすべて同じ数値形式を持つようにする必要がある場合に便利です。

Function NumberFormat（Cell） 'セルの数値形式を返します。NumberFormat = Cell（1）。 NumberFormat End Function

Cell（1）の使用に注目してください。マルチセル範囲が引数として使用される場合、最初のセルだけが使用されます。

セルのテキストの色、背景色、フォントなどを返す同様の関数を簡単に書くことができます。

このラッパー関数は、区切り文字で区切られた複数の要素を含むテキスト文字列から部分文字列を返します。たとえば、この式はcowを返します。これは、スペースをセパレータとして使用する文字列の3番目の要素です。議論は、もちろん、セル参照である可能性があります。

<！ VBAのSplit関数のラッパーであるコードは次のとおりです。

Function ExtractElement（Txt、n、 Sep） '指定された区切り文字で区切られたテキスト文字列のn番目の要素を返しますExtractElement = Split（Application。Trim（Txt）、Sep）（n - 1）End Function

ワークシート式で使用されるExtractElement関数。列Aはテキスト文字列を含み、列Bは抽出される要素番号を含み、列Cは区切り文字を含む（空白に見えるセルは空白文字を含む）。

ExtractElement関数を使用して文字列から要素を戻します。

SayIt関数

この単純関数は、アプリケーションのSpeakメソッドのラッパーです。音声オブジェクト。それは合成音声を使って議論を「話す」。

= IF（C10> 10000、SayIt（ "Over budget"）、 "OK"）

数式はセルC10をチェックします。値が10,000より大きい場合、関数は "Over budget"というテキストを表示します。"値が10,000未満の場合、関数はOKというテキストを表示します（何も言わない）。

控えめに使用してください。この機能を複数回使用すると、非常に混乱することがあります。また、この関数はワークシートが計算されるたびに評価されるため、多くの変更を加えると声が非常に迷惑になることがあります。この機能はおそらくアミューズメント目的に適しています。

IsLike関数

VBAのLike演算子は、テキスト文字列を比較する非常に柔軟な方法です。 VBAヘルプシステムで確認してください。

関数IsLike（text、pattern） '最初の引数が2番目の引数と同じであれば真を返すIsLike =テキストのようなパターンEnd Function