• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Ridelight

VB6 e Excel

3 mensagens neste tópico

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

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