Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - contatore celle Excel
Forum - Visual Basic 6 - contatore celle Excel

Avatar
jupiler (Normal User)
Newbie


Messaggi: 5
Iscritto: 09/01/2009

Segnala al moderatore
Postato alle 12:23
Venerdė, 09/01/2009
Salve,
non riesco a creare con excel una specie di contatore,in pratica vorrei che in una determinata cella incrementi i numeri immessi in un'altra cella. le celle in questione le ho chiamate A1 e B1 dove a A1 metto ogni volta un numero diverso e su B1 devo visualizzare ogni volta che cambia il numero su A1 la somma dei numeri cambiati.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
i = 1
If Target.Address = Me.Range("A" & i).Address Then
Me.Range("B" & i).Value = Me.Range("B" & i).Value + Me.Range("A" & i).Value
End If
Application.EnableEvents = True
End Sub

Ora come fare per estendere quanto sopra a tutte le celle delle colonne A e B?
Grazie

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 13:49
Venerdė, 09/01/2009
bhe con un ciclo...

PM Quote
Avatar
jupiler (Normal User)
Newbie


Messaggi: 5
Iscritto: 09/01/2009

Segnala al moderatore
Postato alle 15:25
Venerdė, 09/01/2009
Grazie del suggerimento..ma non avendo molta confidenza con la programmazione...avrei bisogno di maggiori chiarimenti..devo usare un loop?

PM Quote
Avatar
jupiler (Normal User)
Newbie


Messaggi: 5
Iscritto: 09/01/2009

Segnala al moderatore
Postato alle 15:54
Venerdė, 09/01/2009
Ho provato cosė...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 10
If Target.Address = Me.Range("A" & i).Address Then
Me.Range("B" & i).Value = Me.Range("B" & i).Value + Me.Range("A" & i).Value
Exit For
End If
Next i
Application.EnableEvents = True
End Sub

ma alla cella 5 si blocca..mmm

PM Quote
Avatar
jupiler (Normal User)
Newbie


Messaggi: 5
Iscritto: 09/01/2009

Segnala al moderatore
Postato alle 16:09
Venerdė, 09/01/2009
I'm sorry..che sbadato..č OK
Grazie cmq

PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 16:15
Venerdė, 09/01/2009
ma hai risolto?

p.s. Non fare + post di fila, usa edit x editare l'ultimo tuo post...

PM Quote
Avatar
jupiler (Normal User)
Newbie


Messaggi: 5
Iscritto: 09/01/2009

Segnala al moderatore
Postato alle 9:06
Lunedė, 12/01/2009
Testo quotato

Postato originariamente da jupiler:

Ho provato cosė...

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
For i = 1 To 10
If Target.Address = Me.Range("A" & i).Address Then
Me.Range("B" & i).Value = Me.Range("B" & i).Value + Me.Range("A" & i).Value
Exit For
End If
Next i
Application.EnableEvents = True
End Sub

Ok funziona..grazie mille


PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 17:12
Lunedė, 12/01/2009
lol :k:

PM Quote