Как да изследваме клетки с макрос
Искате ли да оцените клетките и да определите колко клетки са запълнени в диапазон и колко не са? Следващата фигура показва пример:
Маркерът A1: B7 съдържа някои празни клетки и някои запълнени клетки. Ако искате да оцените това в макрос, можете да използвате следния програмен код:
Sub CountsFilledCells ()
Dim Number As Long
Dim Number2 толкова дълго
Затъмняване на зоната като обхват
Dim a As String
Зададена област = Избор
Number = Application.CountA (област)
Count2 = area.Cells.Count - номер
a = MsgBox ("В текущата селекция са" _
& Number & "клетки запълнени и" & number2 _
& "Клетките са празни.", VbOKСамо "оцени клетките")
End Sub
Макросът задава функцията ГрафА за преброяване на броя на непразни клетки в диапазон. Резултатът запазва променливата номер. За да се определи броят на запълнените клетки, тази стойност се изважда от броя на всички изследвани клетки. Макросът записва тази стойност в Номер 2.
След стартирането програмният код определя броя на запълнените и празни клетки в активната маркировка и показва резултата в прозорец:
Ако искате да обработите диапазон по ваш избор, а не текущата селекция, адаптирайте присвояването на стойността към променливата ■ площ в. Използва се в макроса със свойството Избор свързани. Ако вместо това искате сами да определите диапазон, заменете комплект-Присвояване на променливата ■ площ чрез израз на следната форма:
Зададен диапазон = Обхват ("A1: B5")
Спецификацията на диапазона винаги се отнася до активния работен лист. Ако искате да се обърнете към друг работен лист, поставете пред ОбхватКомандвайте препратките към методите Работни тетрадки и Листи фиксиран.
