Kā saskaitīt burtus un ciparus, izmantojot makro
Jūs varat izmantot funkciju "Rediģēt - atrast", lai meklētu konkrētus tekstus, ciparus, burtus un ciparu secības. Varat arī izmantot makro, lai meklētu rakstzīmes tabulās.
Šis makro vaicā lietotājam saturu un meklē šo saturu iepriekš atlasītajā šūnu diapazonā. Tāpēc vispirms tabulā atlasiet apgabalu un pēc tam aktivizējiet šādu makro:
Apakš skaitīšanas rakstzīmes ()
Dim un tik ilgi
Dim pozīcija tik ilgi
Blāva zīme Kā virkne
Dim šūna kā diapazons
Aptumšot kā virkni
Character = InputBox ("Kuru rakstzīmi vēlaties saskaitīt?")
i = 0
Katrai atlasītajai šūnai
Pozīcija = InStr (1, UCase (Cell.Value), UCase (Character))
Kamēr pozīcija 0
i = i + 1
Pozīcija = InStr (Pozīcija + Len (raksturs), Šūna. Vērtība, Rakstzīme)
Wend
Nākamā šūna
a = MsgBox ("Virkne" un rakstzīme & "kļuva par" _
& i & "Atrastie laiki", vbOKOnly, "Meklēšanas rezultāts")
Beigt apakš
Pirmajā solī makro logā jautā, kādu rakstzīmi vēlaties meklēt atzīmētajā apgabalā:
Pēc tam tiek meklēts šūnu diapazons. Rezultātu logs parāda, cik bieži tika atrasta meklējamā varone:
Meklēšana nav reģistrjutīga. Varat arī meklēt virknes, kas ir garākas par burtu vai ciparu. Papildus burtiem varat meklēt arī ciparus vai burtu un ciparu kombinācijas.
Padoms. Ja vēlaties uzzināt, kā programmā Excel ievadīt un sākt makro, īsu aprakstu atradīsit šeit: http://www.exceldaily.de/excel-makros-vba/artikel/d/so-haben-sie -makros- in-excel-ein.html
