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)