![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Поиск ближайшей пустой ячейки столбца
Листинг 2.21. Поиск ближайшей пустой ячейки столбца Sub FindEmptyCell() ' Поиск ближайшей пустой ячейки в текущем столбце Do While Not IsEmpty(ActiveCell.Value) ActiveCell.Offset(1, 0).Select Loop End Sub Поиск максимального значения в диапазоне Листинг 2.22. Поиск максимального значения Sub FindMaxValue() On Error Goto NoCell If Selection.Count > 1 Then ' Поиск максимального значения в выделенных ячейках Selection.Find(Application.Max(Selection)).Select Else ' Поиск максимального значения во всех ячейках листа ActiveSheet.Cells.Find(Application.Max(ActiveSheet.Cells)).Select End If Exit Sub NoCell: MsgBox " Максимальное значение не найдено" End Sub Автоматическая замена значений диапазона Листинг 2.23. Автоматическая замена значений Sub ReplaceValues() Dim cell As Range ' Проверка каждой ячейки диапазона на возможность замены _ значения в ней (отрицательные значения заменяются на -1, _ положительные - на 1) For Each cell In Range(" C1: C3").Cells If cell.Value < 0 Then cell.Value = -1 ElseIf cell.Value > 0 Then cell.Value = 1 End If Next End Sub Быстрое заполнение диапазона Первый способ Листинг 2.24. Быстрое заполнение диапазона Sub FillCells() Dim intStartVal As Integer ' Начальное значение Dim intStep As Integer ' Шаг при изменении значения Dim intEndVal As Integer ' Конечное значение Dim intVal As Integer ' Текущее значение Dim intCellOffset As Integer ' Смещение от начальной ячейки
' Установка параметров заполнения intStartVal = 1 intStep = 1 intEndVal = 100
' Заполнение ячеек текущего столбца значениями от 1 до 100 For intVal = intStartVal To intEndVal Step intStep ActiveCell.Offset(intCellOffset, 0).Value = intVal intCellOffset = intCellOffset + 1 Next intVal End Sub Листинг 2.25. Заполнение через интервал Sub FillCells() Dim intStartVal As Integer ' Начальное значение Dim intStep As Integer ' Шаг при изменении значения Dim intEndVal As Integer ' Конечное значение Dim intVal As Integer ' Текущее значение Dim intCellOffset As Integer ' Смещение от начальной ячейки Dim intCellStep As Integer ' Шаг при перемещении между _ заполняемыми ячейками
' Установка параметров заполнения intStartVal = 3 intStep = 3 intEndVal = 30 intCellStep = 3
' Заполнение ячеек текущего столбца значениями от 3 до 30 For intVal = intStartVal To intEndVal Step intStep ActiveCell.Offset(intCellOffset, 0).Value = intVal intCellOffset = intCellOffset + intCellStep Next intVal End Sub
|