09. august 2001 - 15:42Der er
19 kommentarer og 1 løsning
HJÆLP, Haster macro programmering
Hælp
Jeg skal hurtigt bruge et simpelt macro program der skal køres i Excel. Programmet skal blot kunne:
Kontrollere første felt i kolonne C. Hvis feltet IKKE er tomt (NULL) gå videre til næste felte i kolonne C, hvis feltet ER tomt så tæl en variable op og gå videre til næste felt i kolonne C.
Når der ikke er flere felter i kolonne C skal variablens værdi vises i en message box.
oooh... nu forstår jeg - jeg læste ikke dit spørgsmål ordenligt.
Sub DinHasterMacro()
Dim iRow As Long Dim iCount as Long For iRow=1 To Range(\"a:a\").Rows.count If Range(\"C\" & iRow).Value = \"\" Then iCount=iCount+1 Next iRow Msgbox iCount End Sub
/Jennemaan
Synes godt om
Slettet bruger
09. august 2001 - 16:02#7
Jeg kender INTET til macroprogrammering! Vis mig venligst HELE rutinen!
Fint men den tæller ALT hvad den kan have af rækker (65231). Kan man evt finde ud af hvor det sidste udfyldte felt er i kolonne C og så tælle tomme felter fra start og dertil??
F.eks. Jeg har udfyldt felter i kolonne C til række 1049, tæl hvor mange af dem der er tomme??
Dim iRow As Long Dim iCount as Long Dim itmpCount as Long For iRow=1 To Range(\"a:a\").Rows.count If Range(\"C\" & iRow).Value = \"\" Then itmpCount=itmpCount+1 Else iCount=iCount+itmpCount itmpCount=0 End IF Next iRow Msgbox iCount End Sub
Synes godt om
Slettet bruger
09. august 2001 - 16:17#16
Kan desværre ikke bruges, der er også tomme felter i kolonne B
Dim iRow As Long Dim iCount as Long Dim itmpCount as Long For iRow=1 To Range(\"a:a\").Rows.count If Range(\"C\" & iRow).Value = \"\" Then itmpCount=itmpCount+1 Else iCount=iCount+itmpCount itmpCount=0 End IF Next iRow Msgbox iCount End Sub
(Manglede lige et linjeskift *G*)
/jennemaan
Synes godt om
Slettet bruger
09. august 2001 - 16:22#20
Takker mange gange...
Synes godt om
Ny brugerNybegynder
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.
Slettet bruger
Slettet bruger
Opret
Preview
