¿Qué experto puede ayudar a traducir esta macro?
Solicitud. Diálogo (xlDialogPrinterSetup). Mostrar
aplicación. (xldialogprintersetup) muestra el cuadro de diálogo.
Ventana activa. Hoja de trabajo seleccionada. Impresión de :=1, a :=1, número de copias:=1, intercaladas_
Ventana activa de hojas seleccionadas:= 1, = 1, := 1, acabado_copia.
:=True 'Imprime la primera página actual.
:= true "Imprime la primera página actual.
Hojas (1). Rango ("B3") = Hojas (1). Rango ("B3"). Unidad de referencia El valor del número de página de la celda c1 + 1 se incrementa en 1.
Tabla (1). Rango ("b3") El valor de la celda de referencia del número de página C1.
Conector final
Postal
SubdeliveryNotificationSave()
SaveSubdeliveryNotification()
La dimensión x es la longitud, y es bytes
x es una variable entera larga, y es un byte
X = Zhang("registro de orden de entrega". [B65536].
X = Tabla ("Registro de orden de entrega"). [b65536]. (3) Fin de línea
y = [MAX(IF($a$5:$a$15<). ;>"",ROW($a$5:$a$15))]
y =[valor máximo(if ($5:15
Form("Registro de notificación de entrega") .range("b"&x+1.":b"&x+y-8).value=range(" F3 ").Value
Table("Registro de orden de entrega").Range(" b" AND x+1 AND "B" AND x+y 8).ValueRange("F3" )
Form("Registro de notificación de entrega"). range("c"&x+1.": C"&x+y-8).value=range("B6"). Tabla de valores("Registro de orden de entrega"). Rango("c" y x+1 "c" y x+y = 8). >
Form("Registro de notificación de entrega"). Range("d"&x+1.":D"&x+y-8).Value=Range("B3"). Registro de pedido").Range("d"andx+1":d"andx+y8).Value("B3")
form("registro de notificación de entrega").range("f"&x +1.":F"&x+y-8).value=range("F7"). p>Table("Registro de orden de entrega").Range("f"andx+1":fandx+y=8) .ValueRange("F7")
Form( "Registro de notificación de entrega").range("e"&x+1.":E"&x+y-8).value=range("F6" ). "Registro de Orden de Entrega"). Rango ("e" y x+1 ":" y x+y 8). Rango de valores("F6")
Formulario("Registro de notificación de entrega"). rango(" g " & x + 1. ":G " & ampx + y - 8). valor = rango("H9:H"&y). Tabla de Valores
(«Registro de Orden de Entrega»). rango("g" y x+1 y "g" y x+y = 8). Rango de valores ("subtipo H9: valor H, Y").
Formulario("Registro de Notificación de Entrega"). rango(" h " & x + 1. ":H " & ampx + y - 8).
valor = rango("A9:B"&y). Tabla de Valores
(«Registro de Orden de Entrega»). rango("h" y x+1 "h" y x+y = 8). Rango de valores("A9: valor b,y")
Formulario("Registro de notificación de entrega"). rango(" I " & x + 1. ":i " & ampx + y - 8). valor = rango("B9:C"&y). Tabla de Valores
(«Registro de Orden de Entrega»). rango(" I " y x+1 y " I " y x+y = 8). Rango de valores("B9: valor c,y")
Formulario("Registro de notificación de entrega"). rango(" j " & x + 1. ":J " & ampx + y - 8). valor = Rango(" C9 :D " & y). Tabla de Valores
(«Registro de Orden de Entrega»). range(" j " y x+1 y " j " y x+y = 8). Rango de valores ("C9: valores D e Y").
Formulario("Registro de Notificación de Entrega"). rango(" k " & x + 1. ":K " & ampx + y - 8). valor = rango("D9:E"&y). Tabla de Valores
(«Registro de Orden de Entrega»). Rango(k y x+1": k y x+y = 8). Rango de valores ("D9: valores e e y")
Formulario("Registro de notificación de entrega"). Rango ( " l " & x + 1. ":L " & ampx + y - 8 valor = rango(" registro").rango("l"yx+1y"l"yx+y=8).rango( "E9: fandyvalue")
form("delivery" NotificationRecord"). Rango(" M " & ampx + 1:M " & ampx + y - 8). valor = Rango(" F9:G " & y). Tabla de Valores
(«Registro de Orden de Entrega»). rango("m" y x+1 y "m" y x+y = 8). Rango de valores("F9: valor g,y")
Formulario("Registro de notificación de entrega"). rango(" a " & x + 1. ":A " & ampx + y - 8). Valor = "=Fila()-1 "
Tabla ("Registro de orden de entrega"). Rango(" & &; 8). Tabla de valores("registro de orden de entrega").rango("&x+1":"andx+y8). valor = tabla ("registro de orden de entrega"). Range(" & fname as string
Cadena difusa
fname = Range("b3 ")
Rango("B3")
Cname aparecerá como cadena
Dim CNAME string
cname = Range("f3")
CNAME=range("F3")
Rango(" A1:J21 "). Seleccione
Rango(A1: J21 "Seleccionar")
Rango(" J21"). Habilitar actividad
Alcance ("J21" activo)
Usar ActiveWorkbook.
Objeto de publicación ("Xiahong_1239")
Y objeto de publicación de libro activo ("Xiaohong_1239").
. HtmlType = xlHtmlStatic
htmltype = xlhtmlstatic
. nombre de archivo = "e:\xiaohongnetworks\pedido de entrega\"&;fname&"+"&cname&".htm "
=". Nombre de archivo:\xiahongnetworks\pedido de entrega \"+" y CNAME p>
.publish(false)
publicar(false)
auto-publish=false
auto-publish =false
Termina con...
Fin
Conector final
Postal