Foros del Web » Soporte técnico » Ofimática »

[SOLUCIONADO] Como pasar a negrita una palabra en un celda

Estas en el tema de Como pasar a negrita una palabra en un celda en el foro de Ofimática en Foros del Web. Buenas noches! Estoy pasando un listview a un Excel ya hace casi todo bien.. Pero el problema que se me presento es el siguiente: Tengo ...
  #1 (permalink)  
Antiguo 05/02/2015, 19:13
 
Fecha de Ingreso: febrero-2015
Mensajes: 1
Antigüedad: 4 años, 7 meses
Puntos: 0
Pregunta Como pasar a negrita una palabra en un celda

Buenas noches! Estoy pasando un listview a un Excel ya hace casi todo bien.. Pero el problema que se me presento es el siguiente:
Tengo este formato en las celdas

Código
Descripción

Estoy queriendo imprimir a través de una etiquetadora y lo que necesito es que el código este en negrita y la descripcion quede en formato común (todo en una misma celda).
Ejemplo:
3503
TUERCA HEXAGONAL ALTA P/ GRUESO 5/16

Trate de hacerlo de la siguiente manera:

For i = 0 To lArticulos.Items.Count - 1
oSheet.Cells(i + 1, 1).Font.Bold = True
oSheet.Cells(i + 1, 1).Value = lArticulos.Items(i).Text
oSheet.Cells(i + 1, 1).Font.Bold = False
oSheet.Cells(i + 1, 1).Value &= vbLf & lArticulos.Items(i).SubItems(1).Text
oSheet.Rows(i + 1).RowHeight = 55
oSheet.Cells(i + 1, 1).WrapText = True
Next

Pero obviamente no dio resultado.. Porque primero pone el texto en negrita y despues pone a la celda completa en texto standar ( sin negrita )

Si alguno tiene una idea.. me vendria de 10 ! :)

SOLUCIONADO

Hoy me puse a investigar de nuevo y encontré esta solución

For i = 0 To lArticulos.Items.Count - 1
Code = lArticulos.Items(i).Text
With oSheet.Cells(i + 1, 1)
.Value = lArticulos.Items(i).Text + " " & vbLf & lArticulos.Items(i).SubItems(1).Text
.Characters(Start:=1, Length:=5).Font.FontStyle = "Bold"
End With

oSheet.Rows(i + 1).RowHeight = 55
oSheet.Cells(i + 1, 1).WrapText = True
Next

Última edición por Kuhn92; 06/02/2015 a las 11:14 Razón: Solucionado

Etiquetas: celda, excel, negrita, palabra
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:41.