Как да броим номера на линии в Excel VBA

Текстът в клетка на Excel може да обхваща няколко реда. Например клетките в лист с списък на служителите могат да съдържат разширени коментари относно представянето на всеки работник. Excel контролира броя на редовете в такъв блок, използвайки символа за подаване на ред, "CHAR (10)." Visual Basic за приложения, наричан също VBA, може да преброява номерата на редовете, като преброява броя на символите за подаване на ред в клетка. Един от начините за това се изважда дължината на текста, без реда да се подава от дължината им с тях.

1.

Кликнете върху „Developer“ в лентата с меню на Excel.

2.

Щракнете върху иконата Visual Basic в раздела Код на лентата, за да стартирате прозореца Visual Basic за приложения.

3.

Използвайте полето Project в горния ляв ъгъл на екрана, за да отидете до модула, където искате да напишете кода си.

4.

Въведете следния код в модула:

Dim lineNumber As Integer = LEN (адрес) - LEN (SUBSTITUTE (адрес, CHAR (10), ''))

5.

Заменете и двата случая на 'address' във формулата с адреса на клетката, чийто номер на ред искате да преброите. Например, ако искате да преброите редовете в клетка E2, променете кода на:

Dim lineNumber As Integer = LEN (E2) - LEN (SUBSTITUTE (E2, CHAR (10), ''))

Променливата lineNumber сега съхранява броя на линиите в клетката.

Бакшиш

  • Ако разделът Developer не се появи в лентата, щракнете върху бутона Office в горния ляв ъгъл на прозореца на Excel и изберете „Опции на Excel“. Поставете отметка в квадратчето до „Показване на раздела Devloper в лентата“ и щракнете върху „OK“.