Acerca de la función personalizada TEXTJOIN Excel, la función de interruptor

contenido:

Introducción de la función TEXTJOIN

Introducción de la función INTERRUPTOR

Método función personalizada

fuente

---

TEXTJOIN función:

TEXTJOIN función en Excel 2016 es el lanzamiento de una nueva versión de la función.

Los valores de las celdas que se ensamblan en una cadena de caracteres con un símbolo de la región.

Por ejemplo:

Hay "tiempo sin verte" y "¿Estás bien" dos células, para conectarlos con una coma compuesto por una palabra, usted puede hacer esto:

 

función Sintaxis TEXTJOIN: = TEXTJOIN (conector, si desea ignorar el valor nulo, el objeto que se fusionó)

 

---

función de interruptor:

la programación aprendida no debe ser extraño, que es similar a una de varias capas anidadas función SI, pero con ella, es muy eficiente.

ejemplos de uso fig:

 

función de interruptor Sintaxis: = INTERRUPTOR (objetivo de juicio, el valor de 1, un resultado, el valor de 2, los resultados 2, .........)

función de interruptor puede añadir hasta un valor de 126 para la coincidencia

---

Leer lo anterior, se debe pensar en estas dos funciones es muy conveniente, ¿verdad?

Sin embargo:

función TEXTJOIN en Excel2016 365 y superiores, medios que la mayoría de los usuarios no pueden utilizar esta función, usted tiene que utilizar si es necesario instalar 2016365 o posterior.

función de interruptor es una función de TEXTJOIN y lanzado en conjunto, también necesitará utilizar 365 o posterior.

 

Pero por qué no escribir una función similar?

Encuentro de Internet desde hace mucho tiempo, mosaico, me encontré con un código similar, pero su función oficial y hay algunas diferencias, he modificado un poco, por lo que las funciones básicas y oficial exactamente lo mismo. De esta manera, podemos utilizar estas funciones en versiones anteriores de Excel.

---

Función personalizada Método:

1. Descargar paquete de funciones ( recursos CSDN   o   Baidu código de extracción de disco de red: Amor )

2, para obtener el archivo como se muestra:

3, haga doble clic para abrir, será el momento para iniciar Excel, se le pedirá una advertencia:

4, esta necesidad tiempo para hacer clic en Habilitar macros (habilitar las macros para ejecutar la función personalizada)

5. Después de habilitar la macro, se abre el archivo. Pero parece que nada, porque se trata de un archivo de complemento. Intente presionar las teclas ALT + F11 para abrir el editor de VB, se puede ver la fuente de estas dos funciones. Figura:

6, cerrar la interfaz

7, ahora tenemos que añadir este archivo a los elementos de inicio para que cada vez que se abre Excel cargará estas dos funciones

8, haga clic en "Archivo" => haga clic en "Opciones" (necesita habilitar las "Herramientas de Desarrollo"):

9, permitirá a las herramientas de desarrollo:

10, la macro personalizada a los complementos:

 11, completado, entonces ya se puede utilizar estas dos funciones de:

---

Vale la pena señalar : Después de que los elementos de inicio para agregar a la macro Excel copiará un archivo a "C: \ Users \ nombre de usuario \ AppData \ Roaming \ Microsoft \ AddIns " en el interior, a continuación, puede descargar el archivo borrado, que no afecta a su uso.

 

---

fuente:

TEXTJOIN función:

' 自定义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

función de interruptor:

' 自定义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