Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПРОБЛЕМА с оператором цикла FOR / 2 сообщений из 2, страница 1 из 1
09.02.2005, 14:03
    #32908198
Brasilia_CARNAVAL
Brasilia_CARNAVAL
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПРОБЛЕМА с оператором цикла FOR
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Dim m_sNameSheets As String
m_sNameSheets = ""
Dim m_aRray1(m_nItems) As String

m_aRray1 – массив содержит имена листов в книге

' Заполнение массива именами листов в активной  книге
For i2 =  1  To Sheets.Count  
    m_aRray1(i2) = Sheets(i2).Name
Next

m_sNameSheets = ""
For i2 =  1  To Sheets.Count
    m_sNameSheets = m_sNameSheets + m_aRray1(i2) + vbNewLine 
Next
MsgBox m_sNameSheets ‘ выводит  25  строк

Хочу пронумеровать элементы в массиве при их выводе, например,
 6 .Region
скорректировав строку:
m_sNameSheets = Str(i2) & ". " & m_aRray1(i2) + vbNewLine ‘ выводит
вместо  25  пронумерованных строк одну строку вида  “ 24 .Шум”
СПАСИБО.

в WORD_file показаны снимки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.02.2005, 16:17
    #32908618
Processor
Processor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПРОБЛЕМА с оператором цикла FOR
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub ListSheetNames()
Dim m_sNameSheets As String, sh As Worksheet, i As Long
' Заполнение массива именами листов в активной  книге
i =  1 
For Each sh In ActiveWorkbook.Worksheets
    m_sNameSheets = m_sNameSheets & i & ". " & sh.Name & vbCrLf
    i = i +  1 
Next
MsgBox m_sNameSheets
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / ПРОБЛЕМА с оператором цикла FOR / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]