código para salto de línea en VBA Excel Resuelto

Question

Hola,  Estoy editando etiquetas en VBA Excel; Para cada etiqueta, siempre tengo 2 líneas o casi, según la longitud del texto que imprimo y el código del producto que viene justo después.  Quisiera poder "forzar" el salto de línea, de manera que siempre se haga en el mismo lugar de mi cadena de caracteres. Pero no sé qué código debo colocar para ello en mi cadena de caracteres.  ¿Quién conoce la solución a este problema? ¡Muchas gracias de antemano! Roland Ejemplo: quiero imprimir en mi etiqueta "producto máquina cosa B02465"  Pero quiero obtener todo en dos líneas "producto máquina cosa" "B02465"  Por supuesto, mi línea de Excel está configurada para "ajustar texto automáticamente"    Configuración: Windows XP / Internet Explorer 8.0

Mike-31 · Accepted Answer

Hola,  ejemplo si en A2 quieres escribir hola en una línea y quién es este en la otra [A2] = "hola" & vbCrLf & "quién es este"  -- A+ Mike-31  Un período de fracaso es un momento ideal para sembrar las semillas del saber.

ccm81 · Answer

hola creo que un chr(10) debería hacer el trabajo buen día

lecrol · Answer

¡Gracias a los dos jefes! He probado el chr(10) y funciona genial  Si me atrevo a abusar, ¿sabrían si también se puede "forzar" el tamaño o la fuente de los caracteres así impresos? siempre bajo VBA, por supuesto. Es la pregunta a "2000 héroes" (jaja) Con cariño Roland

Mike-31 · Answer

Re,  ejemplo para probar la columna A de A1 a la última celda no vacía en A si las celdas no están vacías se ponen en negrita (Bold = True ) y en tamaño de fuente 18  Sub test() Dim c As Range For Each c In Range("A1:A" & Range("A65536").End(xlUp).Row)  If c <> "" Then  With c.Font  .Bold = True  .Size = 18  End With  End If Next c End Sub  -- A+ Mike-31  Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

ccm81 · Answer

No sé si podemos actuar únicamente sobre el tamaño de salida, intentaré algo así, suponiendo que los datos a imprimir provienen de una hoja, - cambiar el tamaño - imprimir - volver al tamaño inicial  Private Sub CommandButton1_Click() Dim s As Long s = Range("A2").Font.Size Range("A2").Font.Size = 2 * s 'por ejemplo MsgBox ("estamos imprimiendo") ' ejecutas tu código de impresión Range("a2").Font.Size = s End Sub  pero el especialista que es Mike-31 seguramente tendrá algo mejor  que tengas un buen día

Mytå · Answer

Hola el foro  Siempre puedes jugar con el Zoom de la página  With ActiveSheet.PageSetup .Zoom = 200 End With ActiveWindow.SelectedSheets.PrintOut Mytå -- Gracias por seguir su pregunta, no somos robots... Lo urgente ya se hizo, lo imposible está en curso y para los milagros; prevea un tiempo. Versiones instaladas [MsProject 2003(FR), Excel 2003-2007(FR)]

lecrol · Answer

Un gran agradecimiento, jefes especialistas. Pero mi solicitud era demasiado "quisquillosa". De hecho, quería cambiar la fuente pero en la misma cadena de caracteres enviadas desde VBA en una celda de Excel (celda etiqueta).  Quería escribir mi etiqueta de esta manera Etiqueta del producto Precio  Con el Chr(10), sé colocar mi precio en la segunda línea de la misma celda Y ahí, siendo un incordio, quería que mi precio se imprima en negrita y en fuente 12 en cada celda-etiqueta, en esta segunda línea "forzada" por un:  range("celula").value = "etiqueta del producto" & chr(10) & precio  Pero reconozco que es un lujo de presentación y que no es algo indispensable  Por ahora, estoy lidiando con un formulario y un subformulario en Access para luego ingresar estas mismas etiquetas de códigos de barras  Gracias de nuevo a ustedes, jefes Roland

Mike-31 · Answer

Re,  no exageremos ccm, no soy especialista, solo un manitas, pero gracias de todos modos. Algunas explicaciones sobre los saltos de línea vbCr equivalente a Chr(13) Carácter de salto de párrafo vbLf equivalente a Chr(10) Carácter de salto de línea Combinación de los caracteres de retorno de carro y de salto de línea vbCrLf equivalente a Chr(13) + Chr(10)  Si agrupamos los datos, en A tenemos información del tipo "producto máquina cosa B02465" crea un botón con el cuadro de control, si es el primero pega este código en las propiedades de la hoja (clic derecho en la pestaña de la hoja/Ver el código)  el salto de línea se realizará 2 caracteres antes del valor numérico BO2465  Private Sub CommandButton1_Click() Dim Inicio As Byte Dim Celda As Range For Each Celda In Range("A1:A" & Range("A65536").End(xlUp).Row) Inicio = InStr(1, Celda, " B") If Not Inicio = 0 Then Celda = Left(Celda, Inicio) & vbLf & Right(Celda, Len(Celda) - Inicio) ' el valor de reemplazo está en la celda E1 (a adaptar) Celda.Font.Size = 18 End If Next Celda End Sub  si necesitas un pequeño montaje avísame -- A+ Mike-31  Un período de fracaso es un momento perfecto para sembrar las semillas del conocimiento.

Mike-31 · Answer

Re,  No es difícil hacer saltos de línea, poner partes importantes en negrita o en color, etc. Lo más difícil es entender la solicitud, especialmente cuando la información nos llega de forma fragmentada y cambiante. Por mi parte, lo que no entiendo es esta última información  range("celda").value = "nombre del producto" & chr(10) & precio   Muy diferente de la solicitud inicial  "producto máquina cosa B02465"  ¿Podemos tener de forma clara el detalle de la solicitud? Por esta última frase deduzco que el nombre está en una columna, el precio en otra y que estamos concatenando todo esto en una celda en dos líneas en esta segunda línea "forzada" por un  Aquí también, ¿qué se debe entender por "forzada"? -- A+ Mike-31  Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

ccm81 · Answer

re a todos  bueno, para responder al post 7 de lecol, solo queda ir a pescar en los códigos de Mike-31 y de Myta  y por ejemplo   .Value = Libelle & Chr(10) & Prix With .Characters(Start:=Len(Libelle) + 2).Font .Size = 12 .Bold = True End With aplicado a cada celda etiqueta debería funcionar  buen día

lecrol · Answer

Para mi parte, lo que no entiendo es esta última información range("celda").value = "etiqueta del producto" & chr(10) & precio Muy diferente de la solicitud inicial "producto máquina cosa B02465"  Mike-31, gracias por tu respuesta  La línea: range("celda").value = "etiqueta del producto" & chr(10) & precio es mi escritura VBA para llenar mi celda de Excel Su diferencia con la línea del post anterior es que aquí, en este segundo ejemplo, el precio está en lugar del código del producto  Se trata, simplemente, de un solo y mismo texto (una cadena de caracteres) que envío desde VBA a una sola celda de Excel Quiero que el texto se coloque en 2 líneas de esta misma celda, esto por la opción "ajuste automático a la línea" de Excel Y eso, lo obtengo muy bien con el Chr(10) que coloco en mi cadena de caracteres, en VBA Eso es lo que yo llamo "forzar" el salto de línea  Gracias nuevamente Roland

Mike-31 · Answer

Re,  La solicitud es pertinente, y para diversión, suponiendo que los datos están en la columna A formateados según la solicitud inicial, (referencia y precio) ejemplo de producto cosa 2465,30 este código permite modificar los datos en el sitio colocando un retorno de línea antes del precio sin importar la longitud de la cadena, coloreando en rojo y en negrita el retorno de línea. Si después del precio se encuentra la unidad monetaria, por ejemplo, producto cosa 2465,30 €, es necesario realizar una ligera modificación al código  Private Sub CommandButton1_Click()  Dim tabLignes() As Long, i As Long, j As Long, tmp As Long  Dim Debut As Byte  Dim Cell As Range  Dim tmpStr() As String  Application.ScreenUpdating = False  For Each Cell In Range("A1:A" & Range("A65536").End(xlUp).Row)  Debut = InStr(1, Cell, " " & StrReverse(Split(StrReverse(Cell.Text), Chr(32))(0)))  If Not Debut = 0 Then  Cell = Left(Cell, Debut) & Chr(10) & Right(Cell, Len(Cell) - Debut)  End If  tmpStr = Split(Cell.Text, Chr(10))  ReDim tabLignes(1 To UBound(tmpStr) + 1, 1 To 2)  For i = LBound(tmpStr) To UBound(tmpStr)  tmp = 0  For j = LBound(tmpStr) To i - 1  tmp = tmp + Len(tmpStr(j))  Next j  tabLignes(i + 1, 1) = tmp + 1 + i  tabLignes(i + 1, 2) = Len(tmpStr(i))  Next i  Cell.Characters(tabLignes(2, 1), tabLignes(2, 2)).Font.ColorIndex = 3  Cell.Characters(tabLignes(2, 1), tabLignes(2, 2)).Font.Bold = True  Next Cell  Application.ScreenUpdating = True  [A1].Select End Sub  A+ Mike-31  Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

Mike-31 · Answer

Re,  Lástima que Lecrol no siga la discusión, ya sea para adaptar o perfeccionar el código a estas necesidades o simplemente para poner el estado en resuelto para que esta discusión sirva de referencia.  -- A+ Mike-31  Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

lecrol · Answer

Mil disculpas, Mike 31. Perdóname pero olvidé completamente marcar mi pregunta como resuelta.  De hecho, mi salto de línea se soluciona completamente con este CHR(10). En cuanto a poner dos fuentes diferentes para una misma cadena de caracteres impresa en una única celda de Excel, cadena de caracteres enviada desde VBA, creo que es probablemente excesivo o exagerado. Así que, por el momento, renuncio a ello.  En este sitio, gracias a ustedes, ya encuentro tantos apoyos tan valiosos que no quiero abusar.  Debo decir que, en este momento, estoy en pleno desarrollo para mi hija. Con Access y VBA tengo varios trozos de programas en marcha. Así que, moderaré mis solicitudes.  Afectuosamente Roland

Mike-31 · Answer

Re,  Como ya dije más arriba, esta discusión es pertinente seguir en cuanto a los retornos de línea que he dado sus significados, por ejemplo, para un retorno de línea se puede escribir Chr(10) que ocupa 7 bytes o vbhf 4 bytes; el resultado es idéntico, solo que el encabezado es menos pesado, 3 bytes menos, multiplicado por X veces esto puede aligerar sensiblemente un archivo.  vbCr equivale a Chr(13) Carácter de salto de párrafo. vbLf equivale a Chr(10) Carácter de salto de línea. Combinación de los caracteres de retorno de carro y de salto de línea. vbCrLf equivale a Chr(13) + Chr(10).  Es totalmente posible dar por línea obtenida un formato diferente, color de fuente, negrita, tamaño de fuente, tipo de fuente, etc.  Solo queda conocer exactamente el contenido de las celdas, dónde se debe realizar el retorno de línea en la cadena y cuántos retornos de línea deseamos, así como saber el formato deseado para cada línea. Además, el código en mi penúltimo post corta la cadena en dos líneas, pone en negrita y en rojo la segunda línea;  pero podríamos llevar el código más lejos haciendo varios retornos de línea en la celda y dando un formato a cada línea, así como limitar el número de líneas de modo que si hacemos clic varias veces en el botón, el código se ejecute solo una vez.  ¡A seguir! ¡Hasta luego! Mike-31  Un período de fracaso es un momento ideal para sembrar las semillas del conocimiento.

Código para salto de línea en VBA Excel

15 réponses

Windows en primera página no funciona.

Capa de destino oculta

Samsung j5 imposible de contestar

Estafa autopista del suvedene

Nombre de archivo demasiado largo

Sin sonido con ps3 y hdmi

Problemas de conexión a internet con mi ipad

Control remoto de free box roto

Sms con número sospechoso

Estoy recibiendo llamadas de números no asignados.