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 |
Rezultat eronat in calcularea procentului; VBA Excel
Last Updated: Sep 11 2013 22:23, Started by
axn
, Sep 11 2013 20:56
·
0
#1
Posted 11 September 2013 - 20:56
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
Posted 11 September 2013 - 21:39
Vezi daca asa functioneaza cum vrei tu:
Attached Files |
#3
Posted 11 September 2013 - 22:23
Functioneaza, iti multumesc!
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. |
Anunturi
▶ 0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users