Ir ao conteúdo

Regras do Clube do Hardware

coluna do listview no formato de hora

Por laercionb
16 de maio de 2013 em Microsoft Office e similares

Posts recomendados

laercionb

Postado 16 de maio de 2013

#1

Postado 16 de maio de 2013

Alguem poderia me ajudar a carregar os dados no listview em foramato "hh:mm"

ja pesquisei na net mas nao achei nada relacionado. por favor me ajudem...

zinhovba

Postado 18 de maio de 2013

#2

Postado 18 de maio de 2013

Bom dia!!

Seria tipo...

.ListItems.Add , , Cell 
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1) 
.ListItems(X).ListSubItems.Add , , Format(Cell.Offset(0, 2), "hh:mm") 
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)

laercionb

Postado 21 de maio de 2013

Autor

#3

Postado 21 de maio de 2013

Bom dia!!

Seria tipo...

.ListItems.Add , , Cell 
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 1) 
.ListItems(X).ListSubItems.Add , , Format(Cell.Offset(0, 2), "hh:mm") 
.ListItems(X).ListSubItems.Add , , Cell.Offset(0, 3)

olha esta é a macro que estou usando.

With lsLista

.Gridlines = True

.View = lvwReport

.FullRowSelect = True

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

End With

'Adiciona os itens no ListView

UltimaLinha = ActiveSheet.Cells(ActiveSheet.Cells.Rows.Count, "A").End(xlUp).Row

lsLista.ListItems.Clear

q = 0

For x = 1 To UltimaLinha

Set li = lsLista.ListItems.Add(Text:=ActiveSheet.Cells(x, "A").Value)

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "C").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "D").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "E").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "F").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "G").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "H").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "I").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "J").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "K").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "L").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "M").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "N").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "O").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "P").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "Q").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "R").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "S").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "T").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "U").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "V").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "W").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "X").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "Y").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "Z").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AA").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AB").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AC").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AD").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AE").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AF").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AG").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AH").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AI").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AJ").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AK").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AL").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AM").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AN").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AO").Value

q = q + 1

Next

lbQtdade = "Qtdade: " & q

MsgBox " DADOS CARREGADOS COM SUCESSO", vbInformation, "PB BRASIL"

Gostaria q aparece-se em formato de hora nao numero tentei adpatar a forma que me respondeu mas nao tive sucesso

laercionb

Postado 22 de maio de 2013

Autor

#4

Postado 22 de maio de 2013

olha esta é a macro que estou usando.
With lsLista

.Gridlines = True

.View = lvwReport

.FullRowSelect = True

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

.ColumnHeaders.Add Text:="DATA", Width:=60

.ColumnHeaders.Add Text:="HORA", Width:=60

.ColumnHeaders.Add Width:=5

End With

'Adiciona os itens no ListView

UltimaLinha = ActiveSheet.Cells(ActiveSheet.Cells.Rows.Count, "A").End(xlUp).Row

lsLista.ListItems.Clear

q = 0

For x = 1 To UltimaLinha

Set li = lsLista.ListItems.Add(Text:=ActiveSheet.Cells(x, "A").Value)

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "C").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "D").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "E").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "F").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "G").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "H").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "I").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "J").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "K").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "L").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "M").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "N").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "O").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "P").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "Q").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "R").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "S").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "T").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "U").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "V").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "W").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "X").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "Y").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "Z").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AA").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AB").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AC").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AD").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AE").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AF").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AG").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AH").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AI").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AJ").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AK").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AL").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AM").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AN").Value

li.ListSubItems.Add Text:=ActiveSheet.Cells(x, "AO").Value

q = q + 1

Next

lbQtdade = "Qtdade: " & q

MsgBox " DADOS CARREGADOS COM SUCESSO", vbInformation, "PB BRASIL"

Gostaria q aparece-se em formato de hora nao numero tentei adpatar a forma que me respondeu mas nao tive sucesso

ja resolvi foi simples para formatar a coluna em formato de hora so selecionei a coluna e ficou assim

li.ListSubItems.Add Text:=Format(ActiveSheet.Cells(x, "D").Value, "hh:mm")

Membro VIP

Patropi

Postado 22 de maio de 2013

Membro VIP

#5

Postado 22 de maio de 2013

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ir à lista de tópicos

Quem está navegando aqui 0 usuários estão online
- Nenhum usuário registrado visualizando esta página.
Administrador

Coordenador

Moderador

Membro VIP

Últimos tópicos
- 0
  
  Dicas de upgrade para Core i5 2310
  
  Montagem e upgrade de computadores de mesa
  Por ymanelz
  24 minutos atrás
- 0
  
  placa-mãe nova para gen 13 14 de processadores intel
  
  Placas-mãe
  Por Adilson Taquaral
  29 minutos atrás
- 2
  
  meu PC é bom mas não roda quase nada. o que pode ser?
  
  Placas de vídeo
  Por Erick_Morato
  41 minutos atrás
- 1
  
  posso colocar um processador com tdp maior que o atual?
  
  Notebooks
  Por 3duardo
  58 minutos atrás
- 0
  
  Placa de Vídeo funciona só as vezes
  
  Placas de vídeo
  Por James G
  2 horas atrás
- 1
  
  PCYes Electro V2 500W suporta Ryzen 5 5700X3D + Radeon RX 5700?
  
  Fontes e energia
  Por badanheiras
  6 horas atrás
- 1
  
  Botão de ligar do gabinete mancer cv300 não funciona
  
  Gabinetes
  Por Yordle
  7 horas atrás
- 3
  
  Minha placa-mãe estragou 2 vezes
  
  Placas-mãe
  Por Brucy_21
  7 horas atrás
- 1
  
  A internet do roteador para de funcionar depois de um tempo com ele ligado
  
  Redes e Internet
  Por Brucy_21
  8 horas atrás
- 0
  
  Rtx4080s hotspot quente acima de 90
  
  Placas de vídeo
  Por lucastuning88
  9 horas atrás
Livros

GRÁTIS!

GRÁTIS!
Cursos

Redes Wi-Fi

Redes TCP/IP

Arquitetura de redes
Conteúdo recente
- 53
  
  Tabela comparativa dos chips GeForce da NVIDIA (desktop)
  
  Vídeo
  Por Gabriel Torres
  4 de novembro
- 5
  
  Tabela comparativa dos chips GeForce da NVIDIA (notebooks)
  
  Vídeo
  Por Gabriel Torres
  4 de novembro
- 3
  
  Tabela comparativa dos chips Radeon da AMD (notebooks)
  
  Vídeo
  Por Gabriel Torres
  5 de março
- 59
  
  Análise comparativa entre AMD, Intel e NVIDIA – 2024
  
  Processadores
  Por Gabriel Torres
  27 de fevereiro
- 53
  
  Tabela comparativa dos chips Radeon da AMD (desktop)
  
  Vídeo
  Por Gabriel Torres
  19 de fevereiro

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×

×

Criar novo...