Automātiski atzīmēt un saskaitīt izmantoto Excel šūnu diapazonu ar VBA

Lai atzīmētu vai saskaitītu visas tabulā izmantotās šūnas, izmantojot makro, ir nepieciešams makro "UsedRange". Izmantojot divus piemērus, mēs parādīsim, kā to pareizi lietot.

Ja vēlaties tabulās apstrādāt šūnas, izmantojot makro, jums vajadzētu aprobežoties ar šūnām, kurās faktiski ir saturs. Tas ir vieglāk un daudz ātrāk nekā meklēšana, izmantojot visas šūnas visās kolonnās un rindās. Šim nolūkam programma Excel piedāvā jums īpašumu UsedRange plkst. Tas attiecas uz visām tabulas izmantotajām šūnām un nodrošina a Diapazons-Objekts.

Izmantojiet UsedRange, lai atzīmētu izmantotās Excel šūnas

Šis makro parāda, kā īpašumu izmantot praksē:

Sub MarkAllUsedCells ()
ActiveSheet.UsedRange.Select
Beigt apakš

Nākamajā attēlā parādīts, kā tas var izskatīties, ja makro tiek izmantots tabulā. Visas izmantotās šūnas ir marķētas:

Makro vienmēr atzīmē šūnas aktīvajā tabulā. Ja vēlaties izmantot citu tabulu, nomainiet objektu ActiveSheet atsaucoties uz attiecīgo tabulu.

Kā saskaitīt izmantotos šūnu diapazonus programmā Excel

Lai saskaitītu šūnu skaitu tabulā, kurā ir formula, izmantojiet šādu makro:

ApakšformulasCounting ()

Dim šūna kā diapazons Dim skaits kā dubultā skaits = 0 katrai ActiveSheet šūnai. Lietotā diapazons. Šūnas Ja šūna. HasFormula Tad skaitītājs = skaitītājs + 1 Nākamā šūna MsgBox ("Aktīvajā tabulā ir" & Str $ (skaitītājs) & "šūnas ar formulām.")

Beigt apakš

Makro nosaka īpašumu UsedRange.Cells kas ļauj atsaukties uz visām tabulā izmantotajām šūnām. Ja šūnā ir formula, mainīgais "Skaitītājs" tiek palielināts par 1. Rezultāts tiek izvadīts ziņojumu logā:

Jums palīdzēs attīstību vietā, daloties lapu ar draugiem

wave wave wave wave wave