Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Incalzire casa fara gaz/lemne

Incalzire in pardoseala etapizata

Suprataxa card energie?!

Cum era nivelul de trai cam din a...
 probleme cu ochelarii

Impozite pe proprietati de anul v...

teava rezistenta panou apa calda

Acces in Curte din Drum National
 Sub mobila de bucatarie si sub fr...

Rezultat RMN

Numar circuite IPAT si prindere t...

Pareri brgimportchina.ro - teapa ...
 Lucruri inaintea vremurilor lor

Discuții despre TVR Sport HD.

Cost abonament clinica privata

Tremura toata, dar nu de la ro...
 

Rezultat eronat in calcularea procentului; VBA Excel

- - - - -
  • Please log in to reply
2 replies to this topic

#1
axn

axn

    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



#2
yetiro

yetiro

    Active Member

  • Grup: Members
  • Posts: 1,656
  • Înscris: 16.12.2008
Vezi daca asa functioneaza cum vrei tu:

Attached Files



#3
axn

axn

    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

Anunturi

Bun venit pe Forumul Softpedia!

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate