Sección de códigos, trucos y ejemplos para visual basic

 

 

470 - Vba - Recorrer rango seleccionado en Excel

<Volver> - Anterior - Siguiente

 

 

 

---

 

 

Ejemplo que recorre mediante un bucle For Each el rango actualmente seleccionado en una hoja de Excel

 

' Lo siguiente recorre los valores y muestra un mensaje con el valor

 

---

 

 

Código vba

 

Option Explicit Public Sub recorrer_rango_seleccionado() ' variable de tipo Range para hacer referencia a las celdas Dim obj_Cell As Range 'Recorrer todas las celdas seleccionadas en el rango actual For Each obj_Cell In Selection.Cells ' muestra el valor With obj_Cell MsgBox .Text, vbInformation, "Col " & .Column & " " & "Fila: " & .Row End With Next End Sub

 

Este otro ejemplo es igual , pero si el valor de la celda es de tipo númerico, lo formatea con la función FormatCurrency, y si el valor es de tipo fecha con la función FormatDateTime

Código vba

Option Explicit Public Sub Aplicar_formato_vba() ' variable de tipo Range para hacer referencia a las celdas Dim obj_Cell As Range 'Recorrer todas las celdas seleccionadas en el rango actual For Each obj_Cell In Selection.Cells With obj_Cell ' si la celda es un valor numérico ... If IsNumeric(.Text) Then ' aplica formato moneda con 2 decimales .Value = FormatCurrency(CDbl(.Text), 2) ' si la celda es una fecha ElseIf IsDate(.Text) Then ' fecha larga .Value = FormatDateTime(.Text, vbLongDate) End If End With Next End Sub

 

Recursos visual basic - enlaces relacionados

• Ejemplos de vba
• Obtener el rango usado

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar