План лекції. Dim lFirstRow As Long, lLastRow As Long, lFirstCol As Long, lLastCol As Long, Rng As Range

End Sub

Dim lFirstRow As Long, lLastRow As Long, lFirstCol As Long, lLastCol As Long, Rng As Range

Sub Макрос1()

Next x

Примітка: Функція LTrim(Str(x)) повертає вираз типу String, який містить копіюрядка Str(x) без пробілів на початку.

(Макрос7)

(Макрос1) Розглянемо макрос, що повідомляє інформацію про номер рядка першої заповненої комірки робочого листа, про номер стовпчика першої заповненої комірки робочого листа, про номер рядка останньої заповненої комірки робочого листа, про номер стовпчика останьої заповненої комірки робочого листа, про максимальне і мінімальне число у даному діапазоні комірок.

lFirstRow = ActiveSheet.UsedRange.Row

lFirstCol = ActiveSheet.UsedRange.Column

lLastRow = lFirstRow + ActiveSheet.UsedRange.Rows.Count - 1

lLastCol = lFirstCol + ActiveSheet.UsedRange.Columns.Count - 1

MsgBox "Номер строки первой заполненной ячейки: " & lFirstRow & vbNewLine & _

"Номер столбца первой заполненной ячейки: " & lFirstCol & vbNewLine & _

"Номер строки последней заполненной ячейки: " & lLastRow & vbNewLine & _

"Номер столбца последней заполненной ячейки: " & lLastCol

Set Rng = Range(Cells(lFirstRow, lFirstCol), Cells(lLastRow, lLastCol))

Cells(lLastRow + 1, lLastCol - 1).Value = "Max = "

Cells(lLastRow + 1, lLastCol).Value = Application.Max(Rng)

Cells(lLastRow + 2, lLastCol - 1).Value = "Min = "

Cells(lLastRow + 2, lLastCol).Value = Application.Min(Rng)

1 питання. Входження українських земель до складу Литви та Польщі.

2 питання. Життя українських земель у складі Речі Посполитої.

Дата добавления: 2013-12-14