31 мая 2018, 09:43
Изменение размеров диапазона
С помощью свойства Resize объекта Range обеспечивается простой способ измене-
ния размера диапазона. Свойство Resize принимает два аргумента, которые представля-
ют общее количество строк и столбцов в диапазоне изменяемого размера.
Например, после вызова следующей инструкции объектная переменная MyRange бу-
дет содержать массив, размеры которого составляют 20 строк на 5 столбцов (диапазон
А1-.Е20).
Set MyRange = Range("A1")
Set MyRange = MyRange.Resize(20, 5)
После выполнения следующего оператора значение диапазона, задаваемого объектной
переменной MyRange, увеличится на одну строку. Поскольку второй аргумент не указыва-
ется, количество столбцов не изменяется.
Set MyRange = MyRange.Resize(MyRange.Rows.Count + 1)
Предположим, рабочая книга включает диапазон Data. Нужно написать код, который будет расширять именованный диапазон путем добавления дополнительной строки. Эту
задачу выполняет следующий фрагмент кода.
With Range("Data")
.Resize(.Rows.Count + l).Name = "Data"
End With
-----
kullun (off) Хозяин
31 мая 2018, 09:35
Выделение либо идентификация диапазонов различного типа
метод End объекта Range.
Метод End имеет один аргумент, определяющий
направление, в котором расширяется выделение ячеек. Представленный ниже оператор
выделяет диапазон от активной ячейки до последней непустой ячейки внизу.
Range(ActiveCell, ActiveCell.End(xlDown)).Select
Как можно догадаться, три остальные константы имитируют комбинации клавиш, ис-
пользуемые при выделении диапазона в других направлениях: xlUp (вверх), xlToLef t
(влево) и xlToRight (вправо).
Будьте осторожны при работе с методом End. Если активная ячейка находится
на границе диапазона или диапазон содержит хотя бы одну пустую ячейку, метод
End может не дать требуемых результатов.
Sub SelectCurrentRegion()
ActiveCell.CurrentRegion.Select
End Sub
Sub FormatCurrentRegion()
ActiveCell.CurrentRegion.Font.Bold = True
End Sub
АЛЬТЕРНАТИВНЫЙ СПОСОБ СОЗДАНИЯ ССЫЛКИ НА ДИАПАЗОН
[С2
8].Select
Адрес диапазона находится в квадратных скобках и не заключен в кавычки.
Предыдущая инструкция эквивалентна следующей:
Range ("C2:D8") .Select
С помощью квадратных скобок выполняется сокращенная запись метода Evaluate
объекта Application. В рассматриваемом примере квадратные скобки соответствуют
следующей конструкции:
Application.Evaluate("С2
8").Select
!!!!!использование квадратных скобок замедляет скорость вы
полнения кода на 70% по сравнению с обычным типом ссылки. Это связано с тем, что
требуется дополнительное время для оценивания текстовой строки и проверки, по
зволяющей установить, действительно ли она является ссылкой на диапазон.
-----
kullun (off) Хозяин
31 мая 2018, 09:26
==============Перемещение диапазона=======================
Инструкции VBA для перемещения диапазона ячеек подобны инструкциям копирова-
ния диапазона. Разница заключается в том, что вместо метода Сору используется метод
Cut. Обратите внимание на то, что для вставляемого диапазона необходимо задавать толь-
ко адрес левой верхней ячейки.
=============================================
Sub MoveRangelO
Range("A1:C6").Cut Range("HI”)
End Sub
=============================
==========Копирование диапазона переменного размер=========
Во многих случаях необходимо скопировать диапазон ячеек, когда неизвестны точные
размеры диапазона (количество столбцов и строк).
================
В данном случае используется свойство
CurrentRegion, возвращающее объект Range, который соответствует блоку ячеек, на-
ходящемуся вокруг заданной ячейки (в данном случае — А1).
Sub CopyCurrentRegion2()
Range("А1").CurrentRegion.Copy Sheets("Лист2").Range("A1")
End Sub
==================================================
значение свойства CurrentRegion является прямоугольным диапазоном
ячеек, окруженным одной или несколькими пустыми строками либо столбцами.
=========================================================
СОВЕТЫ:
Если с помощью инструкций программного кода выделяется диапазон, то соот
ветствующий рабочий лист должен быть активным. Для активизации конкретно
го листа используйте метод Activate из коллекции Worksheets.
В программе VBA используйте ссылки на именованные диапазоны. Например,
лучше воспользоваться ссылкой Range ("Total") , чем Range ("D45") . Во
втором случае при добавлении строки над строкой 45 адрес ячейки изменится.
После этого придется изменить макрос, чтобы в нем использовался правильный
адрес ячейки (D46).
В программе VBA используйте ссылки на именованные диапазоны. Например,
лучше воспользоваться ссылкой Range ("Total") , чем Range ("D45") . Во
втором случае при добавлении строки над строкой 45 адрес ячейки изменится.
После этого придется изменить макрос, чтобы в нем использовался правильный
адрес ячейки (D46).
-----
kullun (off) Хозяин
31 мая 2018, 09:01
Копирование диапазона
============================
Sub CopyRangeO
Range("Al").Copy RangeC'Bl")
End Sub
Sub CopyRange2()
Workbooks("Filel.xlsx”).Sheets("Лист1").Range("Al").Copy _
Workbooks("File2.xlsx").Sheets("Лист2").Range("Al")
End Sub
Sub CopyRange3()
Dim Rngl As Range, Rng2 As Range
Set Rngl = Workbooks("Filel.xlsx").Sheets("Лист1").Range("Al")
Set Rng2 = Workbooks("File2.xlsx").Sheets("Лист2").Range("Al")
Rngl.Copy Rng2
End Sub
===========================================================
адрес места
вставки определяется единственной ячейкой (представляющей верхний левый угол встав-
ляемого диапазона).
Sub CopyRange4()
Range("Al:С800").Copy Range("Dl")
End Sub
-----
kullun (off) Хозяин
5 мая 2018, 00:02
SymDVR - v.1.30 (18.2 Kb)SymDVR - видеорегистратор для смартфона.
Основные возможности:
- Осуществляет непрерывную запись видео с разделением на отдельные ролики
- Автоматически удаляет старые записи для очистки места на диске
- Поддержка масштабирования при съемке
- Поддержка фоновой записи видео
- Поддержка записи в HD
- Позволяет сохранять ролики в избранном
- Поддержка субтитров (дата и время, GPS координаты, скорость)
http://profismart.org/web/f-133513.php
-----
kullun (off) Хозяин
5 мая 2018, 00:00
Mp3 Cut - v.2.6.2
Неплохой инструмент для нарезки mp3 файлов прямо на вашем смартфоне. После нескольких простых шагов, вы можете просматривать и сохранять аудио-клипы в память телефона и устанавливать их в качестве мелодии вызова.
Новое в этой вeрсии: исправлены ошибки, теперь нормальный выход из программы.
http://profismart.org/web/f-133967.php
-----
kullun (off) Хозяин
4 мая 2018, 23:57
Приложение SymEYE- мобильная система видеонаблюдения. Возможности программы позволяют обнаружить движущийся перед камерой устройства объект, записать его на видео и отправить sms-сообщение на заданный номер телефона.
Настройки приложения позволяют регулировать разрешение, чувствительность детектора и минимальный размер обнаруживаемого объекта.
http://profismart.org/web/f-135310.php
-----
kullun (off) Хозяин
4 мая 2018, 23:54
ALON MP3 Dictaphone v.3.00(0)
http://profismart.org/web/f-132051.php
fring v.7.01(24)
http://profismart.org/web/f-148831.php
-----
kullun (off) Хозяин
25 апреля 2018, 09:51
Option Explicit
Sub Testt1()
Dim ShMain As Worksheet
Dim lso As ListObject
Set ShMain = ThisWorkbook.Worksheets("6")
Set lso = ShMain.ListObjects("1")
Dim lsRow As ListRow
Set lsRow = lso.ListRows.Add
lsRow.Range(2) = Range("J3")
lsRow.Range(3) = Range("K3")
lsRow.Range(4) = Range("L3")
End Sub
-----
kullun (off) Хозяин
4 марта 2018, 18:23
http://profismart.org/web/f-201806.php
Acoustica Premium Edition 7.0.56 RePack (& Portable) by TryRooM
АРХИВ ФАЙЛОВ » ОБМЕННИК » ФАЙЛЫ ДЛЯ ПК » ПРОГРАММЫ ДЛЯ ПК
Acoustica Premium Edition 7.0.56 RePack (& Portable) by TryRooM
Скриншот: Acoustica Premium Edition 7.0.56 RePack (& Portable) by TryRooM (16.7 Kb)Профессиональная программа, которая позволит на высоком уровне ввести аудио запись, редактирование и мастеринг.
Сразу мне хочется отметить интуитивно понятный пользовательский интерфейс в котором на самом деле приятно работать. Он был разработан таким образом, чтобы вы максимально быстро могли в нем освоится и приступить к работе, получая доступ к мощным инструментам.
Все аудио файлы которые вы отредактировали можно сразу записать на компакт диск, при этом у вас будет возможность добавить к треку различные звуковые эффекты.
Обратите внимание, что программа поддерживает работу с разной акустикой от 5.1 до 7.1, а максимальная частота дискретизации равняется 384 кГц. Вы сможете настроить панель инструментов и меню, при желании можно воспользоваться кнопкой отмены совершенного вами действия, Acon Digital Media Acoustica дает стандартные инструменты для редактирования трека, можно вырезать, копировать, вставлять и редактировать дорожки.
Русской поддержки нет, но как писалось уже выше, это не проблема, еще стоит выделить малое потребление ресурсов компьютера и отличный результат на
-----