Saltar al contenido

seleccione solo celdas visibles en el ejemplo de código de Excel vba

Agradecemos tu ayuda para difundir nuestras reseñas acerca de las ciencias informáticas.

Ejemplo 1: celdas de resaltado de Excel vba usando el valor de color hexadecimal dentro de las celdas

'VBA function to color cells in selected range based on the hex'color number entered in each cell. For example, #FF69B4Sub ColorCellsByHex()Dim r
    If TypeName(Selection)<>"Range"ThenExitSubForEach r In Selection
        r.Interior.Color = Abs(("&H"& Mid(r,6,2)& Mid(r,4,2)& Mid(r,2,2)))NextEndSub

Ejemplo 2: como copiar una celda en vba

PublicSub CopyRows() 
    Sheets("Sheet1").Select' Find the last row of data 
    FinalRow = Cells(Rows.Count,1).End(xlUp).Row 
    ' Loop through each row For x =2To FinalRow 
        ' Decide if to copy based on column D 
        ThisValue = Cells(x,4).Value 
        If ThisValue ="A"Then 
            Cells(x,1).Resize(1,33).Copy 
            Sheets("SheetA").Select 
            NextRow = Cells(Rows.Count,1).End(xlUp).Row +1 
            Cells(NextRow,1).Select 
            ActiveSheet.Paste 
            Sheets("Sheet1").SelectElseIf ThisValue ="B"Then 
            Cells(x,1).Resize(1,33).Copy 
            Sheets("SheetB").Select 
            NextRow = Cells(Rows.Count,1).End(xlUp).Row +1 
            Cells(NextRow,1).Select 
            ActiveSheet.Paste 
            Sheets("Sheet1").SelectEndIfNext x 
EndSub

Si estás de acuerdo, puedes dejar un ensayo acerca de qué te ha impresionado de este enunciado.

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)


Tags : /

Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *