Detta exempel illustrerar Områdesinsamling i Excel VBA . Nedan har vi gränsat intervall ('B2: C3, C5: E5'). Denna serie har två områden. Kommatråden skiljer de två områdena åt.
Placera en kommandoknapp på ditt kalkylblad och lägg till följande kodrader:
1. Först deklarerar vi två Range -objekt. Vi kallar Range -objekten rangeToUse och singleArea.
IngenrangeToUseSomOmråde, enda områdeSomRäckvidd2. Vi initierar Range -objektet rangeToUse med Range ('B2: C3, C5: E5')
UppsättningrangeToUse = Range ('B2: C3, C5: E5')
3. För att räkna antalet områden i rangeToUse lägger du till följande kodrad:
MsgBox rangeToUse.Areas.CountResultat:
4. Du kan hänvisa till de olika områdena av rangeToUse med hjälp av indexvärdena. Följande kodrad räknar antalet celler i det första området.
MsgBox rangeToUse.Areas (1) .AntalResultat:
5. Du kan också gå igenom varje område av rangeToUse och räkna antalet celler i varje område. Makroet nedan gör susen.
För VarjesingelområdeIrangeToUse.AreasMsgBox singleArea.Count
Nästasingelområde
Resultat:
hur man byter linjer i Excel
För ett praktiskt exempel på områdesamlingen, se vårt exempelprogram Jämför intervall .
Gå till nästa kapitel: Variabler