Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление нового листа в книге с порядковым номером / 4 сообщений из 4, страница 1 из 1
20.02.2006, 22:44:09
    #33557081
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление нового листа в книге с порядковым номером
Граждане, а как добавить в книгу лист, чтобы на его ярлыке стоял порядковый номер. Например есть в книге листы под номерами: 1, 2, 3. Надо макрос, чтобы он добавлял 4. Если надо, то и 5 и т. д. Как это сделать?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2006, 08:38:33
    #33557326
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление нового листа в книге с порядковым номером
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub AddWorksheet()
    Dim intMax As Integer
    Dim intItem As Integer
    Dim ws As Worksheet
    
    intMax = Val(Worksheets( 1 ).Name)
    
    For Each ws In Worksheets
        intItem = Val(ws.Name)
        If intItem > intMax Then
            intMax = intItem
        End If
    Next ws
    
    Set ws = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    ws.Name = CStr(intMax +  1 )
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2006, 14:19:23
    #33558396
Ivan33
Ivan33
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление нового листа в книге с порядковым номером
Работает, шпасибо. А если с содержанием предыдущего?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.02.2006, 14:39:19
    #33558465
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Добавление нового листа в книге с порядковым номером
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Sub AddWorksheet()
    Dim intMax As Integer
    Dim intItem As Integer
    Dim ws As Worksheet
    
    intMax = Val(Worksheets( 1 ).Name)
    
    For Each ws In Worksheets
        intItem = Val(ws.Name)
        If intItem > intMax Then
            intMax = intItem
        End If
    Next ws
    
    Worksheets(Worksheets.Count).Copy After:=Worksheets(Worksheets.Count)
    Set ws = Worksheets(Worksheets.Count)
    ws.Name = CStr(intMax +  1 )
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Добавление нового листа в книге с порядковым номером / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 315ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2185222]:
 0ms
get settings:
 8ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 45ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 21ms
get tp. blocked users:
 1ms
others: 221ms
total:  315ms
x
x
Закрыть


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