Как подсчитать кол-во листов в книге 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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д