Ir para o conteúdo
Ridelight

VB6 e Excel

Mensagens Recomendadas

Ridelight    8
Ridelight

Preciso de uma ajuda.

Preciso fazer uma aplicação que leia e escreva em uma folha de excel.

Que no dia 1 de Junho escreva ao clicar no botão 1 e escreva na coluna A1 o valor 1 e que ao clicar novamente ele leia o valor que está na coluna A1 e lhe adicione 1 ficando lá o valor 2.

No dia 2 de junho ele escreva na coluna A2 o valor 1 e assim sucessivamente.

se alguem podesse ajudar, e de preferencia que fosse inteligente ao ponto de criar uma folha nova quando mudasse de mês tipo junho09.xls julho09.xls (...) janeiro10.xls

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Ridelight    8
Ridelight

Private Sub Command1_Click()
ExcelApp.Cells(1, 1).Value = "Abono"
ExcelApp.Cells(2, 1).Value = ExcelApp.Cells(2, 1).Value + "1"
Label1.Caption = ExcelApp.Cells(2, 1).Value
End Sub

Gostava que ele fizesse isto na linha pelo dia, se ninguem souber a forma, vou fazer com a data numas textbox.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jpaulino    106
jpaulino

Então na coluna só tens de definir o dia:

Dim dia As Integer
dia = Day(Now)
ExcelApp.Cells(2 , dia ).Value = CInt(ExcelApp.Cells(2, 1).Value) + 1

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade