ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как добавить Лист с определенным именем
11 сообщений из 11, страница 1 из 1
Как добавить Лист с определенным именем
    #35145219
R@maN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R@maN
Гость
Добрый день коллеги !

Делаю форму и у меня возникла одна небольшая проблемка которая заключается в следушем. Есть ComboBox из этого ComboBox выбераются виды страхования и мой вопрос такой как сделать так что бы при выборе из ComboBox определенного вида страхования создавался лист с именем выбраного вида страхования. Идея добавить лист и потом его переименовать не проходит не известно сколько таких листов будет создано.

Заранее огромное спасибо.
...
Рейтинг: 0 / 0
20.02.2008, 17:12
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35145331
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
в модуле той самой формы, где есть ComboBox1 и кнопка Ok
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Private Sub CommandButton1_Click()
    If ComboBox1.Text = "" Then
        MsgBox "Выберите что-нибудь"
        ComboBox1.SetFocus
        Exit Sub
    End If
    Sheets.Add
    ActiveSheet.Select
    ActiveSheet.Name = ComboBox1.Value
End Sub
...
Рейтинг: 0 / 0
20.02.2008, 17:39
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35145386
R@maN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R@maN
Гость
Огромное спасибо только что сам догналю. Все оказалось очень просто вот так

If ComboBox5 = "Каско"
Sheets.Add.Name = "Каско"
End If
...
Рейтинг: 0 / 0
20.02.2008, 17:51
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35145693
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Я не думаю, что последний код будет работать.
...
Рейтинг: 0 / 0
20.02.2008, 19:26
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35145774
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
VladConnЯ не думаю, что последний код будет работать.Ты про это:
Код: plaintext
1.
2.
If ComboBox5 = "Каско"
Sheets.Add.Name = "Каско"
End If
Зря не думаешь, прекрасно оно будет работать. Создаст новый лист и даст ему имя.... Другое дело что повторный запуск этого кода выдаст "странный" результат :)
...
Рейтинг: 0 / 0
20.02.2008, 20:27
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35145968
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
Этот код даже компилироваться не будет. Разве что покраснеет. Тоже работа.
...
Рейтинг: 0 / 0
20.02.2008, 23:50
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35146003
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
White Owl
Участник
VladConnЭтот код даже компилироваться не будет. Разве что покраснеет. Тоже работа.ээээ.... ты про синтаксис? Тогда да, в синтаксисе там действительно ошибка :) Но кто ж смотрит на синтаксис когда речь идет о принципе? :)
...
Рейтинг: 0 / 0
21.02.2008, 00:34
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35147053
Фотография klen_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
klen_
Участник
White OwlДругое дело что повторный запуск этого кода выдаст "странный" результат :)да, действительно, на было проверить, нет ли такого листика
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim i As Integer, exists_sheet As Boolean, NewSheet As Worksheet

For i =  1  To Sheets.Count
    If Sheets(i).Name = ComboBox1.Value Then
        exists_sheet = True
        Exit For
    End If
Next

If Not exists_sheet Then
    Set NewSheet = Sheets.Add(Type:=xlWorksheet)
    NewSheet.Name = ComboBox1.Value
End If
...
Рейтинг: 0 / 0
21.02.2008, 12:24
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35147260
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: klen_
> White Owl
> Другое дело что повторный запуск этого кода выдаст "странный"
> результат :)
> да, действительно, на было проверить, нет ли такого листика

> If Sheets(i).Name = ComboBox1.Value Then
> exists_sheet = True
> Exit For
> End If
> Next

зачем же цикл,
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Function GetSheet(sName as string) as WorkSheet
on Error GoTo labErr
set GetSheet = Sheets(sName)
exit function

labErr:
set GetSheet = Sheets.add
GetSheet.Name = sName
end Function


Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.02.2008, 13:02
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35147521
R@maN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
R@maN
Гость
Добрый день !

Мой текст который я указал действительно работает и создает лист с нужным мне именем. Но как сказал White Owl при повторном выборе мне выдает ошибку, уже пол дня над пороверкой просидел и не как не получается. Решил обратиться к Вам за помощью и увидел очень бурное обсуждение моего синтаксеса и решение своей новой проблемы.

Огромное СПАСИБО ВАМ ЗА ПОМОЩЬ :-) !!!
...
Рейтинг: 0 / 0
21.02.2008, 14:03
| Ответить | Цитировать | Написать  
Как добавить Лист с определенным именем
    #35147997
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
White Owl VladConnЭтот код даже компилироваться не будет. Разве что покраснеет. Тоже работа.ээээ.... ты про синтаксис? Тогда да, в синтаксисе там действительно ошибка :) Но кто ж смотрит на синтаксис когда речь идет о принципе? :)

White Owl, этот форум посещают энтузиасты очень разного уровня, в том числе и те, кто почти ничего еще не знает, их и синтаксис интересует. Может, дело не в принципе, не в синтаксисе, а в VB?

Успехов
:0)
vladconn
...
Рейтинг: 0 / 0
21.02.2008, 15:33
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Как добавить Лист с определенным именем
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=35147997&tid=2162673]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 59ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 46ms
get tp. blocked users:
 2ms
others: 203ms
total:  350ms
созд. / загр.: 350ms
x
x
Закрыть


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