Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

La multi ani @al-padrino!

Zona Zarnesti/Magura fara masina

Inchiriere spatiu depozitare (bra...
 Bosch Tronic Heat 3500 9kW - trep...

Dacia anunta primele motorizari h...

Sfat auto Crossover 18000 €

La ce se refera un cod informatic...
 Ce aș putea face cu 4 HDD fo...

Plafoniera led cu efect 3d :)

Rss <content:encoded>

Cum faceti cu curierii?
 Psihologia- este o știin5...

Lukașenko anunța ca a i...

Poziționare eficienta senzor...

stereotaxie
 

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,572
  • Î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 spinală minim invazivă 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

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