Tabla de traducción de fórmulas Excel español vs english

Español Inglés
ABRIR.ARCHIVO OPEN.DIALOG
ABRIRA FOPEN
ABS ABS
ACOS ACOS
ACOSH ACOSH
AGREGAR.BARRA ADD.BAR
AGREGAR.BARRA.HERRAMIENTAS ADD.TOOLBAR
AGREGAR.COMANDO ADD.COMMAND
AGREGAR.MENU ADD.MENU
AGRUPAR GROUP
AHORA NOW
ALEATORIO RAND
AÑO YEAR
APL.TITULO APP.TITLE
ARCHIVOS FILES
AREAS AREAS
ARGUMENTO ARGUMENT
ASC ASC
ASENO ASIN
ASENOH ASINH
ATAN ATAN
ATAN2 ATAN2
ATANH ATANH
AYUDA HELP
BDCONTAR DCOUNT
BDCONTARA DCOUNTA
BDDESVEST DSTDEV
BDDESVESTP DSTDEVP
BDEXTRAER DGET
BDMAX DMAX
BDMIN DMIN
BDPRODUCTO DPRODUCT
BDPROMEDIO DAVERAGE
BDSUMA DSUM
BDVAR DVAR
BDVARP DVARP
BINOM.CRIT CRITBINOM
BUSCAR LOOKUP
BUSCARH HLOOKUP
BUSCARV VLOOKUP
CADENA.FECHA DATESTRING
CADENA.NUMERO NUMBERSTRING
CAMBIAR.NOMBRE.COMANDO RENAME.COMMAND
CANCELAR.TECLA CANCEL.KEY
CARACTER CHAR
CELDA CELL
CELDA.ACTIVA ACTIVE.CELL
CERRARA FCLOSE
CODIGO CODE
COEF.DE.CORREL CORREL
COEFICIENTE.ASIMETRIA SKEW
COEFICIENTE.R2 RSQ
COINCIDIR MATCH
COLUMNA COLUMN
COLUMNAS COLUMNS
COMBINAT COMBIN
CONCATENAR CONCATENATE
CONTAR COUNT
CONTAR.BLANCO COUNTBLANK
CONTAR.SI COUNTIF
CONTARA COUNTA
COS COS
COSH COSH
COVAR COVAR
CREAR.OBJETO CREATE.OBJECT
CRECIMIENTO GROWTH
CUADRO.DE.DIALOGO DIALOG.BOX
CUADRO.DE.TEXTO TEXT.BOX
CUARTIL QUARTILE
CURTOSIS KURT
DB DB
DBCS DBCS
DDB DDB
DECIMAL FIXED
DERECHA RIGHT
DERECHAB RIGHTB
DESREF OFFSET
DESREGISTRAR UNREGISTER
DESVEST STDEV
DESVESTP STDEVP
DESVIA2 DEVSQ
DESVPROM AVEDEV
DETENER HALT
DIA DAY
DIAS360 DAYS360
DIASEM WEEKDAY
DIRECCION ADDRESS
DIRECTORIO DIRECTORY
DIST.WEIBULL WEIBULL
DISTR.BETA BETADIST
DISTR.BETA.INV BETAINV
DISTR.BINOM BINOMDIST
DISTR.CHI CHIDIST
DISTR.EXP EXPONDIST
DISTR.F FDIST
DISTR.F.INV FINV
DISTR.GAMMA GAMMADIST
DISTR.GAMMA.INV GAMMAINV
DISTR.HIPERGEOM HYPGEOMDIST
DISTR.LOG.INV LOGINV
DISTR.LOG.NORM LOGNORMDIST
DISTR.NORM NORMDIST
DISTR.NORM.ESTAND NORMSDIST
DISTR.NORM.ESTAND.INV NORMSINV
DISTR.NORM.INV NORMINV
DISTR.T TDIST
DISTR.T.INV TINV
DOCUMENTOS DOCUMENTS
DVS VDB
ECHO ECHO
EJEC EXEC
EJECUTA EXECUTE
ELEGIR CHOOSE
ELIMINAR.BARRA DELETE.BAR
ELIMINAR.BARRA.HERRAMIENTAS DELETE.TOOLBAR
ELIMINAR.COMANDO DELETE.COMMAND
ELIMINAR.MENU DELETE.MENU
ENCONTRAR FIND
ENCONTRARB FINDB
ENTERO INT
ERROR ERROR
ERROR.TIPICO.XY STEYX
ESBLANCO ISBLANK
ESCENARIO.INDICAR SCENARIO.GET
ESCRIBIRA FWRITE
ESCRIBIRALN FWRITELN
ESERR ISERR
ESERROR ISERROR
ESLOGICO ISLOGICAL
ESNOD ISNA
ESNOTEXTO ISNONTEXT
ESNUMERO ISNUMBER
ESPACIOS TRIM
ESREF ISREF
ESTABLECER.NOMBRE SET.NAME
ESTABLECER.VALOR SET.VALUE
ESTEXTO ISTEXT
ESTIMACION.LINEAL LINEST
ESTIMACION.LOGARITMICA LOGEST
EVALUAR EVALUATE
EXP EXP
EXTRAE MIDB
EXTRAE MID
FACT FACT
FECHA DATE
FECHANUMERO DATEVALUE
FILA ROW
FILAS ROWS
FISHER FISHER
FORMULA.CONVERTIR FORMULA.CONVERT
FRECUENCIA FREQUENCY
GAMMA.LN GAMMALN
GET.MOVIE GET.MOVIE
GRADOS DEGREES
GUARDAR.ARCHIVO SAVE.DIALOG
GUARDAR.BARRA.HERRAMIENTAS SAVE.TOOLBAR
HABILITAR.COMANDO ENABLE.COMMAND
HABILITAR.HERRAMIENTA ENABLE.TOOL
HALLAR SEARCH
HALLARB SEARCHB
HORA HOUR
HORANUMERO TIMEVALUE
HOY TODAY
ID.REGISTRO REGISTER.ID
IGUAL EXACT
INDICAR.AREA.DE.TRABAJO GET.WORKSPACE
INDICAR.BARRA GET.BAR
INDICAR.BARRA.HERRAMIENTAS GET.TOOLBAR
INDICAR.CAMPO.TABLA.DI GET.PIVOT.FIELD
INDICAR.CELDA GET.CELL
INDICAR.DEF GET.DEF
INDICAR.DOCUMENTO GET.DOCUMENT
INDICAR.ELEMENTO.GRAFICO GET.CHART.ITEM
INDICAR.ELEMENTO.TABLA.DI GET.PIVOT.ITEM
INDICAR.FORMULA GET.FORMULA
INDICAR.HERRAMIENTA GET.TOOL
INDICAR.INFO.VINCULO GET.LINK.INFO
INDICAR.LIBRO GET.WORKBOOK
INDICAR.NOMBRE GET.NAME
INDICAR.NOTAS GET.NOTE
INDICAR.OBJETO GET.OBJECT
INDICAR.TABLA.DINAMICA GET.PIVOT.TABLE
INDICAR.VENTANA GET.WINDOW
INDICE INDEX
INDIRECTO INDIRECT
INFO INFO
INICIAR INITIATE
INT.PAGO.DIR ISPMT
INTERSECCION INTERCEPT
INTERVALO.CONFIANZA CONFIDENCE
INTRODUCIR INPUT
IR.A GOTO
IZQUIERDA LEFT
IZQUIERDAB LEFTB
JERARQUIA RANK
K.ESIMO.MAYOR LARGE
K.ESIMO.MENOR SMALL
LARGO LEN
LARGOB LENB
LEERA FREAD
LEERALN FREADLN
LIMPIAR CLEAN
LN LN
LOG LOG
LOG10 LOG10
LLAMADOR CALLER
LLAMAR CALL
MARCAR.COMANDO CHECK.COMMAND
MAX MAX
MAYUSC UPPER
MDETERM MDETERM
MEDIA.ACOTADA TRIMMEAN
MEDIA.ARMO HARMEAN
MEDIA.GEOM GEOMEAN
MEDIANA MEDIAN
MES MONTH
MIN MIN
MINUSC LOWER
MINUTO MINUTE
MINVERSA MINVERSE
MMULT MMULT
MODA MODE
MONEDA DOLLAR
MOSTRAR.BARRA SHOW.BAR
MOVIE.COMMAND MOVIE.COMMAND
MULTIPLO.INFERIOR FLOOR
MULTIPLO.SUPERIOR CEILING
N N
NEGBINOMDIST NEGBINOMDIST
NO NOT
NOD NA
NOMBRES NAMES
NOMPROPIO PROPER
NORMALIZACION STANDARDIZE
NOTA NOTE
NPER NPER
NSHORA TIME
NUMERO.ROMANO ROMAN
O OR
OPCIONES.INDICAR.LISTAS OPTIONS.LISTS.GET
PAGO PMT
PAGOINT IPMT
PAGOPRIN PPMT
PASO.A.PASO STEP
PAUSA PAUSE
PEARSON PEARSON
PENDIENTE SLOPE
PERCENTIL PERCENTILE
PERMUTACIONES PERMUT
PERSONALIZAR.DESHACER CUSTOM.UNDO
PERSONALIZAR.REPETIR CUSTOM.REPEAT
PI PI
POISSON POISSON
POSICIONA FPOS
POTENCIA POWER
PRESIONAR.HERRAMIENTA PRESS.TOOL
PROBABILIDAD PROB
PRODUCTO PRODUCT
PROMEDIO AVERAGE
PRONOSTICO FORECAST
PRUEBA.CHI CHITEST
PRUEBA.CHI.INV CHIINV
PRUEBA.F FTEST
PRUEBA.FISHER.INV FISHERINV
PRUEBA.T TTEST
PRUEBA.Z ZTEST
RADIANES RADIANS
RAIZ SQRT
RANGO.PERCENTIL PERCENTRANK
REANUDAR RESUME
REDONDEA.IMPAR ODD
REDONDEA.PAR EVEN
REDONDEAR ROUND
REDONDEAR.MAS ROUNDUP
REDONDEAR.MENOS ROUNDDOWN
REEMPLAZAR REPLACE
REEMPLAZARB REPLACEB
REFABS ABSREF
REFREL RELREF
REFTEXTO REFTEXT
REGISTRAR REGISTER
REINICIAR RESTART
REPETIR REPT
RESIDUO MOD
RESTABLECER.BARRA RESET.TOOLBAR
RESULTADO RESULT
REVISION.ORTOGRAFICA SPELLING.CHECK
SEGUNDO SECOND
SELECCION SELECTION
SENO SIN
SENOH SINH
SERIES SERIES
SI IF
SIFECHA DATEDIF
SIGNO SIGN
SLN SLN
SOLICITAR REQUEST
SUBTOTALES SUBTOTAL
SUMA SUM
SUMA.CUADRADOS SUMSQ
SUMAPRODUCTO SUMPRODUCT
SUMAR.SI SUMIF
SUMAX2MASY2 SUMX2PY2
SUMAX2MENOSY2 SUMX2MY2
SUMAXMENOSY2 SUMXMY2
SUSTITUIR SUBSTITUTE
SYD SYD
T T
TABLA.DI.ADICIONAR.DATOS PIVOT.ADD.DATA
TAMAÑOA FSIZE
TAN TAN
TANH TANH
TASA RATE
TENDENCIA TREND
TERMINAR TERMINATE
TEXTO TEXT
TEXTOREF TEXTREF
TIPO TYPE
TIPO.DE.ERROR ERROR.TYPE
TIR IRR
TIRM MIRR
TRANSFERIR POKE
TRANSPONER TRANSPOSE
TRUNCAR TRUNC
ULTIMO.ERROR LAST.ERROR
USDOLLAR USDOLLAR
VA PV
VALOR VALUE
VALREF DEREF
VAR VAR
VARP VARP
VENTANA.TITULO WINDOW.TITLE
VENTANAS WINDOWS
VF FV
VINCULOS LINKS
VNA NPV
VOLATIL VOLATILE
Y AND
FALSO FALSE
VERDADERO TRUE

 

Contar único VBA

Esta función permite contar valores únicos de un rango, con una condición de otro rango. Sería algo parecido a la funcion contar.si, pero el resultado final son valores únicos.

=ContarUnico([1];[2];[3])

[1]: Rango de valores que queremos contar sin repetidos

[2]: Rango que tienen las condiciones

[3]: Condición

Captura

Public Function ContarUnico(rng As Range) As Long
   'abelorteu@informaticaea.com
 
    Dim col As New Collection
    Dim cel As Range
    On Error Resume Next
    For Each cel In rng
        col.Add Item:=CStr(cel.Value), Key:=CStr(cel.Value)
    Next cel
    ContarUnico = col.Count
End Function
 
Public Function ContarUnicoSi(Unico As Range, Range1 As Range, Valor As Variant) As Long
       '=ContarUnicoSi([1];[2];[3])
       '[1]: Rango de valores que queremos contar sin repetidos
       '[2]: Rango que tienen las condiciones
       '[3]: Condición
 
       'abelorteu@informaticaea.com
    Dim filaInit As Long
    Dim filaFinal As Long
 
    Dim col As New Collection
 
    filaInit = Range1.Row
    filaFinal = filaInit + Range1.Rows.Count - 1
 
    On Error Resume Next
    For i = 1 To filaFinal - filaInit + 1
        If (UCase(Trim(Range1(i).Value)) = UCase(Trim(Valor))) Then
            col.Add Item:=CStr(Unico(i).Value), Key:=CStr(Unico(i).Value)
        End If
    Next
 
    If (arrDic.Count = 0) Then
        ContarUnicoSi = col.Count
    Else
        ContarUnicoSi = col.Count - 1
    End If
End Function
 
Public Function ContarUnicoSiConjunto(Unico As Range, ParamArray prms() As Variant) As Variant
    '=ContarUnicoSiConjunto([1];[2'];[3'];[2''];[3''].....)
       '[1]: Rango de valores que queremos contar sin repetidos
       '[2']: Rango que tienen las condiciones
       '[3']: Condición
       '[2'']: Segundo Rango que tienen las condiciones
       '[3'']: Segunda Condición
       '...... Tantos rangos y condiciones como quieras
 
       'abelorteu@informaticaea.com
    Dim filaInit As Long
    Dim filaFinal As Long
    Dim Condicion As Boolean
 
    Dim col As New Collection
 
    filaInit = Unico.Row
    filaFinal = filaInit + Unico.Count - 1
    Dim x As Variant
    x = (UBound(prms) + 1) / 2
    If (x = Int(x)) Then
        On Error Resume Next
        For i = 1 To filaFinal - filaInit + 1
            Condicion = True
            For a = 1 To x
                If (UCase(Trim(prms(a * 2 - 2)(i))) <> UCase(Trim(prms(a * 2 - 1)))) Then
                    Condicion = False
                End If
            Next a
            If (Condicion) Then
                col.Add Item:=CStr(Unico(i)), Key:=CStr(Unico(i))
                Debug.Print Unico(i)
            End If
        Next i
 
        If (arrDic.Count = 0) Then
            ContarUnicoSiConjunto = col.Count
        Else
            ContarUnicoSiConjunto = col.Count - 1
        End If
    Else
       ContarUnicoSiConjunto = "#ERROR"
    End If
End Function

Funciones para trabajar con archivos

Funciones para trabajar con archivos

Sub MostrarRutaArchivo()
'Mostramos la ruta del archivo actual.
MsgBox ThisWorkbook.Path
 
End Sub
Sub CrearDirectorio()
'Creamos una caroeta en el escritorio
MkDir "C:\Users\Usuario\Desktop\NombreNuevaCarpeta"
 
End Sub
Sub CopiarArchivo()
'Copiamos archivo a la carpeta Nuevo
FileCopy "C:\Users\Usuario\Desktop\Archivo.xlsx", "C:\Users\Usuario\Desktop\Nuevo\Archivo.xlsx"
 
End Sub
Sub EliminarArchivo()
'Eliminamos archivo
Kill "C:\Users\Usuario\Desktop\archivo.xlsx"
 
End Sub
Sub RenombrarArchivo()
'Renombramos archivo
Name "C:\Users\Usuario\Desktop\archivo.xlsx" As "C:\Users\Usuario\Desktop\archivo2.xlsx"
 
End Sub
Sub MoverArchivo()
'Movemos archivo a la carpeta Nuevo
Name "C:\Users\Usuario\Desktop\archivo.xlsx" As "C:\Users\Usuario\Desktop\Nuevo\archivo.xlsx"
 
End Sub

Ordenar array VBA

Este script nos permite oredenar un array de manor a mayor en VBA

Sub BubbleSort(arr)
   ' Ordena de menor a mayor un array
   ' Call BubbleSort(MyArray)
  Dim strTemp As String
  Dim i As Long
  Dim j As Long
  Dim lngMin As Long
  Dim lngMax As Long
  lngMin = LBound(arr)
  lngMax = UBound(arr)
 
   For i = lngMin To lngMax - 1
    For j = i + 1 To lngMax
     If arr(i) &gt; arr(j) Then
       strTemp = arr(i)
       arr(i) = arr(j)
       arr(j) = strTemp
     End If
    Next j
   Next i
End Sub

Estructuras de control o Bucles en VBA

Las estructuras de control permiten la repetición de determinadas acciones.

Uno de los errores más comunes que se producen en la utilización de bucles de este tipo, es la no inicialización de las variables utilizadas como contadores de iteraciones, produciendo un error de no finalización del bucle.

Do… Loop Until

Esta estructura de control se puede usar para ejecutar un bloque de instrucciones un número indefinido de veces. Las instrucciones se repiten hasta que una condición llegue a ser True.

Ejemplo:

Sub Ejemplo1()
  Dim contador As Integer
  Dim numero As Integer
  numero = 9
  Do Until numero = 10
   If numero &lt;= 0 Then Exit Do
     numero = numero – 1
     contador = contador + 1
  Loop
  MsgBox “Se alcanzó el valor ” &amp; numero &amp; ” ” &amp; contador
End Sub

Do While… Loop

En este caso, las instrucciones se repiten mientras una condición sea True (al contrario que con el Do… Loop Until).

Ejemplo:

Sub Ejemplo2()
  Dim Escribir As Integer
  Escribir = 1
  Do While Escribir &lt; 7
    ActiveCell.FormulaR1C1 = “Excel”
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    Cells(lastrow, 1).Offset(1, 0).Select
    Escribir = Escribir + 1
  Loop
End Sub

While … Wend

El bucle WHILE…WEND sirve para realizar un tipo de bucle muy utilizado en programación que es el bucle Mientras, que se ejecuta mientras que se cumpla una condición.

Ejemplo

Sub Ejemplo3()
  dim a As Integer
  a = 0
  While (a &lt; 13)
    a = a + 1
  End While
  MsgBox “Se alcanzó el valor ” &amp; a 
End Sub

For… To… Next

El bucle FOR NEXT nos permite repetir una acción un número de veces dado.

Ejemplo:

En este ejemplo tenemos el bucle FOR NEXT en VBA más sencillo. El bucle cuenta de 1 a 10 y va poniendo en una columna el valor del contador.

Sub Ejemplo4()
  dim fila As Integer
  For CONTADOR = 1 To 10
    fila = CONTADOR
    Cells(fila, 1) = CONTADOR
  Next
End Sub

With

La estructura With en Vba nos permite ejecutar un conjunto de instrucciones sin tener que volver a hacer referencia al mismo objeto.

Sub Ejemplo5()
  With Cells(1, 1)
   .Value = “Hola informaticaea.com”
   .Font.Bold = True
  End With
End Sub

Condición en VBA

La estrucura básica de las condiciones en VBA es la siguiente

If condición Then
   'Acciones si se cumple la condición
Else
   'Acciones si no se cumple la condición
End if

Las instrucciones If…Then…Else se pueden presentar en varios formatos, con unas características determinadas. Normalmente, se presentan anidadas en tantos niveles como sea necesario, sin embargo, puede hacer menos legible el código, por lo que es aconsejable utilizar una instrucción Select Case en vez de recurrir a múltiples niveles de instrucciones If…Then…Else anidadas (únicamente en caso de que el excesivo número de anidamientos pudiera dar problemas en la legibilidad del programa, o errores en la depuración de éste).

Select Case mi_expresion
 Case mi_expresion_1
 'código para expresion_1
 Case mi_expresion_2
 'código para expresion_2
 '...
 Case mi_expresion_n
 'código para expresion_n
 Case Else
 'código para cuando no hay coincidencias
End Select