Rezultat eronat in calcularea procentului; VBA Excel

#1
axn

Posted 11 September 2013 - 20:56

Junior Member

Grup: Members
Posts: 128
Înscris: 22.11.2006

Salut,

Doresc sa fac niste functii in excel prin care sa adaug un procent unui numar, sa imi dea totalul, dar sa pot interveni si invers - sa completez totalul si sa extraga procentul.
Am 3 celule, Suma (statica), Procent si Total. Este in regula daca introduc suma si procentul insa daca modific totalul, procentul este afisat eronat. Nu-mi dau seama ce am omis si mentionez ca sunt incepator in Visual Basic.

Acesta este codul:

Dim oldval
Private Sub Worksheet_Selectionchange(ByVal Target As Range)
oldval = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
'disable events
Application.EnableEvents = False
Range("C2").Value = Range("A2").Value * Range("B2").Value / 100 + Range("A2").Value
End If
If Target.Address = "$A$2" Then
'disable events
Application.EnableEvents = False
Range("C2").Value = Range("A2").Value * Range("B2").Value / 100 + Range("A2").Value
End If
If Target.Address = "$C$2" Then
'disable events
Application.EnableEvents = False
Dim procent
procent = oldval - Range("C2").Value / Range("A2").Value * 100
Range("B2").Value = Range("B2").Value - procent
End If
'reenable events
Application.EnableEvents = True
Exit Sub
'error handler
ErrHnd:
Err.Clear
'reenable events
Application.EnableEvents = True
End Sub

Totodata intreband in stanga si-n dreapta, unele persoane mi-au spus ca nu functioneaza deloc ce am facut eu acolo, ca nu le modifica nimic in nicio celula. Oare de ce?
Atasez si fisierul.

Va multumesc.

Attached Files

Book1.rar 15.2K 6 downloads

Back to top

#2
yetiro

Posted 11 September 2013 - 21:39

Active Member

Grup: Members
Posts: 1,657
Înscris: 16.12.2008

Vezi daca asa functioneaza cum vrei tu:

Attached Files

Capture.JPG 21.09K 27 downloads

Back to top

#3
axn

Posted 11 September 2013 - 22:23

Junior Member

Grup: Members
Posts: 128
Înscris: 22.11.2006

Functioneaza, iti multumesc! Posted Image

Asta era o proba sa vad ce si cum iese, ca la un moment dat ma batea gandul sa renunt si sa fac intr-un .html cu javascript. Vreau sa fac pe mai multe randuri pentru intrari multiple, eventual intr-un loop. Am sa revin daca ma mai impotmolesc. Posted Image

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

Rezultat eronat in calcularea procentului; VBA Excel

#1 axn Posted 11 September 2013 - 20:56

Attached Files

#2 yetiro Posted 11 September 2013 - 21:39

Attached Files

#3 axn Posted 11 September 2013 - 22:23

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
axn

Posted 11 September 2013 - 20:56

#2
yetiro

Posted 11 September 2013 - 21:39

#3
axn

Posted 11 September 2013 - 22:23