Celda de asignación de variables de programación Vba

sub aa()

atenuar x como cadena

x="activo"

celdas(m, n)=x ' m representa la etiqueta de la fila y m representa la etiqueta de la columna. Se pueden reemplazar por números según diferentes situaciones.

end sub

Si no está asignando un valor a la hoja de trabajo actual, puede usar el siguiente formato

Hojas("Hoja1").range( "B2")=100 'Asigna 100 a la celda B2 en la hoja de trabajo hoja1

También puedes asignar un valor a un rango determinado:

rango("A1:A100"). select

Selección=100

La selección puede identificar la celda actualmente seleccionada. Las dos oraciones de código anteriores escriben 100 en la celda actualmente seleccionada.

El programa puede. se cambiará al siguiente código

Sub CommandButton1_Click()

Application.ScreenUpdating = False

Dim i As Integer

Dim j As Entero

Atenuar zcbh como variante

Atenuar ytzj como variante

Atenuar yjzj como variante

Atenuar sh como hoja de trabajo

Para i = 3 a 10

zcbh = Hojas("8").Celdas(i, 3)

Hojas("6").Activar

Hojas("6 ").Columnas(2).Find(what：=zcbh).Activate

ActiveCell.Offset(0, 5).Select

yjzj = ActiveCell .Value

Hojas("8").Activar

Hojas("8").Celdas(i, 8).Value = ytzj

Siguiente i

MsgBox "El programa ha terminado de ejecutarse"

Application.ScreenUpdating = True

End Sub

Modificar al siguiente código:

Sub CommandButton1_Click( )

Application.ScreenUpdating = False

Atenuar i como entero

Atenuar j como entero

Atenuar zcbh como variante

Atenuar ytzj como variante

Atenuar yjzj como variante

Atenuar sh6 como hoja de trabajo

Atenuar sh8 como hoja de trabajo

Establezca sh6 = ThisWorkbook.Sheets("hoja6")

Establezca sh8 = ThisWorkbook.Sheets("hoja8")

Para i = 3 a 10

zcbh = sh8. Celdas(i, 3)

sh6.Activate

sh6.Columns(2).Find(what：=zcbh).Activate

ActiveCell.Offset( 0, 5).Select

ytzj = ActiveCell.Value

sh8.Cells(i, 8)

= ytzj

Siguiente i

MsgBox "El programa ha terminado de ejecutarse"

Application.ScreenUpdating = True

End Sub