Зараз обговорюють

"Тобто є ряд завдань, які взагалі без рекурсії не наважуються."  - це як розуміти? Перефразуй, будь ласка. 

виправив, йшлося про те що деякі завдання можна вирішити лише при використанні рекурсії

Спасибі дуже корисна стаття

А ще щось планується подібного найближчим часом?


Дякую за підтримку, радий що Вам сподобалось!

Так маю вже майже дороблений проект по управлінні Audio файлом, на заміну стандартним клавішам управління HTML5, але ще не встиг відтестувати програвання файлів з інтернету, поки лише локально працює

Надіюсь найближчим часом дороблю й закину

Рахунки

webmoneyeur - E385818210641
usd - Z304643423050
uah - U354026817492
rub - R301704373231easypay80002677bitcoin1F5HRGroUtEQW9HBNbeew8iKh5KQ8vJxzw

Зворотній зв'язок

Для покращення роботи сайту надсилайте свої зауваження:
mailЗауваження
mailПропозиція

Статистика

UkrNET - поисково-информационный ресурс

VBA : Колекція Sheets. Властивості та методи

Раніше ми вже розглядали частково роботу з аркушами, але зупинимось на них більш детально та розглянемо їх властивості та методи.

Add

До колекції аркушів є можливість додавати свої аркуші, для цього існує метод Add. Цей метод вимагає 4 параметра:

Add (Before, After, Count, Type)

Всі ці параметри необов'язкові. Перші два відповідають за місце вставки аркуша. Далі кількість аркушів Count які вставляються і їх тип. Типи можуть бути, наприклад, такі. xlWorkSheet для розрахункового аркуша, xlChart для діаграми. Якщо місце розташування не вказувати, то аркуш буде вставлятися щодо поточного аркуша.

Sub Test ()
	ThisWorkbook.Sheets.Add Count:=2	'додаємо 2 аркуші'
End Sub 

Activate

досить часто виникає необхідність активувати певний аркуш для проведення з ним певних маніпуляцій і програмно це робиться так

Sub Test ()
	ThisWorkbook.Sheets(1).Activate
End Sub 

Copy

один з досить корисний методів. Він дозволяє створювати новий аркуш на основі існуючого, тобто використовувати аркуш як шаблон для інших аркушів.

Sub Test ()
	ThisWorkbook.Sheets(1).Copy , after:=Sheets(2)	'копіюємо перший аркуш та вставляємо його після другого'
End Sub 

Якщо в момент копіювання перший аркуш приховано то і його копія буде прихованою

Примітка: У методу Copy є особливість. Якщо не вказувати параметри, то буде створена нова книга з копійованим аркушем.


Count

дозволяє отримати кількість усіх аркушів в книзі

Sub Test ()
	Debug.Print ThisWorkbook.Sheets.Count	'виводимо кількість всіх аркушів в книзі'
End Sub 

Примітка: так само як і аркуші для розрахунків діаграма буде включена в підрахунок аркушів. Приховані аркуші також будуть пораховані


Delete

програмним шляхом можна і видаляти аркуші

Sub Test ()
    Application.DisplayAlerts = 0	'відключаємо виведення повідомлень, щоб Excel не запитував чи видаляти вибраний аркуш'
        ThisWorkbook.Sheets(1).Delete	'видаляємо перший аркуш'
    Application.DisplayAlerts = 1	'включаємо виведення повідомлень'
End Sub 

Name

дозволяє отримати ім'я поточного аркуша

Sub Test ()
	For Each Sheet In ThisWorkbook.Sheets
        Debug.Print Sheet.Name	'виводимо назву всіх аркушів в книзі'
    Next
End Sub 

Також за допомогою Name можна перейменовувати аркуші

Sub Test ()
	ThisWorkbook.Sheets(1).Name = "test"	'змінюємо назву першого аркуша на test'
End Sub 

Move

дозволяє при необхідності пересунути лист

Sub Test ()
	ThisWorkbook.Sheets(1).Move , after:=Sheets(2)	'переміщуємо перший аркуш та вставляємо його після другого'
End Sub 

Parent

цей метод дозволяє дізнатися до якої книги належить поточний аркуш, що буває досить корисним при одночасному опрацюванні великої кількості відкритих книг.

Sub Test ()
	Debug.Print ActiveWorkbook.Sheets.Parent.Name	'виводимо назву книги з якої зараз активний аркуш'
End Sub 

Select

програмним шляхом можна виділити певні аркуші

Sub Test ()
	ThisWorkbook.Sheets(Array(1, 2, 3)).Select	'виділяємо масив аркушів перший, другий та третій'
End Sub 

Примітка: при виділенні аркушів із потрібної книги її потрібно спочатку активувати інакше виникне помилка при виконанні коду


Type

А як же аркуш з формулами відрізнити від діаграми? В цьому допоможе властивість Type, вона поверне тип аркуша.

Для звичайного аркуша буде повернуто значення -4167, а для діаграми 3

Sub Test ()
	For Each Sheet In ThisWorkbook.Sheets
        x = Sheet.Type
        If Sheet.Type <> 3 Then
            Debug.Print Sheet.Name	'виводимо назву всіх аркушів в книзі які не є діаграмами'
        End If
    Next
End Sub 

Visible

цей метод дозволяє приховати деякі аркуші. Це буває корисно, якщо у Вас є константи або розрахунки, які Ви не хочете щоб бачили на екрані у вигляді аркушів. Він приймає два значення True (аркуш видно) i False (аркуш не видно).

Sub Test ()
	ThisWorkbook.Sheets(1).Visible = False	'приховуємо 1 аркуш'
End Sub 

view373like0dislike0 avatard_l4w clock 2016-07-20 17:51

Коментарі:



Для даної статті відсутні коментарі

Про нас

"Programmers World" розроблено з метою полегшення в освоєнні навичок програмування, та поширення матеріалів з сфери ІТ Українською мовою.

Кожен бажаючий може безкоштовно користуватися ресурсами сайту, щоб:

- Вивчати теоретичні аспекти мов програмування

- Переглядати практичне застосування теорії при виконанні різних міні проектів з відкритим кодом

- Розміщати свої завдання на форумі для допомоги в їх реалізації, або готового коду який може бути корисний іншим користувачам

- Спілкуватись з іншими користувачами та обмінюватись досвідом

Сайт функціонує на безопланій основі та ентузіазмі розробника, якщо Ви бажаєте долучитись до розвитку даного проекту то можете пожертвувати кошти на рахунки розміщені в блоці "Допомога сайту".

Сайт

Зареєстровані користувачі можуть скористатися системою діалогів, в профілі користувача, для отримання потрібної інформації. Написати!

Також Ви можете використати форми відправки Зауважень та Пропозицій.


Електронна пошта

Ви можете звертатись на нашу поштову скриньку site.programmersworld@gmail.com

www.000webhost.com