tælle antal felter

tæler celler med fed skrift i række område a1:aa1

Sub Makro1()

Dim c, t

For Each c In Worksheets("Ark1").Range("A1:aa1").Cells
c.Activate
If Selection.Font.Bold = True Then t = t + 1
Next
MsgBox ("") & t
[a1].Activate

End Sub

Hvad gør man så med den kode?

jeg har prøvet at lægge den ind i makro, men får en fejl (subscript out of range)

kopier den herfra
tast ALT+F11
vælg module i menuen insert
paste koden i kodevindue
ret evt. ark navn
ret evt. område
aktiver arket
tildel evt genvejs tast til makroen

Jeg har også lige et par bud.

Læg følgende kode ind i et modul:

Public Function FedSum(SumOmråde As Range) As Double
Dim Celle As Range
Dim fSum As Variant
fSum = 0
    Application.Volatile
    For Each Celle In SumOmråde
        If Celle.Font.Bold = True Then
            If IsNumeric(Celle) Then fSum = fSum + Celle.Value
        End If
    Next Celle
    FedSum = fSum
End Function

Public Function FedAntal(Område As Range) As Double
Dim Celle As Range
Dim fSum As Variant
fSum = 0
    Application.Volatile
    For Each Celle In Område
        If Celle.Font.Bold = True Then
            If IsNumeric(Celle) Then fSum = fSum + 1
        End If
    Next Celle
    FedAntal = fSum
End Function


Du vil nu have følgende formler tilgængeligt i dit ark:

=FedSum(A1;A10) giver summen af de felter som et fede i dit område (A1;A10)(hvis tal)
=FedAntal(A1;A10) giver antallet af felter som er fede i dit område (A1;A10)

/Gibber

ja det er bestemt også en fin løsning Gibber

må man spørge om hvad linien : Application.Volatile gør ?

har set den ofte før, men fatter ej hvad den bruges til :-)

Application.Volatile gør at funktionen altid genberegnes.

I ovenstående tilfælde så opdateres felterne med ovenstående formler hvis du fjerner en af dine fede celler. Det ville ikke ske hvis Application.Volatile var udeladt.

ok tak

hæhæ .. jeg fatter minus af det her
Har nu forsøgt at lægge det ind et modul i visual basic-tingen, men hvordan "kører" man så det modul for en celle ?

mener du en celle ? hvis ja, så virker koden ikke
den er lavet til at undersøge hele celler ikke evt tegn i en celle

Hvis du har lagt koden ind i Visual Basic kan du aktivere koden på følgende måde:

Excelent's løsning: Tryk Alt+F8 og kør makroen.

Vid min løsning: =FedAntal(OmrådeSomSkalUndersøges) indtastes i den celle vor du vil have resultatet.

...Og så suser jeg ud og køber en ny staveplade :/

Excelent's løsning (cool navn) giver en fejl (se ovenfor
gibber's løsning kan jeg slet ikke bruge så?

http://pmexcelent.dk/testfed.xls

prøv evt. min test version
husk først gem på HD før du kører den

makro og nettet går ikke godt i spænd

jeg kører Win XP, Excel 2003

ok - jeg prøver at gennemskue det - men får ikke kigget mere på det i dag .. tak for hjælpen indtil videre

virker min version hos dig?

svar

nope .. men det skyldes nok andre faktorer - det virker i et rent dok. så du skal da have dine point alligvel