Відмінності між версіями «Деякі нотатки мовою VBA»

Матеріал з Вікі ЦДУ
Перейти до: навігація, пошук
(Створена сторінка: ## Приклад автоматичного переформатування рядків. Процедура описує процес переформатува...)
 
Рядок 1: Рядок 1:
## Приклад автоматичного переформатування рядків. Процедура описує процес переформатування рядків за принципом, один рядок отримує фоновий колір за замовченням а другий - сірий. Таке форматування корисне при аналізі наприклад друкованих на папері прайсів.
+
# Приклад автоматичного переформатування рядків. Процедура описує процес переформатування рядків за принципом, один рядок отримує фоновий колір за замовченням а другий - сірий. Таке форматування корисне при аналізі наприклад друкованих на папері прайсів.
  
 
Процедура доволі проста, але функціональна. Тут вказана конкретна кількість рядків для обробки 7013. Додана додаткова умова переформатування рядка, якщо перша комірка рядка містить число, то вважаємо дяний рядок за такий, який необхідно переформатувати.
 
Процедура доволі проста, але функціональна. Тут вказана конкретна кількість рядків для обробки 7013. Додана додаткова умова переформатування рядка, якщо перша комірка рядка містить число, то вважаємо дяний рядок за такий, який необхідно переформатувати.

Версія за 10:40, 23 травня 2014

  1. Приклад автоматичного переформатування рядків. Процедура описує процес переформатування рядків за принципом, один рядок отримує фоновий колір за замовченням а другий - сірий. Таке форматування корисне при аналізі наприклад друкованих на папері прайсів.

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

Sub Macros()

Dim state As Boolean
state = False
For i = 1 To 7013
    Value = Cells(i, 1)
    If ((IsNumeric(Value) = True) And (Value <> "")) Then
        ' MsgBox (Value)
        If (state = True) Then
            state = False
            Range(Cells(i, 1), Cells(i, 5)).Select
            With Selection.Interior
                .ColorIndex = 15
                .Pattern = xlSolid
            End With
        Else
            state = True
            Range(Cells(i, 1), Cells(i, 5)).Select
            Selection.Interior.ColorIndex = xlNone
        End If
        
    End If
Next i
End Sub