Dim i As Long, u As Long, p As Long 'Definir variable I como entero largo, u como tipo de entero largo, p es un tipo entero largo.
' Dim j As Integer, t, q, LL As Integer 'Define la variable j como valor entero, t, q, LL como valor entero.
' Dim bh As String 'Define la variable bh como una cadena.
' Dim JUDGE As String 'Define la variable JUDGE como una cadena.
' Dim STP As Integer ' Define la variable STP como un valor entero.
Número
Si Rango("m6") = " "Entonces, si Área ("m6") = nulo, se ejecutará.
bh=Formato(hora actual, "aaaammdd")&" 001"' bh=Formato(hora actual, "aaaammdd")&"001"
rango(" M6 " )= BH ' <Cell>Area("m6")= bh
Si el proceso de juicio finaliza, finalice If.
Número
Si formato(hora actual, "aaaammdd") = izquierda(celda(6, 12), 8) Si formato(hora actual, "aaaammdd") = (& lt; Ejecutar celda > Coordenada (6, 12), 8).
bh = formato(ahora "aaaammdd")&right("000000"&CSTR(Cint(right(cells(6,12),3)+1),3)' BH = formato (actual time, "yyyymmdd") & interceptar el lado derecho de la cadena (" 000000 " & CStr (CInt (interceptar el lado derecho de la cadena (coordenadas (6, 12), 3)) + 1), 3)
range(" M6 ")= BH '<cell>area("m6")= bh
Además,
bh = format( Ahora es " aaaammdd")&"001"' bh=Formato(hora actual, "aaaammdd")&"001"
Celdas(6, 12)= BH '<Celdas >Coordenadas (6, 12) = bh
Si el proceso de evaluación finaliza, finalice If.
Si el valor = 2, entonces si el área ("El valor de S3") es 2, se ejecutará.
Si la celda (7, 5). Valor = "" Entonces, si la coordenada (7, 5) = nula, ejecute.
MsgBox "La unidad de pago no puede estar vacía.", vbOKOnly, "¡¡¡Recordatorio amistoso!!!" & ltMessage Box>: "La unidad de pago no puede estar vacía.", vbOKOnly, "¡¡¡Recordatorio amigable!!!" "
Celda (7, 5). Seleccionar' & ltCell>Selección de coordenadas (7, 5)
Salir de la subrutina
Si el proceso de juicio finaliza, entonces finaliza Si
Si el proceso de juicio finaliza, luego finalice If.
I=9 'I= 9
Haga hasta Len(Range(" F " & i).Text) = 0 'Realice la operación de bucle hasta (<cell). >Área(" f "&i)Texto) = 0
Si celda(I,4).
Valor = "" Entonces' Si el valor de la coordenada (I, 4) = nulo, ejecute.
MsgBox "La fecha no puede estar vacía., vbOKOnly", ¡Recordatorio amistoso! ! !"<Message box>:"La fecha no puede estar vacía. ", vbOKOnly, "¡Recordatorio amistoso! ! !"
Celda (I, 4). Select' & ltCell>Selección de coordenadas (I, 4)
Salir de subrutina
Si juzga El proceso finaliza si
Si la celda (I, 9). Valor = "" Entonces' Si el valor de la coordenada (I, 9) = nulo, entonces ejecute p>MsgBox "La cantidad no puede estar vacía. , vbOKOnly, "¡¡¡Recordatorio amistoso!!!"& ltCuadro de mensaje>: "La cantidad no puede estar vacía.", vbOKOnly, "¡¡¡Recordatorio amigable!!!"
Celda (I, 9). Select' & ltcell>Selección de coordenadas (I, 9)
Salir de la subrutina
Si el proceso de evaluación finaliza, finalice If.
i = i + 1 'i=i+1
Ejecución del bucle "Loop"
Si celda (9, 4). value<& gt" "Entonces 'Si el valor de la coordenada (9, 4) no es igual a nulo, se ejecutará.
Si Rango("s3") = 1, entonces ejecute 'Si Área ("s3")=1.
JUDGE = "Lista de Recibos" ' JUDGE = "Lista de Recibos'
STP = 16 'STP=16
Además, además
JUDGE= "Lista saliente" ' JUDGE = "Lista saliente'
STP = 31 'STP=31
Si el proceso de evaluación finaliza, finalice If.
Sábanas (Juez). Seleccionar' & ltSheet>Seleccionar(Juzgar)
ActiveSheet. "Desproteger" desprotege la hoja de trabajo activa.
i = Val(张(Judge).Range("b65536").End(xlUp).row)' I = <Extract Numbers>(<Worksheet>(Judgement)(Con etiquetas de línea con hacia arriba dirección).
U = Val(Paper("Entrada de archivo").Rango("T3").valor)' u =(<Hoja>("Entrada de documento" ") valor del rango( " T3 "))
P = Val(table("Entrada de archivo").Range("u3").value)' p =(<Hoja de trabajo>( "Entrada de documento") valor de área ( " U3 "))
Para t=1 a p 'Establece el rango de variables de t = 1 a p.
Para j=1 a u+1 'Establece el valor. rango de variables de j = 1 a u+1.
hojas(j).celdas(I+t,j,j+STP-1). > valor de coordenadas (i+t, j) = ("Entrada de documento")
Siguiente j, siguiente j
El siguiente es el siguiente
Activesheet. 'protectdrawingobjects: =Verdadero, contenido: =Verdadero, escenarios; /p>
ActiveWorkbook
MsgBox "Guardar correctamente", vbokonly. : "Guardar correctamente", vbOKOnly
ActiveSheet.
"Desproteger" desprotege la hoja de trabajo activa.
Rango("E7,H7,K7,M6,D9:E15,E15,i9:i15,l9:l15,N9:N15"). Seleccione ' & lt Celdas > Selección de rango ("E7, H7, K7, M6, D9: E15, E15, I9: I15, L9: L15, N9: N15").
Seleccionar. "ClearContents" es el contenido claro de la opción.
Hoja activa. 'protectdrawingobjects: =True, contenido: =True, escenarios: =True ' Dibujos protegidos de la hoja activa = True, contenido = true, esquema = true.
Si el proceso de juicio finaliza, finalice If.
Rango("E7"). Seleccione ' & ltcell>selección de rango (" E7 ")
' End Sub 'La subrutina finaliza.