Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
ACEA solicita UE scoaterea din tr...

Sistem home cinema samsung ht x20

Dinar sarbesc

USSD prin IMS la Digi
 Tranzacție neautorizata (BT ...

cutie S23 ultra

Windows 11 tinyos lite

Reparatie experimentala Oura Ring
 Posibil cancer san femeie in vars...

Cappuccino Jacobs Choco Milka la ...

Aflare numar telefon cartela Tele...

Windows 10 - Cumulative Update er...
 Iese la polish așa ceva ?

Nu imi detecteaza microfonul exte...

Comunicare de la poliția loc...

Receiver RX 2001 Professional Ele...
 

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,607
  • Î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