Avatar billede tvc Seniormester
07. juli 2005 - 00:45 Der er 5 kommentarer og
1 løsning

Udarbejdelse af en funktion i VBA

Hej

Jeg har en formel i Excel:

=SUM(TÆL.HVIS(C78:C102;"A");TÆL.HVIS(C78:C102;"B");TÆL.HVIS(C78:C102;"C"))

Denne skal tælle antallet af celler i et givet område der indeholder værdien A, B eller C.

Denne vil jer gerne have lavet som en funktion i VBA:


Function countBMK(bmkRange As Range) As Integer

countBMK = Sum(CountIf(Range("bmkRange"), "A"), CountIf(Range("bmkRange"), "B"), CountIf(Range("bmkRange"), "C"))
 
End Function

Er det fordi CountIf ikke virker i VBA og i givet fald hvordan gør jeg det så?
Avatar billede kabbak Professor
07. juli 2005 - 09:10 #1
Function countBMK(bmkRange As Range) As Integer
AD = bmkRange.Address
countBMK = Application.WorksheetFunction.CountIf(Range(AD), "A")
countBMK = countBMK + Application.WorksheetFunction.CountIf(Range(AD), "B")
countBMK = countBMK + Application.WorksheetFunction.CountIf(Range(AD), "C")
 
End Function
Avatar billede kabbak Professor
07. juli 2005 - 09:14 #2
du skal mugligvis have en linie mere med, for at opdater ved ændring.

Function countBMK(bmkRange As Range) As Integer
Application.Volatile
AD = bmkRange.Address
countBMK = Application.WorksheetFunction.CountIf(Range(AD), "A")
countBMK = countBMK + Application.WorksheetFunction.CountIf(Range(AD), "B")
countBMK = countBMK + Application.WorksheetFunction.CountIf(Range(AD), "C")
 
End Function
Avatar billede tvc Seniormester
07. juli 2005 - 11:37 #3
Hej kabbak

Den kommer ud med en fejlmeddelelse "Ambiguous name detected: countBMK" hvad betyder det?
Avatar billede tvc Seniormester
07. juli 2005 - 11:42 #4
Ok fandt fejlen :-)
Avatar billede tvc Seniormester
07. juli 2005 - 11:43 #5
Super nu virker den Tak!

Smider du et svar?
Avatar billede kabbak Professor
07. juli 2005 - 11:44 #6
et svar ;-))
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester