|
Платные хостинги
Раскрутка сайта
Книги по программированию
Управление листами в Excel в VB.
- Sheets(Naim_BD).Move After:=Sheets(5)Эта строка создаёт новый лист в книге и помещает его пятым по счёту.А есть ли возможность прописать так, чтобы новый лист отправлялся в конец, независимо от количества листов в книге?
- Sheets(Naim_BD).Move After:=Sheets(Sheets.Count)
- shilnik, как всегда просто...
-
- shilnik, как всегда просто... Подписываюсь под сказанным!!!Спасибо!Извиняйте, не представился... Добавлено @ 14:50 А вот ещё не могу догнать, поможите кто чем:Теория:Есть 4 постоянных листов в книге, вроде как интерфейс управления и всякие другие примочки, и добавляются листы в качестве БД.Они все скрытые (листы БД). Есть фишка позволяющая открыть и посмотреть любой из них, но так как их может быть много и точное их число неизвестно, то чтобы не напрягали они спрятаны. Вопрос:Моно сделать так, чтобы при выходе все, кроме 4 листов делались - Visible = 0 ?
- Например так:в Workbook_openКод Dim Sht as SheetFor Each Sht in Sheets If Sht.Name like "db_*" Then Sht.Visible=False End IfNexthighlightSyntax('vb1Y2FjN','vb');Только тогда надо листы базы называть db_*Если поиграться с есловием в If, то будет куча вариантов.
- shilnik, в твоём лице чувствуется большой авторитет!Чуть видоизменил и всё вписалось:Private Sub Workbook_BeforeClose(Cancel As Boolean)Dim Sht As SheetsFor Each Sheet In Sheets If Sheet.Name Like "*_1" Then Sheet.Visible = False End IfNextEnd SubТеперь все листы с хвостом Sheets.Add.Name = Naim_BD & "_1" при выходе ныкаются!Правда пришлось чуть переделать процесс создания листиков.
- А ещё вот вопросик образовался:В экселе есть кнопочка такая - отмена действия.А как на VB это перевести?
- Еще раз Код Application.UndohighlightSyntax('vb2I5ZTd','vb');
- Это она!Но как написать чтобы она работала не бесконечно?
- А я бы сделал так:Dim x As ByteWith Application.Workbooks.Item(ThisWorkbook) For x = 5 To .Sheets.Count Sheets.Item(x).Visible = FalseNext xв том случае, конечно, если интерфейс на ПЕРВЫХ четырех листах.
Интернет казино
Онлайн игры
Увеличение члена
Купить DVD
|
