Как подсчитать кол-во листов в книге Excel? - VB

Узнай цену своей работы

Формулировка задачи:

Т.е. не кол-во закладочек внизу (листов так наз.) а общее кол-во листов в документе?

Решение задачи: «Как подсчитать кол-во листов в книге Excel?»

textual
Листинг программы
<font size="2">    <font color="blue">For</font> i = 1 <font color="blue">To</font> Sheets.Count
        <font color="blue">If</font> Sheets(i).UsedRange.Columns.Count = 1 <font color="blue">And</font> _
           Sheets(i).UsedRange.Rows.Count = 1 <font color="blue">And</font> _
           Sheets(i).Range("A1").Value = "" <font color="blue">Then</font>
            Debug.Print Sheets(i).Name & "- пуст"
        <font color="blue">End</font> <font color="blue">If</font>
    <font color="blue">Next</font><br>
</font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4 из 5
Похожие ответы