Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: VB som van cellen  (gelezen 2711 keer)

0 leden en 1 gast bekijken dit topic.

Offline Hombre

  • Volledig lid
  • **
  • Berichten: 164
  • ¡Qué guapa!
VB som van cellen
« Gepost op: 05 oktober 2006, 13:01:14 »
Beste

Ik wil in een rekenblad d.m.v. VB de som berekenen van een aantal cellen, dit in functie van de stand van de cursor.
Opdracht cells (0,1).value geeft waarde van één cel maar ik wil een aantal cellen optellen vb van 0,1 tot 0,20
Eigenlijk hetzelfde als =som(A1:A20) in het rekenblad maar dan variabel naargelang waar de cursor staat.
Idem dito voor het tellen van de niet lege cellen.

Hopelijk is dit duidelijk genoeg
Iemand een oplossing

hartelijk dank
Windows XP, Home, SP2, Intel Core2 Duo E6400 2.13Ghz, 1024 MB RAM, GeForce FX 7300LE, HDD:SATA II 160GB NTFS, AVG antivirus, Outlook Express

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:VB som van cellen
« Reactie #1 Gepost op: 05 oktober 2006, 13:04:57 »
Doe

Sub maaksom()
Dim som As Integer 'of iets anders indien nodig
som = WorksheetFunction.Sum(ActiveCell.Resize(20))
MsgBox "de som is " & som
End Sub

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline Hombre

  • Volledig lid
  • **
  • Berichten: 164
  • ¡Qué guapa!
Re:VB som van cellen
« Reactie #2 Gepost op: 05 oktober 2006, 13:29:57 »
Al bedankt WG ik zal nog wat puzzelen met je oplossing.

Wat ik eigenlijk wil doen is het volgende:
vb cursor staat op E5 en ik wil het gemiddelde berekenen van E6:E16
Staat de cursor ergens anders dan moet daar de 10 volgende cellen worden berekend.

Toch al bedankt
Windows XP, Home, SP2, Intel Core2 Duo E6400 2.13Ghz, 1024 MB RAM, GeForce FX 7300LE, HDD:SATA II 160GB NTFS, AVG antivirus, Outlook Express

Offline Hombre

  • Volledig lid
  • **
  • Berichten: 164
  • ¡Qué guapa!
Re:VB som van cellen
« Reactie #3 Gepost op: 05 oktober 2006, 13:39:35 »
Dit heb ik als oplossing en het werkt zoals ik het wou.

Dim gem As String
gem = Round(WorksheetFunction.Sum(ActiveCell.Offset(1, 0).Resize(20)) _
/ WorksheetFunction.Count(ActiveCell.Offset(1, 0).Resize(20)), 1)
MsgBox "Klasgemiddelde voor deze test is " & gem, vbInformation + vbOKOnly, "LOP"
Exit Sub
Windows XP, Home, SP2, Intel Core2 Duo E6400 2.13Ghz, 1024 MB RAM, GeForce FX 7300LE, HDD:SATA II 160GB NTFS, AVG antivirus, Outlook Express

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:VB som van cellen
« Reactie #4 Gepost op: 05 oktober 2006, 14:57:51 »
Hombre

Round(WorksheetFunction.Sum(ActiveCell.Offset(1, 0).Resize(20)) _
/ WorksheetFunction.Count(ActiveCell.Offset(1, 0).Resize(20)), 1)

1.

Er is een functie AVERAGE!!!

2.

De 0 in Offset(1, 0) kan weg:

Offset(1)

Blij dat ik heb kunnen helpen.

Wigi
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

Offline WG

  • Ervaren lid
  • ***
  • Berichten: 366
  • Geslacht: Man
  • http://www.wimgielis.be
Re:VB som van cellen
« Reactie #5 Gepost op: 05 oktober 2006, 14:58:34 »
Oh ja, het is

Dim gem As Double

String is voor tekst.
Gelieve uw systeemgegevens in te vullen. Klik HIER voor meer informatie.

 


www.combell.com