ExcelのカスタムTEXTJOIN機能、スイッチ機能について

内容:

TEXTJOIN機能紹介

スイッチ機能紹介

カスタム関数法

ソース


TEXTJOIN機能:

エクセル2016でTEXTJOIN機能は、機能の新バージョンの発売です。

セルの値は、それがシンボルと地域の文字列に組み込まれます。

例えば:

、あなたがこれを行うことができます単語で構成されるカンマでそれらを接続するには、2個のセルが「大丈夫です」「長い時間が全く見」とありません。

 

構文TEXTJOIN関数:= TEXTJOIN(コネクタ、ヌル値を無視するかどうか、オブジェクトはマージされます)

 


スイッチ機能:

学習されたプログラミング機能IFネストされた多層と同様であるが、それに、それは非常に効率的では見知らぬ人、あってはなりません。

図の使用例:

 

スイッチ機能構文:= SWITCH(判定の対象、1の値は、結果、2の値は、結果2、.........)

スイッチ機能は、マッチングのために126の値を追加することができ


上記を読んで、あなたはこれらの二つの機能を考える必要がありますが、右、非常に便利ですか!

しかし:

TEXTJOIN機能上のExcel2016 365で、ほとんどのユーザーはこの機能を使用することができないということだけで、意味、あなたは2016365以降をインストールする必要がある場合に使用する必要があります。

スイッチ機能は TEXTJOINの関数であり、一緒にリリースされ、また、365以降を使用する必要があります。

 

しかし、なぜ同様の機能を記述していませんか?

私はパッチワーク、インターネットに長い時間を見つけ、私は私は彼らが基本と公式の機能をまったく同じ作り、ビットを変更し、同様のコードを見つけましたが、彼らの公式の機能といくつかの違いがあります。このように、我々は、以前のバージョンのExcelでこれらの関数を使用することができます。


カスタム関数法:

1.ダウンロード機能パッケージ(CSDN資源   や   Baiduのネットワークディスクの抽出コード:愛

示されるように図2に示すように、ファイルを取得します。

、Excelを起動するための時間となります3、ダブルクリックして開きます、それは警告を促すメッセージが表示されます:

マクロを有効にする]をクリックする4、この時間が必要(カスタム関数を実行するために、マクロを有効)

5.マクロを有効にした後、そのファイルを開きます。これは、アドインファイルであるので、しかし、それは、何もないように見えます。Altキー+ VBエディタを開くためにF11キーを押してみてください、あなたは、これら2つの関数のソースを見ることができます。図:

図6に示すように、インターフェースを閉じ

図7は、今あなたがExcelを開くたびに、これらの2つの機能をロードするように、スタートアップ項目にこのファイルを追加する必要があります

8、=>(あなたは、「開発者ツール」を有効にする必要があります)、「オプション」をクリックして「ファイル」をクリックしてください:

9、開発ツールを有効にします。

10、インを追加するためのカスタムマクロ:

 11、完了し、その後、あなたはすでに、これらの二つの機能を使用することができます。


それは注目に値するです:スタートアップ項目は、Excelマクロに追加した後、「C:\ Users \ユーザー名\のAppData \ローミング\マイクロソフト\アドインにファイルをコピーします 」 内の、そしてあなたが削除されたファイルをダウンロードすることができ、これは、使用には影響しません。

 


出典:

TEXTJOIN機能:

' 自定义TEXTJOIN函数
Function TEXTJOIN(merger, ignore, ParamArray arr())
    Dim A As Variant, B As Variant, Mstr$
    If IsMissing(merger) Then merger = " "
    If Not IsMissing(arr) Then
        For Each A In arr
            If IsArray(A) Then
                For Each B In A
                    If ignore = 0 Or B <> "" Then Mstr = Mstr & merger & B
                Next
            Else
                If ignore = 0 Or A <> "" Then Mstr = Mstr & merger & A
            End If
        Next
    End If
    If Len(Mstr) Then TEXTJOIN = Mid(Mstr, 1 + Len(merger))
End Function

スイッチ機能:

' 自定义SWITCH函数
Function SWITCH(Obj, ParamArray va())
    Application.Volatile True
    Dim i%
    For i = 0 To UBound(va) Step 2
        If va(i) = Obj Then
            SWITCH = va(i + 1)
            Exit Function
        End If
    Next
    SWITCH = False
End Function

 

公開された10元の記事 ウォンの賞賛0 ビュー482

おすすめ

転載: blog.csdn.net/weixin_44549795/article/details/104850267