33 lines
1.2 KiB
HTML
33 lines
1.2 KiB
HTML
<!-- 19 -->
|
|
<p>
|
|
Cuando veía viáticos había automatizado el almacenamiento de unos documentos y dentro del nombre del archivo quería
|
|
que tuviera las iniciales del empleado, ejemplo: <br><br>
|
|
La celda C1 tiene el valor de "José Hernández Pérez", y en la celda C2 hacemos el llamado de nuestra función
|
|
<b>=INICIALES(C1)</b>, el resultado es <b>JHP</b>:
|
|
</p>
|
|
<div class="img zoomable">
|
|
<img src="/static/source_imgs/excel/pst_5/1.png" alt="" style="height: 200px; width: auto;">
|
|
</div>
|
|
<pre><i class="bi bi-copy"> Copiar código</i>
|
|
<code class="code_lightMode">
|
|
Function INICIALES(texto As Range) As String
|
|
Application.Volatile
|
|
Dim resultado As String
|
|
Dim palabras() As String
|
|
|
|
palabras = Split(AjustarEspacios(texto))
|
|
For i = LBound(palabras) To UBound(palabras)
|
|
resultado = resultado & Left(palabras(i), 1)
|
|
Next
|
|
INICIALES = resultado
|
|
End Function
|
|
|
|
Private Function AjustarEspacios(ByVal texto As String) As String
|
|
Dim resultado As String
|
|
resultado = Trim(texto)
|
|
Do While InStr(resultado, " ")
|
|
resultado = Replace(resultado, " ", " ")
|
|
Loop
|
|
AjustarEspacios = resultado
|
|
End Function
|
|
</code></pre> |