![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Метод Sort
Сортировка позволяет выстраивать данные в лексикографическом порядке по возрастанию или убыванию. Метод sort осуществляет сортировку строк списков и баз данных, а также столбцов рабочих листов с учетом до трех критериев, по которым производится сортировка. Сортировка данных вручную совершается с использованием команды Данные, Сортировка (Data, Sort). Синтаксис: Объект. Sort(key1, order1, key2, order2, key3, order3, header, orderCustom, matchCase, orientaticn) Аргументы: Объект Диапазон, который будет сортироваться Key1 Ссылка на первое упорядочиваемое поле Order1 Задает порядок упорядочивания. Допустимые значения: xlAscending (возрастающий порядок); xlDescending (убывающий порядок) key2 Ссылка на второе упорядочиваемое поле order2 Задает порядок упорядочивания. Допустимые значения: xlAscending (возрастающий порядок); xlDescending (убывающий порядок) header Допустимые значения: xlYes (первая строка диапазона содержит заголовок, который не сортируется); xlNo (первая строка диапазона не содержит заголовка, по умолчанию считается данное значение); xlGuess (Excel решает, имеется ли заголовок) orderCustom Пользовательский порядок сортировки. По умолчанию используетсяNormal matchCase Допустимые значения: True (учитываются регистры) и False (регистры не учитываются) orientatioN Допустимые значения: xlTopToBottom (сортировка осуществляется сверху вниз, т. е. по строкам); xlLeftToRight (слева направо, т. е. по столбцам)
Например, диапазон А1: С20 рабочего листа лист1 сортируется следующей командой в порядке возрастания так, что первоначальная сортировка происходит по первому столбцу этого диапазона, а второстепенная – по второму: Worksheets(«Лист»).Range(«A1: C20»).Sort _ key1: =Worksheets(«Sheet1»).Range(«A1»), _ key2: =Worksheets («Sheet1»).Range («B1») Округление чисел Округлять десятичные числа приходится часто, особенно при работе с денежными значениями. VBA не предлагает прямого решения таких задач, но обсуждаемые ниже приемы помогут решить эти проблемы. Способ Функция Round Пример: X= round(2.505, 2) Значение х будет 2, 5, а не 2, 51. Поэтому часто не используется. Способ Функция Format Пример: sngОкругление=Format(SngНеокругленное, “#, 0.00”) Способ Функция FormatNumber SngОкругление= FormatNumber(sbgНеокругленное, 2) Для изменения знаков после запятой измените число нулей после десятичной точки в аргументе Format, либо измените число, задающее значение второго аргумента, на нужное. Примечание. Переменная, в которую помещается округленное значение, должна иметь тип string, single, double, decimal, currency или variant, но не тип integer или long.
|