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

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

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

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

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


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

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

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

Рахунки

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

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

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

Статистика

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

VBA : Властивості Range для форматування осередків

AutoFit

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

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A1:C10").Columns.AutoFit
	'або так: 
    ThisWorkbook.Sheets(1).Columns("A:C").AutoFit
End Sub 

AutoFormat

можливості використовувати один із стилів автоформатування.

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A1:C10").AutoFormat
End Sub 

Font

як і в Word, це властивість дозволяє отримати доступ до об'єкта Font, за допомогою якого можна налаштувати особливості оформлення тексту в осередку (колір, шрифт, розмір букв і т.п.)

Sub Test ()
    ThisWorkbook.Sheets(1).Range("A2").Font.Bold = True
    ThisWorkbook.Sheets(1).Range("A2").Font.Italic = True
    ThisWorkbook.Sheets(1).Range("A2").Font.Underline = xlUnderlineStyleSingle
    ThisWorkbook.Sheets(1).Range("A2").Font.Size = 26
    ThisWorkbook.Sheets(1).Range("A2").Font.Name = "Algerian"
    ThisWorkbook.Sheets(1).Range("A2").Font.Strikethrough = False
    ThisWorkbook.Sheets(1).Range("A2").Font.Superscript = False
    ThisWorkbook.Sheets(1).Range("A2").Font.Subscript = False
    ThisWorkbook.Sheets(1).Range("A2").Font.OutlineFont = False
    ThisWorkbook.Sheets(1).Range("A2").Font.Shadow = False
    ThisWorkbook.Sheets(1).Range("A2").Font.Underline = xlUnderlineStyleSingle
    ThisWorkbook.Sheets(1).Range("A2").Font.ThemeColor = xlThemeColorLight1
    ThisWorkbook.Sheets(1).Range("A2").Font.TintAndShade = 0
    ThisWorkbook.Sheets(1).Range("A2").Font.ThemeFont = xlThemeFontNone
End Sub 

FormatConditions

можливість створити власний об'єкт, який представляє варіант оформлення осередків, який потім можна застосовувати до різних осередків і діапазонів.

Sub Test ()
	With ThisWorkbook.Sheets(1).Range("A2:C10").FormatConditions.Add(xlCellValue, xlGreater, "=$a$1")
        With .Borders
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = 6
        End With
        With .Font
            .Bold = True
            .ColorIndex = 3
        End With
    End With
End Sub 

Interior

дозволяє пофарбувати осередки діапазону.

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A2:C10").Interior.ColorIndex = 4 ' пофарбує в зелений колір
End Sub 

NumberFormat

можливість встановити один із зумовлених форматів для чисел.

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A2:C10").NumberFormat = "General"
'    Загальний - "General"
'    Числовий - "0"
'    Грошовий - "#,##0.00$"
'    Фінансовий - "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
'    Дата - "m/d/yyyy"
'    Час - "[$-F400]h:mm:ss AM/PM"
'    Відсотковий - "0.00%"
'    Дробовий - "# ?/?"
'    Експоненційний - "0.00E+00"
'    Текстовий - "@"
'    Інші формати (можна створити власний) - "dd mmmm yyyy" (наприклад це буде "04 Липня 2016")
End Sub 

HorizontalAlignment

дозволяє вирівнювати значення у осередках.

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlGeneral 'вирівнювання за замовчуванням'
    ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlLeft 'вирівнювання по лівому краю'
    ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlCenter 'вирівнювання по центру'
    ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlRight 'вирівнювання по правому краю'
    ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlFill 'текст повторюється по всій довжині поля (якщо він може поміститись туди 2 рази повністю)'
    ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlJustify 'вирівнювання по вмісту'
    ThisWorkbook.Sheets(1).Range("A2:F2").HorizontalAlignment = xlCenterAcrossSelection 'вирівнювання по центру діапазону без обєднання комірок'
    ThisWorkbook.Sheets(1).Range("A2").HorizontalAlignment = xlDistributed 'вирівнювання по ширині комірки'
End Sub 

Orientation

дана властивість дозволяє зорієнтувати текст в осередках. Вказується кут нахилу в градусах. Наприклад, щоб розташувати текст по діагоналі, можна використовувати код
Sub Test ()
	ThisWorkbook.Sheets(1).Range("D3:D10").Orientation = -45
End Sub 

ShrinkToFit

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

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A2").ShrinkToFit = True 'та False для відміни маштабування
End Sub 

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


Style

це властивість дозволяє повернути об'єкт Style, який представляє стиль для зазначеного діапазону.

Sub Test()
    If Range("B4").Style.Name = "Normal" Then 'якщо для B4 встановлено звичайний стиль тоді змінюємо його на "Ввід"
        Range("B4").Style = "Ввід"
    End If
End Sub 

Примітка: Доступні стилі Ви може переглянути в Excel на вкладці "Основне" розділ "Стилі"


TextToColumns

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

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A2").TextToColumns Destination:=Range("A2") 'розібє текст розділений пробілами із A2 по сусідніх колонках на окремі слова
End Sub 

WrapText

можливість включити (True) / відключити (False) переклад тексту на наступний рядок в осередках діапазону.

Sub Test ()
	ThisWorkbook.Sheets(1).Range("A2").WrapText = True
End Sub 

view340like0dislike0 avatard_l4w clock 2016-07-21 21:56

Коментарі:



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

Про нас

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

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

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

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

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

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

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

Сайт

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

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


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

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

www.000webhost.com