Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
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...

Renault Android
 

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

Chirurgia endoscopică a hipofizei Chirurgia endoscopică a hipofizei

"Standardul de aur" în chirurgia hipofizară îl reprezintă endoscopia transnazală transsfenoidală.

Echipa NeuroHope este antrenată în unul din cele mai mari centre de chirurgie a hipofizei din Europa, Spitalul Foch din Paris, centrul în care a fost introdus pentru prima dată endoscopul în chirurgia transnazală a hipofizei, de către neurochirurgul francez Guiot. Pe lângă tumorile cu origine hipofizară, prin tehnicile endoscopice transnazale pot fi abordate numeroase alte patologii neurochirurgicale.

www.neurohope.ro

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