Типовые ситуации в работе с ячейками и диапазонами. Concepts. Cells and Ranges.

Содержание:

1.1. Работа со всеми ячейками на рабочем листе. How to: Refer to All the Cells on the Worksheet. 

1.2. Обращение к ячейкам и диапазонам с использованием нотации «А1». How to: Refer to Cells and Ranges by Using A1 Notation. 

1.3 Обращение к строкам и столбцам. How to: Refer to Rows and Columns. 

1.4 Обращение к ячейкам, используя индексный номер. How to: Refer to Cells by Using Index Numbers. 

1.5 Обращение к ячейкам с использование короткой нотации. How to: Refer to Cells by Using Shortcut Notation. 

1.6 Обращение к ячейкам расположенных относительно других ячеек. How to: Refer to Cells Relative to other Cells. 

1.7 Обращение к ячейкам с использованием объекта Range в виде переменной. How to: Refer to Cells By Using a Range Object. 

1.8 Обращение к именованным диапазонам. How to: Refer to Named Ranges. 

1.9 Обращение к нескольким диапазонам. How to: Refer to Multiple Ranges. 

2.0  Перебор ячеек в диапазоне. Looping Through a Range of Cells. 

2.1  Выбор и активация ячеек. Selecting and Activating Cells. 

2.2  Работа с 3-D диапазонами. Working with 3-D Ranges. 

2.3  Работа с активной ячейкой. Working with the Active Cell. 

2.4  Значения ошибок в ячейках. Cell Error Values. 


1.1. How to: Refer to All the Cells on the Worksheet. Работа со всеми ячейками на рабочем листе.

Когда вы применяете свойство Cells к рабочему листу без указания номера индекса (т.е. без указания адреса диапазона или ячейки), то этот метод возвращает объект Range, представляющий все ячейки этого листа.

 

Пример 1.1.1

Очистка данных во всех ячейках на листе активной рабочей книги (удаляются именно данные, т.е. цифры, буквы, символы, а не форматирование: цвет ячеек, ширина столбцов и т.д.)

Public Sub ClearSheet()

Worksheets(“Sheet1”).Cells.ClearContents

End Sub

Разбор кода:

Worksheets (“Sheet1”) - здесь мы вызываем коллекцию Worksheets (Рабочие листы), в которой в скобках и кавычках указываем название листа с которым хотим работать, т.е. “Sheet1” (можно прописать любое название листа из вашей книги, например Лист1 или Лист2).

Cells - это свойство, которое выделяет все ячейки на листе.

ClearContents - метод с помощью которого мы удаляем содержимое из всех ячеек.

Отметим, что после прописывания Cells. не появляется всплывающей подсказки свойств и методов. Свойство Cells здесь представляет собой объект Range, поэтому чтобы узнать, что можно писать после Cells. необходимо в справке посмотреть члены объекта Range (для этого нажмите F1, в поле поиска справки введите Range и нажмите поиск, далее выберите Range Object Members).

 

            Пример 1.1.2

Сделать для всех ячеек шрифт Arial с полужирным начертанием размером 12 зелёного цвета

Public Sub BoldFont()

With Worksheets("Sheet1").Cells.Font

    .Bold = True

    .Name = "Arial"

    .Size = 8

    .Color = RGB(0, 255, 0)

End With

End Sub

Разбор кода:

With Worksheets("Sheet1").Cells.Font – в этой строке, чтобы по много раз не писать Worksheets("Sheet1").Cells.Font мы написали слово With которое позволяет запомнить фразу после слова With и на следующих строках больше её не писать. После того как закончите работать с фразой, необходимо написать End With.

.Bold = True – выбираем свойство Bold (полужирный) и присваиваем параметр True, который символизирует логическое «да». А если выбрать False, то полужирный шрифт наоборот был бы отключён.

.Name = "Arial" – в данном свойстве указывается название шрифта, в данном случае “Arial

.Size = 12 – в этом свойстве указываем высоту шрифта, например 12, можно выбрать от 1 до 409.

.Color = RGB(0, 255, 0) – здесь выбираем цвет с помощью формата RGB, каждое число должно быть в диапазоне от 0 до 255.

End With – этим выражением закрываем конструкцию With – это обязательное условие при использовании With.

 

1.2. How to: Refer to Cells and Ranges by Using A1 Notation. Обращение к ячейкам и диапазонам с использованием нотации «А1».

Вы можете обращаться к ячейке или диапазону ячеек с помощью ссылочного стиля «А1», используя свойство Range.

            Пример 1.2.1

Следующая процедура форматирует диапазон ячеек A1:C3 жирным выделением.

Public Sub RangeBold()

Workbooks(“Test.xlsm”).Sheets(“Sheet1”).Range(“A1:C3”).Font.Bold = True

End Sub

            Разбор кода:

Workbooks(“Test.xlsm”) – указываем необходимую книгу, в данном случае Test.xlsm

.Sheets(“Sheet1”) – далее указываем нужный лист, в данном случае Sheet1

.Range(“A1:C3”) – здесь указываем требуемый диапазон, в данному случае A1:C3

 .Font – это свойство «Шрифт» указывает на то, что будем обращаться ко всему шрифту в диапазоне A1:C3

.Bold = True – активируем параметр Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный).

 

            Пример-таблица 1.2.2

Range(“A1”)

Обращение к ячейке А1

Range(“A1:B2”)

Обращение ко всем ячейкам в диапазоне A1:B2 (то есть к ячейкам A1, A2, B1, B2)

Range(“A1:B2,C1:D2”)

Обращение к ячейкам диапазона A1:B2 (ячейкам A1, A2, B1, B2), C1:D2 (ячейкам C1, C2, D1, D2)

Range(A:A)

Обращение к столбцу А

Range(1:1)

Обращение к строке 1

Range(A:D)

Обращение к диапазону столбцов A:D (то есть к колонкам A, B, C, D)

Range(“1:3”)

Обращение к диапазону строк 1:3 (то есть к строкам 1, 2, 3)

Range(“1:1, 4:4, 6:6”)

Обращение к строкам 1, 4 и 6

Range(“A:A, C:C, E:E”)

Обращение к столбцам A, C и E

 

            1.3 How to: Refer to Rows and Columns. Обращение к строкам и столбцам.

            Используйте свойство Rows или Columns для работы со строками или столбцами. Эти свойства возвращают объект Range, который представляет собой диапазон ячеек.

 

            Пример 1.3.1

            В этом примере ко всем ячейкам строки 1 будет применено жирное выделение.

Public Sub Row1Bold()

            Worksheets(“Sheet1”).Rows(1).Font.Bold = True

End Sub

            Разбор кода:

Worksheets(“Sheet1”) – указываем необходимый лист, например Sheet1.

.Rows(1) – указываем необходимую строку, например 1.

.Font – это свойство «Шрифт» указывает на то, что будем обращаться ко всему шрифту в строке 1.

.Bold = True – активируем параметр Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный).

 

            Пример 1.3.2

Rows(1)

Обращение к первой строке

Rows

Обращение ко всем строкам листа

Columns(1)

Обращение к столбцу 1

Columns(“A”)

Обращение к столбцу А. Columns(1) даст тот же результат, что и Columns(“A”), т.к. столбец А имеет порядковый номер 1

Columns

Обращение ко всем колонкам листа

 

            Для работы с разными строками или колонками одновременно, т.е. для создания гибкого мультиобъекта используют метод Union, который позволяет соединять обращения к свойствам Rows или Columns.

           

            Пример 1.3.3

            Следующая процедура позволяет выделить текст жирным одновременно в строках 2, 4, 6.

Public Sub DifferentRows()

            Worksheets(“Sheet1”).Activate

            Dim myUnion As Range

            Set myUnion = Union(Rows(2), Rows(4), Rows(6))

            myUnion.Font.Bold = True

End Sub

            Разбор кода:

Worksheets(“Sheet1”).Activate – указываем необходимый лист, например Sheet1 и с помощью .Activate переходим на этот лист.

Dim myUnion As Range – создаём объект, где myUnion – это название, Range – это тип объекта (в данном случае диапазон).

Set myUnion = Union(Rows(2), Rows(4), Rows(6)) – слово Set присваивает myUnion значения после знака «=». После знака «=» мы видим метод Union, который позволяет объединить несколько строк в один объект (как бы в одну группу). В данном случае объединятся строки 2, 4 и 6 (Rows(2), Rows(4), Rows(6)) в один объект под названием myUnion.

myUnion.Font.Bold = True – теперь, имея объект myUnion с типом Range, можно применять свойства и параметры подходящие к типу Range. Здесь мы выбираем свойство .Font (Шрифт) и далее активируем параметр .Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный).

 

            1.4 How to: Refer to Cells by Using Index Numbers. Обращение к ячейкам, используя индексный номер.

            Вы можете использовать свойство Cells для обращения к одной ячейке с помощью индексных номеров строки и столбца. Это свойство вернёт объект Range представленный одной ячейкой.

 

            Пример 1.4.1

            Следующая процедура присвоит ячейке B3, которая также имеет адрес R3C2, значение «5».

Public Sub Val5()

Worksheets(“Sheet1”).Cells(3,2).Value = 5

End Sub

            Разбор кода:

Worksheets(“Sheet1”) – указываем необходимый лист, например Sheet1.

.Cells(3,2) – обращаемся к ячейке B3(R3C2).

.Value – вызываем свойство Value и присваиваем ему с помощью знака «=» значение «5». То есть эта ячейка будет теперь содержать значение «5».

 

            Свойство Cells удобно использовать для перебора ячеек, т.к. можно подставить переменные вместо индексных номеров.

 

            Пример 1.4.2

            С помощью цикла For Next и индексных номеров запишем в ячейки C1(R1C3), C2(R2C3) и C3(R3C3) значения 1, 2 и 3 соответственно.

Public Sub Cycle1()

            Dim X As Integer

            For X = 1 To 3

            Worksheets(“Sheet1”).Cells(X,3).Value = X

            Next X

End Sub

            Разбор кода:

Dim X As Integer – объявляем переменную Х типа Integer.

For X = 1 To 3 применяем цикл For Next. Для начала прописываем слово For и указываем переменную X с количеством повторов цикла (в данном случае от 1 до 3, т.е. 3 повтора).

Worksheets(“Sheet1”).Cells(X,3).Value = X – здесь указываем лист с которым хотим работать (например Worksheets(“Sheet1”)), далее ячейку, но вместо индексного номера строки вставим переменную Х (т.е. .Cells(X,3)). Свойство Value с помощью знака «=» позволит присвоить ячейке с адресом (X,3) значение переменной Х (от 1 до 3, смотря какой повтор цикла).

Next X – выражение (состоящие из слова Next и переменной X), запускающее цикл на повтор (будет 3 повтора, т.к. X равен от 1 до 3, т.е. максимум 3).

В итоге работа цикла начнётся с переменной равной 1. То есть для первого шага цикла в ячейку R1C3 будет записано значение 1. На втором шаге цикла в ячейке R2C3 будет записано значение 2. На последнем третьем шаге в ячейку R3C3 будет записано значение 3. Далее процедура будет завершена.

 

            1.5 How to: Refer to Cells by Using Shortcut Notation. Обращение к ячейкам с использование короткой нотации.

            Вы можете использовать стиль ссылок «А1» или именованный диапазон без скобок в виде короткого варианта свойства Range. Можно не писать слово Range и не использовать кавычки.

 

            Пример 1.5.1

            В этой процедуре диапазон ячеек А1:В2 будет очищен от содержимого (от текста).

Public Sub ClRange()

            Worksheets(“Sheet1”).[A1:B2].ClearContents

End Sub

            Разбор кода:

Worksheets(“Sheet1”) – указываем необходимый лист, например Sheet1.

.[A1:B2] – эта конструкция собственно и заменяет стандартную конструкцию .Range(“A1:B2”), т.е. здесь мы обращаемся к диапазону ячеек А1:B2.

.ClearContents - метод с помощью которого мы удаляем содержимое из диапазона ячеек А1:B2.

 

            Пример 1.5.2

            В следующей процедуре, ячейкам в заранее созданном диапазоне и получившем имя MyRan, присваивается значение “1”.

Public Sub MyRValue()

[MyRan].Value = 1

End Sub

            Разбор кода:

[MyRan] – конструкция в кратком варианте. Например, я заранее присвоил имя MyRan для диапазона ячеек A1:B2 на листе Sheet1. И в данном случае конструкция [MyRan] равноценна конструкции Worksheets(“Sheet1”).Range(“A1:B2”)

.Value = 1 – с помощью слова Value присваиваем всем ячейкам диапазона MyRan (то есть всем ячейкам в диапазоне A1:B2) значение «1».

 

            1.6 How to: Refer to Cells Relative to other Cells. Обращение к ячейкам расположенных относительно других ячеек.

            Для работы с ячейкой расположенной относительно другой ячейки используют свойство Offset (смещение).

 

            Пример 1.6.1

            В этом примере выделим ячейку “D1” и далее в ячейку расположенную на 2 строки ниже и на 3 столбца левее (это уже будет ячейка “A3”) внесем значение «1». И затем эту ячейку отформатируем двойным подчёркиванием.

Public Sub RelCell()

Worksheets("Sheet1").Range("D1").Select

ActiveCell.Offset(2, -3).Value = 1

ActiveCell.Offset(2, -3).Font.Underline = xlDouble

End Sub

            Разбор кода:

Worksheets(“Sheet1”) – указываем необходимый лист, например «Sheet1».

.Range("D1") – указываем необходимуя ячейку, например «D1».

.Select – это свойство выделяют ячейку «D1» (выделение вручную кнопкой мыши ячейки «D1» приведёт к такому же результату).

ActiveCell – данное свойство говорит о том, что хотим работать с заранее выделенной ячейкой (у нас выделена ячейка «D1», значит с ней и будем работать)

.Offset(2, -3) – данное свойство указывает на сколько строк и столбцов надо сместиться, первый параметр указывает на сколько строк будет смещаться, в данном случае на 2 строки вниз (а если была бы цифра «-2», то смещение было бы вверх на две строки). Второй параметр «-3» указывает, что надо сместиться на 3 столбца влево (а если бы была цифра «3», то смещение было бы вправо на три столбца).

.Value = 1 – с помощью свойства Value записываем в текущую ячейку цифру “1”.

ActiveCell.Offset(2, -3).Font.Underline = xlDouble – то же самое, что на предыдущем шаге, только с помощью свойства .Font указываем, что хотим работать со шрифтом ячейки. А свойство .Underline позволит применить к содержимому ячейки подчёркивание и с помощью = xlDouble указываем, что подчеркивание будет двойным (слово xlDouble).

 

            Замечание! Вы можете записывать макросы с использованием свойства Offset, т.е. будут указываться относительные ссылки, вместо абсолютных ссылок (т.е. ссылок А1, С2 и т.д. не будет). Для этого на вкладке «Разработчик», надо нажать на кнопку «Относительные ссылки» (можно навести указатель мыши на эту кнопку и прочитать всплывающую подсказку).

            Для перебора ячеек в диапазоне используют свойство Cells и конструкцию For Next.

 

            Пример 1.6.2

            В этом примере заполним первые пять ячеек во втором столбце (столбце В) значениями увеличивающимися на 5 в каждой следующей ячейке, начиная с первой (в ней будет значение 5).

Public Sub CycleCells()

            Dim X As Integer

            For X = 1 to 5

            Worksheets(“Sheet1”).Cells(X,2).Value = X * 5

            Next X

End Sub

            Разбор кода:

Dim X As Integer – объявляем переменную Х типа Integer.

For X = 1 To 5 применяем цикл For Next. Для начала прописываем слово For и указываем переменную X с количеством повторов цикла (в данном случае от 1 до 5, т.е. 5 повторов).

Worksheets(“Sheet1”).Cells(X,2).Value = X * 5 – здесь указываем лист с которым хотим работать (например Worksheets(“Sheet1”)), далее ячейку, но вместо индексного номера строки вставим переменную Х (т.е. .Cells(X,2)). Свойство Value с помощью знака «=» позволит присвоить ячейке с адресом (X,2) значение переменной Х * 5 (значения будут от 5 до 25 (т.к. каждая цифра еще умножается на 5), смотря какой повтор цикла).

Next X – выражение (состоящие из слова Next и переменной X), запускающее цикл на повтор (будет 5 повторов, т.к. X равен от 1 до 5, т.е. максимум 5).

В итоге работа цикла начнётся с переменной равной 5 (т.е. 1 * 5 = 5). Получается для первого шага цикла в ячейку R1C2 будет записано значение 5 (т.к. 1*5=5), т.е. Worksheets(“Sheet1”).Cells(1,2).Value = 1 * 5. На втором шаге цикла в ячейке R2C2 будет записано значение 10 (т.к. 2*5=10), т.е. Worksheets(“Sheet1”).Cells(2,2).Value = 2 * 5. На третьем шаге R3C2 = 15 (т.к. 3*5=15). На четвёртом шаге R4C2 = 20 (т.к. 4*5=20). На пятом шаге R5C2 = 25 (т.к.5*5=25). Далее процедура завершится.

 

            1.7 How to: Refer to Cells By Using a Range Object. Обращение к ячейкам с использованием объекта Range в виде переменной.

            Если вы запишите в объектную переменную объект Range, то сможете манипулировать диапазоном через эту переменную.

 

            Пример 1.7.1

            Здесь создадим объектную переменную типа Range, назовём её MyRan и присвоим ей диапазон A1:A3. После этого мы сможем вместо указания диапазона указывать просто переменную и разумеется прописывать для этой переменной свойства и методы соответствующие объекту Range. Например, запишем в диапазон случайные числа и применим к шрифту форматирование курсивом.

Public Sub MyRanObj()

            Dim MyRan As Range

            Set MyRan = Worksheets(“Sheet1”).Range(“A1:A3”)

            MyRan.Formula = “=Rand()”

            MyRan.Font.Italic = True

End Sub

Разбор кода:

Dim MyRan As Range – с помощью слова Dim создаем объектную переменную (например MyRan) с типом Range.

Set MyRan = Worksheets(“Sheet1”).Range(“A1:A3”) – с помощью специального слова Set (которое необходимо применять при использовании переменных в виде объекта) присваиваем для MyRan диапазон «A1:A3», где Worksheets(“Sheet1”) – указываем необходимый лист, например «Sheet1», .Range("A1:A3") – указываем необходимую ячейку, например «A1:A3».

MyRan.Formula = “=Rand()” – работаем с переменной, как с объектом Range, например внесем во все ячейки диапазона формулу случайного числа “=Rand()”

MyRan.Font.Italic = True – для шрифта (Font) применим форматирование курсивом (Italic) c помощью знака «=» и слова True (а если написать False, то курсив наоборот был бы убран, при условии, что шрифт уже был с курсивом).

 

            1.8 How to: Refer to Named Ranges. Обращение к именованным диапазонам.

Диапазоны с именами удобнее, чем диапазоны в нотации «А1». Для присвоения имени необходимо выделить требуемый диапазон, затем слева от строки формул ввести имя диапазона вместо его адреса и нажать ENTER.

 

            Пример 1.8.1

В этом примере вызовем диапазон «MyRan» в книге “Test.xlsm” и отформатируем шрифт курсивом.

Public Sub MyRanItalic()

            Range(“Test.xlsm!MyRan”).Font.Italic = True

End Sub

            Разбор кода:

Range(“Test.xlsm!MyRan”) т.к. имеем именованный диапазон, то после слова Range указываем имя открытой книги “Test” с указанием расширения “.xlsm”, далее ставим «!» и пишем имя диапазона “MyRan”.

.Font.Italic = True – для шрифта (Font) применим форматирование курсивом (Italic) c помощью знака «=» и слова True (а если написать False, то курсив наоборот был бы убран, при условии, что шрифт уже был с курсивом).

 

            Пример 1.8.2

            Здесь обращаемся к именованному диапазону “MyRan”, который был создан для конкретного листа “Sheet1” в книге “Text.xlsm”. И выделяем этот диапазон тонкой границей.

Public Sub MyRanSheet()

Range([Test.xlsm]Sheet1!MyRan”).BorderAround Weight:=xlThin

End Sub

            Разбор кода:

Range(“[Test.xlsm]Sheet1!MyRan”) – т.к. в этом примере именованный диапазон создан только для листа “Sheet1”, то после слова Range сначала в квадратных скобках указываем имя открытой книги (например, [Test.xlsm]), затем пишем название книги (например, «Sheet1»), потом ставим восклицательный знак “!” и пишем имя диапазона (например, MyRan).

.BorderAround Weight:=xlThin – т.к. мы имеем объект типа Range, то с помощью метода .BorderAround (границы) сможем выделить диапазон границей, присвоив параметру Weight (толщина) значение xlThin (тонкая линия).

 

            Пример 1.8.3

            Для выделения именованного диапазона, используйте метод GoTo, который активирует книгу, затем лист и потом выделяет диапазон. Далее мы очистим диапазон от содержимого. Отметим, что именованный диапазон создан с доступом со всех листов (а не для конкретного листа).

Public Sub MyRanSelect()

Application.GoTo Reference:=“Test.xlsm!MyRan”

Selection.ClearContents

End Sub

            Разбор кода:

Application.GoTo Reference:=“Test.xlsm!MyRan” метод GoTo («перейти к») принадлежит объекту Application, далее указываем параметр Reference («ссылка»), для которого прописываем значение Test.xlsm!MyRan, т.е. имя книги и имя диапазона.

.Selection – метод («выделение»), указывающий о том, что будем работать с текущим выделением.

.ClearContents – метод («очистить содержимое») с помощью которого мы удаляем содержимое из ячеек диапазона MyRan.

 

            Пример 1.8.4

            Этот пример аналогичен примеру 1.8.3, но здесь книга уже должна быть активна.

Public Sub MyRanSelect2()

            Application.GoTo Reference:=”MyRan”

            Selection.ClearContents

End Sub

            Разбор кода:

Application.GoTo Reference:=“MyRan” метод GoTo («перейти к») принадлежит объекту Application («приложение»), далее указываем параметр Reference («ссылка»), для которого прописываем значение MyRan, т.е. имя диапазона.

.Selection – метод («выделение»), указывающий о том, что будем работать с текущим выделением.

.ClearContents – метод («очистить содержимое») с помощью которого мы удаляем содержимое из ячеек диапазона MyRan.

            Looping through cells in a named range. Перебор ячеек в именованном диапазоне.

 

         Пример 1.8.5

В этом примере, в заранее созданном именованном диапазоне MyRan (диапазон «A1:A3») введем случайные числа от 0 до 100. Далее переберём каждую ячейку диапазона, используя цикл For EachNext. И если значение ячейки будет превышать значение X, то сменим цвет заливки ячейки на желтый.

Public Sub Example185()

[MyRan].Value = “=Rand() * 100”

Const X As Integer = 50

Dim Y As Range

                        For Each Y In Range(“MyRan”)

                                   If Y.Value > X Then

                                   Y.Interior.ColorIndex = 27

                                   End If

                        Next Y

End Sub

            Разбор кода:

[MyRan] – конструкция в кратком варианте. Например, я заранее присвоил имя MyRan для диапазона ячеек A1:A3 на листе Sheet1. И в данном случае конструкция [MyRan] равноценна конструкции Worksheets(“Sheet1”).Range(“A1:A3”)

.Value = “=Rand() * 100” – с помощью свойства Value присваиваем всем ячейкам диапазона MyRan формулу случайного числа (Rand()) от 0 до 1 и умножаем на 100 (* 100), чтобы получить случайные числа от 0 до 100. Таким образом ячейки А1, А2, А3 будут заполнены случайными числами от 0 до 100.

Const X As Integer = 50 – здесь объявляем константу с именем X типа Integer, которая будет иметь неизменяющееся значение 50. Константы служат для объявления какого-нибудь постоянного значения, которое не должно меняться.

Dim Y As Range – объявляем переменную Y объектного типа Range, к которой сможем применять методы и свойства соответствующие объекту Range.

For Each Y In Range(“MyRan”) – объявляем цикл For Each Next, где на каждом повторе цикла каждое значение Y будет приравниваться соответствующему значению ячейки в диапазоне MyRan и дальше будет проверятся на определенное условие. То есть на первом повторе значение Y будет равно числу из ячейки A1, на втором - А2, на третьем - А3. Количество повторов равно количеству ячеек в диапазоне.

If Y.Value > X Then Y.Interior.ColorIndex = 27 End If – вот собственно и условие, которое представлено конструкцией If Then. В нём говорится, что на каждом повторе цикла: если (If) значение ячейки (Y.Value) больше значения X, то (Then, после этого слова лучше писать код с новой строки) для этой ячейки (Y) применить заливку (.Interior) желтого цвета (.ColorIndex = 27). И потом закрываем эту конструкцию словами End If.

Next Y – выражение (состоящее из слова Next и переменной Y), запускающее цикл на повтор (будет 3 повтора, т.к. Y была связана с диапазоном MyRan в качестве значения каждой ячейки, а ячеек в диапазоне три).

 

            1.9 How to: Refer to Multiple Ranges. Обращение к нескольким диапазонам.

Используя подходящий метод, можно обращаться одновременно к нескольким диапазонам. Используйте методы Range (“диапазон”) и Union (“объединение”) для работы с группой диапазонов. Также используйте свойство Areas (“области”) для работы с группой выделений на рабочем листе.

 

            Using the Range Property. Использование свойства Range.

Вы можете обращаться к нескольким диапазонам одновременно с помощью свойства Range путём вставки запятых между двумя и более ссылками (адресами) диапазонов.

 

            Пример 1.9.1

Очистим на листе “Sheet1” диапазоны A1:A3, B1:B3, C1:C3 от содержимого.

Public Sub Example191()

            Worksheets(“Sheet1”).Range(“A1:A3, B1:B3, C1:C3”).ClearContents

End Sub

            Разбор кода:

Worksheets(“Sheet1”) – указываем необходимый лист, например Sheet1.

.Range(“A1:A3, B1:B3, C1:C3”) соединяем диапазоны A1:A3, B1:B3, C1:C3.

.ClearContents – очищаем все три диапазона от содержимого.

            Именованные диапазоны еще больше облегчают использование свойства Range для работы с группой диапазонов

 

            Пример 1.9.2

            В этом примере одновременно очистим заранее созданные (для всех листов книги) именованные диапазоны RanA, RanB, RanC.

Public Sub Example192()

            Range(“RanA, RanB, RanC”).ClearContents

End Sub

            Разбор кода:

Range(“RanA, RanB, RanC”) соединяем диапазоны RanA, RanB, RanC.

.ClearContents – очищаем все три диапазона от содержимого.

 

            Using the Union Method. Использование метода Union (“объединение”).

            Вы можете объединить несколько диапазонов в один объект Range, используя метод Union.

 

            Пример 1.9.3

            В этом примере создадим объект Range с названием RanX, который будет состоять из диапазонов A1:A3 и B1:B3. Далее применим к шрифту объекта RanX жирное выделение. То есть все значения в ячейках диапазонов A1:A3 и B1:B3 будут иметь жирный шрифт.

Public Sub Example193()

            Dim r1, r2, RanX As Range

            Set r1 = Sheets(“Sheet1”).Range(“A1:A3”)

            Set r2 = Sheets(“Sheet1”).Range(“B1:B3”)

            Set RanX = Union(r1, r2)

            RanX.Font.Bold = True

End Sub

Разбор кода:

Dim r1, r2, RanX As Range создаём объектные переменные типа Range.

Set r1 = Sheets(“Sheet1”).Range(“A1:A3”) – с помощью слова Set (применяется к объектным переменным) привязываем к переменной r1 диапазон “A1:A3” расположенный на листе “Sheet1”.

Set r2 = Sheets(“Sheet1”).Range(“B1:B3”) - с помощью слова Set (применяется к объектным переменным) привязываем к переменной r2 диапазон “B1:B3” расположенный на листе “Sheet1”.

Set RanX = Union(r1, r2) - слово Set присваивает RanX после знака «=» диапазоны. После знака «=» мы видим метод Union, который позволяет объединить несколько диапазонов (в нашем случае r1 и r2) в  один объект (как бы в одну группу под названием RanX).

RanX.Font.Bold = Trueтеперь, имея объект RanX с типом Range, можно применять свойства и параметры подходящие к типу Range. Здесь мы выбираем свойство .Font (Шрифт) и далее активируем параметр .Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный). В итоге в ячейках в диапазонах A1:A3 и B1:B3 будет жирный шрифт.

 

            Using the Areas Property. Использование свойства Areas (“области”).

         Вы можете использовать свойство Areas для обращения к выделенному диапазону (области) или к группе выделенных диапазонов (областей).

 

            Пример 1.9.4

            В этом примере подсчитывается количество выделенных областей (например, с зажатой клавишей Ctrl можно мышью выделить диапазоны A1:A3, B5:B7, C1:C3, т.е. будет выделено три области (диапазона)) и если всё выделенное вами содержит в себе больше выделенных областей, чем 1, то выведется сообщение.

Public Sub Example194()

If Selection.Areas.Count > 1 Then

MsgBox Warning! Multiple Selection. Some operations can`t work with multiple selection.

            End If

End Sub

Разбор кода:

If Selection.Areas.Count > 1 Then здесь применяется конструкция If Then, т.е если (If) наше выделение (Selection) содержит в себе областей (.Areas) в количестве (.Count) более 1 (>1), тогда (Then) выполним следующий шаг.

MsgBoxWarning! Multiple Selection. Some operations cant work with multiple selection.” – вот собственно и сам шаг, который состоит из функции MsgBox, которая выводит окно с сообщением, текст сообщения необходимо написать в кавычках после MsgBox, например в этом сообщении написано «Внимание! Множественное выделение. Некоторые операции нельзя применить к множественному выделению».

End If – данными словами закрываем конструкцию If Then.

 

            2.0  Looping Through a Range of Cells. Перебор ячеек в диапазоне.

            При использовании Visual Basic часто приходится применять одинаковые действия к каждой ячейке в диапазоне ячеек. Для выполнения таких действий, можно объединять операторы перебора и один или несколько методов для каждой ячейки по очереди.

            Например, можно перебирать ячейки с помощью цикла ForNext и свойства Cells (“ячейки”).

            Используя свойство Cells, вы можете заменить счётчик цикла (или переменную, или выражение) на индексный номер ячейки.

 

            Пример 2.0.1

            В этом примере переменную X вставим вместо номера строки. Процедура переберёт ячейки диапазона A1:A3 и если абсолютное значение ячейки меньше 0,01, то значение этой ячейки заменится на 0.

Public Sub Example201()

Dim yCell As Range

            Dim X As Integer

            For X = 1 To 3

            Set yCell = Worksheets("Sheet1").Cells(X, 1)

                        If Abs(yCell) < 0.01 Then

                        yCell.Value = 0

                        End If

            Next X

End Sub

            Разбор кода:

Dim yCell As Range – объявляем объектную переменную yCell типа Range, которая будет принимать значения ячейки диапазона и к которой можно будет применить свойства характерные для объекта Range.

Dim X As Integer – переменная Х типа Integer, которая будет служить счетчиком повторов цикла

For X = 1 To 3 объявляем цикл For… Next и указываем, что количество повторов цикла будет 3 (X = 1 To 3).

Set yCell = Worksheets("Sheet1").Cells(X, 1) – с помощью специального слова Set (которое необходимо применять при использовании переменных в виде объекта) присваиваем для yCell значение ячейки Cells(X, 1), где Worksheets(“Sheet1”) – указываем необходимый лист, например «Sheet1», .Cells(X, 1) – указываем необходимую ячейку, но номер строки заменим на X. И например, на первом повторе цикла X = 1, тогда адрес ячейки будет (1,1), для второго повтора X = 2, тогда адрес ячейки будет (2,1) и на третьем повторе цикла адрес ячейки будет (3,1).

If Abs(yCell) < 0.01 Then – вставляем внутрь цикла конструкцию If Then, которая говорит, что если (If) абсолютное значение (Abs) ячейки (yCell) меньше (<) 0.01, тогда (Then) выполнить следующее действие. Например, на первом повторе будет проверяться значение ячейки с адресом (1,1).

yCell.Value = 0 – вот само действие, которое заменит значение (.Value) ячейки (записанной в yCell) на 0.

End If – данными словами закрываем конструкцию If Then.

Next X - выражение (состоящее из слова Next и переменной X), запускающее цикл на повтор (будет 3 повтора, т.к. количество повторов для X указано от 1 до 3 включительно (For X = 1 To 3)).

           

Еще проще перебрать диапазон с помощью цикла For Each… Next и свойства Range. Visual Basic автоматически присвоит объектную переменную каждой ячейке при выполнении цикла.

 

            Пример 2.0.2

            Пример аналогичен 2.0.1 только применим цикл For EachNext.

Public Sub Example202()

            Dim X As Range

            For Each X In Worksheets(“Sheet1”).Range(“A1:A3”).Cells

                        If Abs(X.value) < 0.01 Then

                        X.Value = 0

                        End if

            Next

End Sub

            Разбор кода:

Dim X As Range – объявляем объектную переменную X типа Range, которая будет принимать значения ячейки диапазона и к которой можно будет применить свойства характерные для объекта Range.

For Each X In Worksheets(“Sheet1”).Range(“A1:A3”).Cells запускаем цикл For Each… Next, который как бы говорит, что для каждого X равное на листе (Worksheets(“Sheet1”)) в диапазоне .Range(“A1:A3”) в соответствующей ячейке (.Cells) применить действия в строках кода ниже. Отметим, что данным цикл удобнее тем, что он автоматически повторится столько раз, сколько ячеек в диапазоне, в нашем случае три (A1, A2, A3).

If Abs(X.value) < 0.01 Then - вставляем внутрь цикла конструкцию If Then, которая говорит, что если (If) абсолютное значение (Abs) ячейки (X) меньше (<) 0.01, тогда (Then) выполнить следующее действие. Например, на первом повторе будет проверяться значение ячейки с адресом A1, на втором повторе проверим ячейку A2, на третьем повторе – ячейку A3.

X.Value = 0 - вот само действие, которое изменит значение (.Value) ячейки (записанное в X) на 0.

End If – данными словами закрываем конструкцию If Then.

Next – закрываем цикл и запускаем на повторение (будет три повтора).

           

            Если вы не знаете границ диапазона, который хотите перебрать, вы можете использовать свойство CurrentRegion (“текущий регион”), который позволит работать с диапазоном ячеек вокруг активной ячейки. Обрабатываться будут все непустые ячейки вокруг активной ячейки, а также ячейки, примыкающие к этим непустым ячейкам. Обработка пустых ячеек показана после примера в виде рисунков.

 

            Пример 2.0.3

            В этом примере на заранее активированном листе будет перебран диапазон ячеек и для ячеек, абсолютное значение которых будет меньше 0,01, изменится значение на 0.

Public Sub Example203()

            Dim X As Range

                        For Each X In ActiveCell.CurrentRegion.Cells

                        If Abs(X.Value) < 0.01 Then

                        X.Value = 0

                        End If

            Next

End Sub

            Разбор кода:

Dim X As Range – объявляем объектную переменную X типа Range, которая будет принимать значения ячейки диапазона и к которой можно будет применить свойства характерные для объекта Range.

For Each X In ActiveCell.CurrentRegion.Cells запускаем цикл For Each… Next, здесь говорится, что для каждого (For Each) X (количество повторов цикла будет равно количеству ячеек в диапазоне) в (In) диапазоне ячеек вокруг (.CurrentRegion.Cells) текущей ячейки (ActiveCell) необходимо выполнить действия в следующих строках.

If Abs(X.value) < 0.01 Then - вставляем внутрь цикла конструкцию If Then, которая говорит, что если (If) абсолютное значение (Abs) ячейки (X) меньше (<) 0.01, тогда (Then) выполнить следующее действие.

X.Value = 0 - вот само действие, которое изменит значение (.Value) ячейки (записанное в X) на 0.

End If – данными словами закрываем конструкцию If Then.

Next – закрываем цикл и запускаем на повторение (повторов будет столько, сколько ячеек в диапазоне).

Результаты данного примера для различных диапазонов:

1)

 

2)

 

3) Здесь полностью отделим диапазон активной ячейки пустыми ячейками и тогда другие ячейки листа не изменятся.

 

4)

 

            2.1  Selecting and Activating Cells. Выбор и активация ячеек.

При работе в Excel обычно выделяют ячейку или ячейки, а затем выполняют действия над ними такие, как форматирование ячеек или внесение данных в них. В VBA обычно нет необходимости выделять ячейки перед их изменением.

 

            Пример 2.1.1

Если вы хотите ввести формулу в ячейку “A2”, используя VBA, то можете не выделять её. Просто используйте объект Range для этой ячейке и с помощью свойства Formula введите необходимую формулу (например формулу суммирования значений в диапазоне (C1:C3).

Public Sub Example211()

Worksheets(“Sheet1”).Range(“A2”).Formula = “=SUM(C1:C3)”

End Sub

            Разбор кода:

Worksheets (“Sheet1”) - здесь мы вызываем коллекцию Worksheets (Рабочие листы), в которой в скобках и кавычках указываем название листа с которым хотим работать, т.е. “Sheet1” (можно прописать любое название листа из вашей книги, например Лист1 или Лист2).

.Range(“A2”) – здесь указываем требуемый диапазон, в данном случае диапазон из одной ячейки «A2».

.Formula – с помощью данного свойства и знака «=» записываем в «A2» формулу в том виде, в каком обычно вписываем формулы в ячейки (например, =SUM(C1:C3)).

           

            Другие примеры обработки ячеек без их выделения смотрите в теме How to: Reference Cells and Ranges. Обращение к ячейкам и диапазонам.

 

            Using the Select Method and the Selection Property. Использование метода Select и свойства Selection.

         Метод Select («выбрать») активирует листы и объекты на листах. Свойство Selection («выбранное») возвращает объект, представленный текущим выделением на активном листе в активной книге.

            Прежде чем использовать свойство Selection, необходимо активировать книгу, потом активировать или выбрать лист, а затем выделить диапазон (или другой объект) с помощью метода Select.

            Макрорекордер часто создаёт макрос, использующий метод Select и свойство Selection.

 

            Пример 2.1.2

            Эта процедура, созданная макрорекордером, иллюстрирует, как Select и Selection работают вместе. Внесём в ячейку А1 текст «Name», а в ячейку B1 текст «Address». Затем для диапазона A1:B1 отформатируем шрифт жирным.

Public Sub Example212()

Sheets(“Sheet1”).Select

Range(“A1”).Select

ActiveCell.FormulaR1C1 = “Name”

Range(“B1”).Select

ActiveCell.FormulaR1C1 = “Address”

Range(“A1:B1”).Select

Selection.Font.Bold = True

End Sub

            Разбор кода:

Sheets(“Sheet1”).Select – для начала с помощью .Select выбираем лист Sheet1 из коллекции Sheets.

Range(“A1”).Select выбираем (.Select) ячейку A1 (Range(“A1”)).

ActiveCell.FormulaR1C1 = “Name” и теперь для активной ячейки (ActiveCell) выберем свойство .FormulaR1C1 чтобы внести в эту ячейку текст «Name».

Range(“B1”).Select выбираем (.Select) ячейку B1 (Range(“B1”)).

ActiveCell.FormulaR1C1 = “Address”и теперь для активной ячейки (ActiveCell) выберем свойство .FormulaR1C1 чтобы внести в эту ячейку текст « Address».

Range(“A1:B1”).Select выделяем (.Select) диапазон (Range) “A1:B1”.

Selection – обращаемся к диапазону A1:B1, который мы выделили.

.Font – это свойство «Шрифт» указывает на то, что будем обращаться ко всему шрифту в диапазоне A1:B1.

.Bold = True – активируем параметр Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный).

 

            Пример 2.1.3

            В этом примере выполняется та же задача, что и в примере 2.1.2, но без активации или выбора рабочего листа или ячеек.

Public Sub Example213()

            With Worksheets(“Sheet1”)

                        .Range(“A1”) = “Name”

                        .Range(“B1”) = “Address”

                        .Range(“A1:B1”).Font.Bold = True

            End With

End Sub

            Разбор кода:

With Worksheets(“Sheet1”) – в этой строке, чтобы далее по много раз не писать Worksheets("Sheet1") мы написали слово With которое позволяет запомнить фразу после слова With и на следующих строках больше её не писать. После того как закончите работать с фразой, необходимо написать End With.

.Range(“A1”) = “Name” присваиваем ячейке A1 текст “Name”.

.Range(“B1”) = “Address” - присваиваем ячейке A1 текст “Address”.       

.Range(“A1:B1”) – указываем необходимый диапазон, в нашем случае A1:B1.

.Font – это свойство «Шрифт» указывает на то, что будем обращаться ко всему шрифту в диапазоне A1:B1.

.Bold = True – активируем параметр Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный).

           

            Selecting Cells on the Active Worksheet. Выделение ячеек на активном листе.

         Если вы используете метод Select для выбора ячеек, то помните, что этот метод работает только на активном листе. Если вы запускаете процедуру из модуля и предварительно не активировали лист, то при использовании метода Select появится ошибка.

 

            Пример 2.1.4

            Эта процедура копирует строку 1 с листа “Sheet1” на лист “Sheet2”.

Public Sub Example214()

            Worksheets(“Sheet1”).Rows(1).Copy

            Worksheets(“Sheet2”).Select

            Worksheets(“Sheet2”).Rows(1).Select

            Worksheets(“Sheet2”).Paste

End Sub

            Разбор кода:

Worksheets(“Sheet1”).Rows(1).Copy указываем лист (Worksheets(“Sheet1”)), затем обращаемся к первой строке (.Rows(1)). Далее копируем (.Copy) строку.

Worksheets(“Sheet2”).Select выбираем (.Select) другой лист (Worksheets(“Sheet2”)).

Worksheets(“Sheet2”).Rows(1).Select - указываем лист (Worksheets(“Sheet2”)), затем обращаемся к первой строке (.Rows(1)) и выделяем её (.Select).

Worksheets(“Sheet2”).Paste – указываем лист (Worksheets(“Sheet2”)) и вставляем (.Paste) в заранее выделенную строку первую строку из листа Sheet1.

 

            Activating a Cell Within a Selection. Активация ячейки внутри выделения.

            Вы можете использовать метод Activate для активации ячейки внутри выделения. Причём можно активировать только одну ячейку, даже когда выделенный диапазон содержит несколько ячеек.

 

            Пример 2.1.5

            Эта процедура выделяет диапазон “A1:C3” и затем активирует ячейку “B1” внутри выделенного, не изменяя выделение.

Public Sub Example215()

            Worksheets(“Sheet1”).Activate

            Range(“A1:C3”).Select

            Range(“B1”).Activate

End Sub

            Разбор кода:

Worksheets(“Sheet1”).Activate обращаемся к листу (Worksheets(“Sheet1”)) и активируем его (.Activate).

Range(“A1:C3”).Select указываем диапазон (Range(“A1:C3”)) и выделяем его (.Select).

Range(“B1”).Activate указываем ячейку (Range(“B1”)) и активируем её (.Activate).

 

            2.2  Working with 3-D Ranges. Работа с 3-D диапазонами.

Если вы работаете с одним и тем же диапазоном на нескольких листах, то используйте функцию Array для выбора этих листов.

 

            Пример 2.2.1

В этом примере для 3-D диапазона «A1:B2» на листах Sheet1, Sheet2 и Sheet3 нарисуем границы.

Public Sub Example221()

            Sheets(Array(“Sheet1”, “Sheet2”, “Sheet3”)).Select

            Range(“A1:B2”).Select

            Selection.Borders(xlBottom).LineStyle = xlDouble

End Sub

            Разбор кода:

Sheets(Array(“Sheet1”, “Sheet2”, “Sheet3”)).Select для объекта (Sheets) сначала указываем массив (Array) листов (“Sheet1”, “Sheet2”, “Sheet3”) и далее выделяем их (.Select).

Range(“A1:B2”).Select – указываем необходимый диапазон (Range(“A1:B2”)) и выделяем его (.Select).

Selection – обращаемся к выделенному, т.е. нашему диапазону.

.Borders(xlBottom) – для свойства .Borders («границы») указываем параметр xlBottom («нижняя граница»).

.LineStyle = xlDouble – и теперь с помощью свойства .LineStyle («стиль линии») и знака «=» указываем, что линия должна быть двойная (xlDouble).

 

            Пример 2.2.2

            В этом примере применяется метод FillAcrossSheets («заполнить листы») для переноса форматирования и других данных из диапазона «A1:B2» на листе «Sheet1» в диапазоны всех остальных листов активной книги. Сначала нарисуем границы для диапазона «A1:B2» на листе “Sheet1”, а затем сделаем эту операцию для таких же диапазонов на всех листах книги.

Public Sub Example222()

Worksheets(“Sheet1”).Range(“A1:B2”).Borders(xlBottom).LineStyle = xlDouble

Worksheets.FillAcrossSheets (Worksheets(“Sheet1”).Range(“A1:B2”))

End Sub

            Разбор кода:

Worksheets(“Sheet1”).Range(“A1:B2”) обращаемся к листу (Worksheets(“Sheet1”)), затем указываем необходимый диапазон (.Range(“A1:B2”)).

.Borders(xlBottom) – для свойства .Borders («границы») указываем параметр xlBottom («нижняя граница»).

.LineStyle = xlDouble – и теперь с помощью свойства .LineStyle («стиль линии») и знака «=» указываем, что линия должна быть двойная (xlDouble).

Worksheets.FillAcrossSheets – для объекта Worksheets выбираем метод .FillAcrossSheets

(Worksheets(“Sheet1”).Range(“A1:B2”)) – после метода .FillAcrossSheets ставим пробел и указываем месторасположение диапазона (Worksheets(“Sheet1”).Range(“A1:B2”)), который хотим перенести на все листы.

 

            2.3  Working with the Active Cell. Работа с активной ячейкой.

            Свойство ActiveCell возвращает объект Range, представленный этой активной ячейкой. Вы можете применять свойства и методы, характерные для объекта Range, к активной ячейке.

 

            Пример 2.3.1

            В этом примере для активной ячейки внесём значение «10».

Public Sub Example231()

            Worksheets(“Sheet1”).Activate

            ActiveCell.Value = 10

End Sub

            Разбор кода:

Worksheets(“Sheet1”).Activate указываем лист (Worksheets(“Sheet1”)), который хотим активировать (.Activate).

ActiveCell.Value = 10 – для активной ячейки (ActiveCell) применяем свойство (.Value), чтобы записать в ячейку значение «10».

 

            Примечание! Вы можете работать с активной ячейкой только после того, как активировали лист.

 

            Moving the Active cell. Сдвиг активной ячейки.

            Вы можете использовать метод Activate («активировать»), чтобы сделать ячейку активной.

 

            Пример 2.3.2

            Сделаем ячейку A3 активной и отформатируем шрифт в ней жирным.

Public Sub Example232()

            Worksheets(“Sheet1”).Activate

            Worksheets(“Sheet1”).Range(“A3”).Activate

            ActiveCell.Font.Bold = True

End Sub

Разбор кода:

Worksheets(“Sheet1”).Activate - указываем лист (Worksheets(“Sheet1”)), который активируем (.Activate).

Worksheets(“Sheet1”).Range(“A3”).Activate активируем (.Activate) ячейку (.Range(“A3”)) на листе (Worksheets(“Sheet1”)).

ActiveCell – применяем свойство ActiveCell для работы с активной ячейкой.

.Font – это свойство «Шрифт» указывает на то, что будем обращаться ко всему шрифту в диапазоне A1:B1.

.Bold = True – активируем параметр Bold (жирный) с помощью слова True (истина). А если будет False (ложь), то жирность шрифта была бы убрана (если шрифт уже был жирный).

 

            Примечание! Для выбора диапазона ячеек используйте метод Select. Чтобы сделать одну ячейку активной используйте метод Activate.

 

            Вы можете использовать свойство Offset для сдвига активной ячейки.

           

            Пример 2.3.3

            В этом примере вставим текст (например “Hello”) в активную ячейку (“A1”) выделенного диапазона (“A1:B2”) и затем сделаем активной ячейку, находящуюся справа от активной, без снятия выделения.

Public Sub Example233()

            Worksheets(“Sheet1”).Activate

            Range(“A1:B2”).Select

            ActiveCell.Value = “Hello!”

            ActiveCell.Offset(0, 1).Activate

End Sub

Разбор кода:

Worksheets(“Sheet1”).Activate - указываем лист (Worksheets(“Sheet1”)), который активируем (.Activate).

Range(“A1:B2”).Select указываем диапазон (Range(“A1:B2”)) и выделяем его (.Select).

ActiveCell.Value = “Hello!”для активной ячейки (ActiveCell) применяем свойство (.Value), чтобы записать в ячейку значение “Hello!”.

ActiveCell – данное свойство говорит о том, что хотим работать с заранее выделенной ячейкой (у нас выделена ячейка «B2», значит с ней и будем работать)

.Offset(0, 1) – данное свойство указывает, на сколько строк и столбцов надо сместиться, первый параметр указывает, на сколько строк будет смещаться, в данном случае на 0 строк вниз (а если была бы цифра «-1», то смещение было бы вверх на 1 строку). Второй параметр «1» указывает, что надо сместиться на 1 столбец вправо (а если бы была цифра «-1», то смещение было бы влево на 1 столбец).

 

            Selecting the Cells Surrounding the Active Cell. Выбор ячеек окружающих активную ячейку.

            Свойство CurrentRegion («текущий регион») возвращает диапазон ячеек, ограниченный пустыми строками и столбцами.

 

            Пример 2.3.4

            В этом примере выделим все ячейки, которые примыкают к активной ячейке и содержат данные. Новый диапазон отформатируем числовым форматом «Финансовый» («Currency»).

Public Sub Example234()

            Worksheets(“Sheet1”).Activate

            ActiveCell.CurrentRegion.Select

            Selection.Style = “Currency”

End Sub

            Разбор кода:

Worksheets(“Sheet1”).Activate - указываем лист (Worksheets(“Sheet1”)), который активируем (.Activate).

ActiveCell.CurrentRegion.Select для активной ячейки (ActiveCell) укажем область её окружающую (.CurrentRegion) и выделим её (.Select).

Selection.Style = “Currency” для выделенного (Selection) применим формат (.Style) «Финансовый» (= “Currency”).

 

            2.4  Cell Error Values. Значения ошибок в ячейках.

           

            Вы можете вставить значение ошибки ячейки в саму ячейку или протестировать содержимое ячейки на наличие ошибок, используя CVErr функцию. Значения ошибок соответствуют константам xlCVError.

Константа

Номер ошибки

Значение

xlErrDiv0

2007

#DIV/0!    #ДЕЛ/0!

xlErrNA

2042

#N/A   #Н/Д

xlErrName

2029

#NAME?   #ИМЯ?

xlErrNull

2000

#NULL!   #ПУСТО!

xlErrNum

2036

#NUM!   #ЧИСЛО!

xlErrRef

2023

#REF!   #ССЫЛКА!

xlErrValue

2015

#VALUE!   #ЗНАЧ!

 

            Пример 2.4.1

            В этом примере вставим в диапазон A1:A7 на листе Sheet1. Все семь значений ошибок.

Public Sub Example241()

            Dim myArray() As Variant

            myArray() = Array (xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum, xlErrRef, xlErrValue)

Dim i As Integer

            For i = 1 to 7

                        Worksheets(“Sheet1”).Cells(i, 1).Value = CVErr(myArray(i-1))

            Next i

End Sub

            Разбор кода:

Dim myArray() As Variant объявляем (Dim) массив с названием (myArray()) типа (Variant).

myArray() = Array (xlErrDiv0, xlErrNA, xlErrName, xlErrNull, xlErrNum, xlErrRef, xlErrValue) в объявленный массив myArray() с помощью функции (Array) вносим константы ошибок.

For i = 1 to 7 объявляем цикл For… Next, с количеством повторов 7.

Worksheets(“Sheet1”).Cells(i, 1).Value = CVErr(myArray(i-1)) – вставляем внутрь цикла операцию которая будет выполняться. В данном случае на листе (Worksheets(“Sheet1”)) в ячейки (.Cells(i, 1), где вместо i будет вставляться цифра, соответствующая повтору цикла (на первом повторе – цифра 1, на втором – 2 и т.д.)) в значение (.Value) вставим функцию проверки ошибок (CVErr) для значений из массива (myArray(i-1), отметим, что i-1 это значение массива для определённого шага, но вычитаем 1, т.к. логически очерёдность значений в массиве начинается с 0, а не с 1, поэтому чтобы для первого повтора цикла взять первое значение из массива приходится вычесть 1, чтобы получить 0, т.е. первое значение из массива).

Next i – закрываем цикл и запускаем его на повтор.

           

            Пример 2.4.2

            На дисплее появится сообщение с именем ошибки, если ячейка содержит ошибку. Вы можете использовать этот пример, как шаблон для обработки ошибок. Если ошибок в ячейке нет, то всплывёт сообщение «Нет ошибок».

Public Sub Example242()

            If IsError(ActiveCell.Value) Then

            Dim Errname As Variant

            Errname = ActiveCell.Value

                        Select Case Errname

                        Case CVErr(xlErrDiv0)

                                    MsgBox “#DIV/0! Error”

                        Case CVErr(xlErrNA)

                                   MsgBox “#N/A Error”

                        Case CVErr(xlErrName)

                                   MsgBox “#NAME? Error”

                        Case CVErr(xlErrNull)

                                   MsgBox “#NULL! Error”

                        Case CVErr(xlErrNum)

                                   MsgBox “#NUM! Error”

                        Case CVErr(xlErrRef)

                                   MsgBox “#Ref! Error”

                        Case CVErr(xlErrValue)

                                   MsgBox “#Value! Error”

                        Case Else

                        MsgBox “Нет ошибок

                        End Select

            End If

End Sub

            Разбор кода:

If IsError(ActiveCell.Value) Then вводим конструкцию IfThen, которая говорит, что если (If) функция проверки на ошибку (IsError) для значения (.Value) в активной ячейке (ActiveCell) обнаружит ошибку, то выполнять действия после слова (Then).

Dim Errname As Variant объявляем переменную Errname типа Variant.

Errname = ActiveCell.Value присваиваем переменной (Errname =) значение (.Value) активной ячейки (ActiveCell).

Select Case Errname пишем конструкцию Select Case, для проверки значения Errname.

Case CVErr(xlErrDiv0) – вот и проверка с помощью специального слова Case. Если Errname равно значению CVErr(xlErrDiv0), то выполнять следующую строку кода.

MsgBox “#DIV/0! Error– вот строка кода, которая будет выполняться, т.е. функция MsgBox выведет нам на экран сообщение “#DIV/0! Error”.

Для всех остальных Case логика такая же.

Case Else – эта конструкция говорит, что если все предыдущие Case не дадут логическое ИСТИНА, (т.е. будут неверны или можно сказать приведут к ответу «нет»), то следует выполнить следующую строку кода.

MsgBox “Нет ошибок” – в данном случае эта строка кода с помощью функции MsgBox выведет на экран сообщение «Нет ошибок».

End Select закрываем конструкцию Select Case.

End If – закрываем конструкцию IfThen.

Комментарии   

0 # agapikifudey 08.06.2021 03:24
Eluyxo: http://slkjfdf.net/ Ecezij cvz.dqpo.economist24.ru.bik.wo http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # obleqop 08.06.2021 03:17
Awhuiv: http://slkjfdf.net/ Hoxemu apt.znfb.economist24.ru.zln.xm http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # ilezojuz 08.06.2021 03:11
Yuzavuegu: http://slkjfdf.net/ Etexuao icc.nlsj.economist24.ru.srr.fx http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # apaesaxeexa 08.06.2021 03:04
Odimiyev: http://slkjfdf.net/ Anulomc buw.bdxu.economist24.ru.gkf.at http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # YuriyOlegovich 28.05.2021 01:51
Доброго утра!
Выполняем лучшие прогоны, чтобы "убить" сайт конкурентов. Стоимость: от 2000 руб.
- Гарантированный результат. Веб-сайты точно "умрут".
- Максимальное количество негативных фитбеков.
- Наша особая база - выжимка максимально сильных площадок из 10 000 000 ресурсов (порно, вирусы, спамные и тому подобные). Это действует бесперебойно.
- Прогон осуществляем сразу с 4-х серверов.
- Постоянный спам активационных ссылок на e-mail.
- Растянем по времени сколько угодно.
- Прогоняем с запретными ключами.
- При 2-ух заказах - отличные скидки.

Цена 80$
Полная отчётность.
Оплата: Киви, Yandex.Money, Bitcoin, Visa, MasterCard...

Телега: @exrumer
Skype: xrumer.pro
WhatsApp: +7(977)536-08-36
электронка:

Работаем со Студиями!
Ответить | Ответить с цитатой | Цитировать
0 # Иван 26.05.2021 11:32
Здравствуйте!
Вывод средств из под блока по 115 фз, в двухнедельный срок для среднестатистического случая!

Интересуют подробности?
Свяжитесь с нами, предоставим подробную информацию!
E-mail:
Тел: +79654253210
Ответить | Ответить с цитатой | Цитировать
0 # Amyhek 24.05.2021 08:53
Go ahead, have sex on the first date
http://dreamafeltreadro.ga/chk/59
Ответить | Ответить с цитатой | Цитировать
0 # Alina 17.05.2021 01:57
Продвигайте свои сайты, товары и услуги бесплатно с новой мега сетью https://revo.top/537886
Никаких подводных камней.Новая быстрорастущая сеть, которая позволит Вам не только продвигать свои проекты но и зарабатывать на этом!
Уделите одну минуту на ознакомление - Вы точно ниего не потеряете! https://revo.top/537886
Ответить | Ответить с цитатой | Цитировать
0 # AlekseyTarasov 13.05.2021 06:36
Всегда рады предложить лучшие услуги на рынке:
"Быстрая ликвидация онлайн-ресурсов конкурента!"
Каким способом это возможно осуществить?!
- У нас опыт - больше 10 лет.
- Используем секретные методы.
- Наращивание серьезной ссылочной массы посредством порно и вирусных ссылок.
- Любые поисковые системы быстро реагируют на наши базы.
- Все размещенные тексты на сайте спамятся, что сразу делает их неуникальными.
- У наших экспертов большие возможности и долгий практический опыт в этом направлении.

Цена $80
Полная отчётность.
Оплата: Киви, Yandex.Money, Bitcoin, Visa, MasterCard...

Телега: @exrumer
Skype: xrumer.pro
WhatsApp: +7(977)536-08-36
электронка:

Работаем со Студиями!
Ответить | Ответить с цитатой | Цитировать
0 # Владимир 11.05.2021 17:04
Здравствуйте!
Заботитесь о своем здоровье?
Посмотрите короткое видео и узнайте за 3 минуты, чего Вам не хватало до сих пор!
https://www.youtube.com/watch?v=VTXSCquX11o
Ответить | Ответить с цитатой | Цитировать
0 # PetrValerevich 09.05.2021 19:42
Можем предложить вам лучшие услуги на сегодняшнем рынке:
"Быстрое устранение онлайн-сайтов ваших конкурентов!"
Каким методом это делают наши эксперты?!
- Наш опыт - 10 лет.
- Конфиденциальная методика.
- Наращивание ссылочной массы при помощи вирусных ссылок.
- Поисковик мгновенно реагирует на наши технологии.
- Все тексты с веб сайта спамятся, что сразу делает их неуникальными.
- У нашей компании огромные возможности и опыт в данной сфере.

Цена 6000 рублей

Полная отчётность.

Оплата: Киви, Яндекс.Деньги, Bitcoin, Visa, MasterCard...

Телега: @exrumer
Skype: xrumer.pro
WhatsApp: +7(977)536-08-36
маил:

Работаем со Студиями!
Ответить | Ответить с цитатой | Цитировать
0 # Андрей 02.05.2021 06:37
Здравствуйте!
Хотите, отправим Ваше коммерческое предложение по контакт-формам более миллиона компаний?
Ваше предложение придет на почту владельцам сайтов.
Перед рассылкой предоставим скриншот проекта из программы, по завершении скриншоты с отчетами и пояснения к ним.

Хотите, отправим подробную информацию?
Если да, напишите нам!
E-mail:
Ответить | Ответить с цитатой | Цитировать
0 # Евгений 29.04.2021 21:06
Здравствуйте!
Хотите, отправим Ваше коммерческое предложение по контакт-формам более миллиона компаний?
Ваше предложение придет на почту владельцам сайтов.
Перед рассылкой предоставим скриншот проекта из программы, по завершении скриншоты с отчетами и пояснения к ним.

Хотите, отправим подробную информацию?
Если да, напишите нам!
E-mail:
Ответить | Ответить с цитатой | Цитировать
0 # Михаил 23.04.2021 02:46
89217906701
Ответить | Ответить с цитатой | Цитировать
0 # iiheyhop 19.04.2021 06:36
Uyipeve: http://slkjfdf.net/ Ucimul hfe.oktl.economist24.ru.ukg.vn http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # oooguru 16.04.2021 23:36
Созадаим для Вашей компании - свой собственный портал отзывов в Вашей отрасли бизнеса!
Вы будете сами управлять своей репутацией в сети и не только!
Свой портал отзывов - это дополнительный доход!
Размещайте отзывы на другие компании и получайте доход!
Удаляйте негативные отзывы и получайте доход!
Цена потртала отзывов всего 9 900 рублей.
Портал автонаполняемый с других сайтов отзовиков. Вы только добавляете свою компанию и публикуете своим отзывы.
Также можно добавить компании конкурентов и разместить нужные отзывы на них!
Удаление негативных отзывов стоит от 15 000 рублей.
Пример портала otzivru.ru.
Начните управлять своей репутацией в сети со своим собственным порталом отзывов!Быстрая установка настройка и запуск!
Заинтерисовало?
Пишите на
Сайт -https://bit.ly/3dT7G36
Ответить | Ответить с цитатой | Цитировать
0 # iteowewapa 14.04.2021 23:14
Omujope: http://slkjfdf.net/ Acolekc nlg.aopp.economist24.ru.ipy.sf http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # zomofaboca 14.04.2021 23:04
Iiubener: http://slkjfdf.net/ Puipog sro.gsqa.economist24.ru.kcq.ek http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # oyukofu 14.04.2021 18:30
Oafuzahi: http://slkjfdf.net/ Ofoxujaga nww.ersa.economist24.ru.xng.pz http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # ayrexoneko 14.04.2021 18:20
Jetage: http://slkjfdf.net/ Apedioti vlx.zzii.economist24.ru.pfa.bg http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # edemefuxoocax 14.04.2021 18:10
Avuzin: http://slkjfdf.net/ Ohojixe krz.rzql.economist24.ru.bdo.fu http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # mokqakuz 14.04.2021 18:00
Ejisic: http://slkjfdf.net/ Biweva loa.chjz.economist24.ru.ari.yx http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # uluvuziqif 14.04.2021 17:41
Ujeciv: http://slkjfdf.net/ Oowigehan tyg.svjx.economist24.ru.dhy.pz http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # gozudugjobego 14.04.2021 17:32
Anemezewi: http://slkjfdf.net/ Uofeyedij xwv.vrca.economist24.ru.rrl.uo http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # edefutazi 14.04.2021 17:22
Etuvaviq: http://slkjfdf.net/ Ugocav hrm.qchu.economist24.ru.upf.fk http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # aketubizab 14.04.2021 17:12
Utuivu: http://slkjfdf.net/ Amuaxaj otd.htum.economist24.ru.qcv.hg http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # eybegebu 14.04.2021 17:02
Evehea: http://slkjfdf.net/ Otufeyu ysm.pbup.economist24.ru.odb.vf http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # opunwuepiyuna 14.04.2021 16:53
Iipunux: http://slkjfdf.net/ Uyqopeta pqe.qipl.economist24.ru.bek.mb http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # ugucokavonur 14.04.2021 16:43
Uxatepeti: http://slkjfdf.net/ Oxesuy nzl.yitn.economist24.ru.mlc.he http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # iqofalqok 14.04.2021 16:33
Ajuqageq: http://slkjfdf.net/ Iqxonile lrg.hicz.economist24.ru.mst.mi http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # eriakaei 14.04.2021 16:23
Ofacat: http://slkjfdf.net/ Izfojas aws.xdbd.economist24.ru.dej.ru http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # edugirijesequ 14.04.2021 16:12
Uqeheqik: http://slkjfdf.net/ Xebeyapo uot.gngx.economist24.ru.avg.bp http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # oyaipajiiga 14.04.2021 16:03
Evusuji: http://slkjfdf.net/ Eyihabixo jet.ocaa.economist24.ru.ssj.ym http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # ovlexejau 14.04.2021 15:53
Ehevkurij: http://slkjfdf.net/ Eyefawiv xzt.bqqh.economist24.ru.tqe.vd http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # ezaloqka 14.04.2021 15:42
Ipodasac: http://slkjfdf.net/ Fudoziv bzl.ebeo.economist24.ru.pon.om http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # Денис 13.04.2021 14:49
Доброго времени суток!

Меня зовут Денис, я занимаюсь веб-дизайном и ежедневно улучшаю свои навыки работы. Предлагаю обсудить переработку\доработку Вашего существующего сайта или создание нового проекта с нуля под ключ.

Умею создавать от лендинга до многостраничного сайта. От статики до анимации. От 2D до 3D.


Плюсы работать со мной:
+ Готов приступить сегодня
+ Всегда довожу дело до конца
+ Не нарушаю сроков
+ Всегда на связи WhatsApp, Telegram, Vk (+79202957810)
+ Пошаговое согласование + вы контролируете каждый этап разработки и получаете сразу правильный результат..
+ Адекватная цена.

Остались вопросы?
Свяжитесь со мной в течение суток и в качестве бонуса получите бесплатную консультацию по всем вопросам.
Напишите или звоните!
+79202957810
Ответить | Ответить с цитатой | Цитировать
0 # eheegoyuaju 11.04.2021 05:55
Iyeberufi: http://slkjfdf.net/ Arolohom qtw.zcmb.economist24.ru.qkl.ro http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # Евгений 09.04.2021 15:05
Уважаемый, вебмастер.

Мы запустили партнерскую программу WARNAX CPA для вебмастеров!

За клиента привлеченного Вами выплата 50 000?. От Вас только активность в партнерской программе.

Удобный личный кабинет, детальный просмотр статистики переходов по вашей ссылке.

Моментальное пополнение баланса после успешной сделки.

Вашего клиента наши менеджеры максимально доведут до сделки.

В настоящее время более 50 филиалов (франчайзи) в РФ и СНГ.

Моментальные выплаты.

Круглосуточная горячая линия: 8-800-550-64-68 РФ 24/7

По всем вопросам звоните или пишите в личном кабинете в поддержку.

Ждем Вас в нашей команде!



---

С уважением, Евгений.

8 800 550 64 68 – РФ 24/7 круглосуточно

http://www.warnax.ru/cpa/
Ответить | Ответить с цитатой | Цитировать
0 # Светлана 08.04.2021 22:21
Добрый день!

Я - Светлана Марингевич, руководитель сметного бюро.

Наш коллектив разрабатывает полный комплект сметной документации, включая конъюнктурный анализ, а также защищает сметы в любой государственной/негосударственной экспертизе страны.

К вашим услугам - высокопрофессиональная команда из 26-ти инженеров-сметчиков, лицензионные программные комплексы и наш опыт, наработанный за 12 лет составления сметной документации на крупнейших объектах страны.

Интересуют подробности?
Свяжитесь с нами!
Отправим документы организации, предложение о сотрудничестве, а также положительные заключения экспертиз и документы ключевых сотрудников организации. Будет рады быть полезными и решать задачи, связанные с составлением смет и их защитой в экспертизах России.

Напишите нам!
Наш E-mail:
Ответить | Ответить с цитатой | Цитировать
0 # aluahehroce 07.04.2021 10:02
Ieeqici: http://slkjfdf.net/ Oleepez rdh.amue.economist24.ru.ipc.uy http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # iyibifuwose 07.04.2021 09:54
Eniyid: http://slkjfdf.net/ Ifabuv hdp.hjca.economist24.ru.uxm.ak http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # eumaxal 07.04.2021 09:46
Alahee: http://slkjfdf.net/ Iqfpiz ttv.nnwh.economist24.ru.yau.zi http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # usojirtominey 07.04.2021 09:38
Ojevejib: http://slkjfdf.net/ Ozauqiva avc.jyqv.economist24.ru.yto.tt http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # Кирилл 04.04.2021 04:15
Здравствуйте,

У вас очень интересный сайт - рассмотрите его продажу по выгодной цене?

Если этот сайт (или возможно другой ваш) продается, пожалуйста напишите мне сейчас и я отвечу предложением.

Обязательно укажите URL сайта(ов) что рассматриваете под продажу.

Спасибо огромное и с нетерпением жду обратной связи.

Кирилл

П.С: Свяжитесь со мной СЕГОДНЯ (!) так как я рассматриваю и другие сайты.

Email:
Telegram: @imonfenix
Skype: join.skype.com/invite/aCFL0qc5eEIz
Ответить | Ответить с цитатой | Цитировать
0 # Elenkahek 02.04.2021 19:45
Yes
http://gritnocanon.tk/chk/21
Ответить | Ответить с цитатой | Цитировать
0 # auyiwido 01.04.2021 22:16
Afutop: http://slkjfdf.net/ Iatezuqo vri.yfss.economist24.ru.ssk.sw http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # icazewes 01.04.2021 22:16
Uyejoxa: http://slkjfdf.net/ Okovie qiy.tjsd.economist24.ru.vwo.kv http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # aheracagu 01.04.2021 22:13
Efacano: http://slkjfdf.net/ Awodime qsk.sszk.economist24.ru.kfz.yj http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # epejehud 01.04.2021 22:12
Eyabih: http://slkjfdf.net/ Esadeti nqy.gwhp.economist24.ru.pib.mg http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # auyiwido 01.04.2021 22:09
Afutop: http://slkjfdf.net/ Iatezuqo vri.yfss.economist24.ru.ssk.sw http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # icazewes 01.04.2021 22:07
Uyejoxa: http://slkjfdf.net/ Okovie qiy.tjsd.economist24.ru.vwo.kv http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # epejehud 01.04.2021 22:03
Eyabih: http://slkjfdf.net/ Esadeti nqy.gwhp.economist24.ru.pib.mg http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # qulaxaisako 01.04.2021 21:59
Apajuase: http://slkjfdf.net/ Uwistb par.qkyc.economist24.ru.kua.tc http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # iqigeze 01.04.2021 21:54
Imavalc: http://slkjfdf.net/ Uxapemoq qwu.vgio.economist24.ru.xvj.fs http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # owipimui 01.04.2021 21:46
Ueseheyel: http://slkjfdf.net/ Acehavid qoi.wlxg.economist24.ru.sql.dq http://slkjfdf.net/
Ответить | Ответить с цитатой | Цитировать
0 # Альберт 21.03.2021 00:46
Здравствуйте!
Наша компания "ГрузовичкоФ"- лидер на рынке транспортно-логистических услуг, грузовое такси номер 1 в России!
Мы предоставляем полный комплекс услуг:
- Грузоперевозки
- Услуги грузчиков
- Экспедирование грузов
- Сборка-разборка мебели
- Таклажные работы и др.

Интересуют подробности?
Свяжитесь с нами, отправим Прайс и подробную информацию!
E-mail:
Тел: +7(8552) 99-97-07
Ответить | Ответить с цитатой | Цитировать
0 # Sergeiloalo 21.03.2021 00:28
Добрый день!

Очень важная и полезная инфа!
Директору

Руководителю Шефу Акционеру Собственнику фирмы Боссу Партнеру Начальнику !


Книга + CD диск - Подарочное издание

2 взгляда на главные вопросы бизнесмена в России
2 отчета арбитражного адвоката

Как заработать больше?
И Как сохранить заработанное?

Нужный Подарок Шефу

Подробнее по вашему запросу на сайте
https://utiny.page.link/j7Nn

С уважением, Sergei



68057008



12384760

72788906
Ответить | Ответить с цитатой | Цитировать
0 # Daviddew 15.03.2021 08:59
Дискредитация Ваших конкурентов.
Удаление любого негатива.
Подробнее
Ответить | Ответить с цитатой | Цитировать
0 # Дмитрий 06.03.2021 12:24
Отправим Ваше коммерческое предложение по контакт-формам более 2 млн сайтов.
Целевая аудитория: Предприниматели, владельцы сайтов, поэтому средняя платежеспособность ЦА высокая.

Свяжитесь с нами в течение суток и в качестве бонуса составление текста для рассылки будет бесплатным.
Все подробности также отправим в ответном сообщении.
Наш E-mail:

ВАЖНО:
Пожалуйста, в сообщении указывайте Ваш контактный ватсап либо телеграм, для удобной и более оперативной связи.
Названивать или использовать Ваши контакты для какой-либо другой цели, кроме оперативной связи мы не будем.

P.S. Извините за беспокойство, если мы с Вами уже сотрудничаем.
С Уважением, руководитель команды Formarketing.
Ответить | Ответить с цитатой | Цитировать
0 # Александр 01.03.2021 12:02
Вы ждали заявку от клиента! Знаю!
Не расстраивайтесь, мы обеспечим вас ПОТОКОМ новых клиентов!
С помощью УМНОГО голосового робота.
Он приводит лиды от 20 руб!
Новая технология уже во всю "качает" рынок!
переходи на сайт http://paparobot.ru/
Ответить | Ответить с цитатой | Цитировать
0 # Евгений 19.02.2021 20:25
Здравствуйте!
Обучим Вас различным способам привлечения клиентов, в т.ч. различным видам рассылок, с помощью которых Вы сможете бесплатно привлекать трафик в огромных количествах!
Предоставляем программы и обучаем:
- Рассылкам по контакт-формам
- E-mail-рассылкам
- WhatsApp, Viber и Telegram-рассылкам

Интересуют подробности? Свяжитесь с нами!
E-mail:
Ответить | Ответить с цитатой | Цитировать
0 # PUSHMONEY 19.02.2021 16:38
Ежемесячно более 320000$ - доход партнеров!
Безопасные коды на сайты без угрозы санкций от ПС !!!
Мгновенный выкуп или Ревшара подписок!
Монетизация 186+ GEO!
100% доставка рекламы подписчикам!
Мультиязычные лендинги!
Универсальный код push подписок!
Продвинутая статистика в реальном времени!
Количество PUSH запросов на лендингах до 100!

http://pushmoney.website
Ответить | Ответить с цитатой | Цитировать
0 # gifruqsirihoz 16.02.2021 22:32
Dosage For Amoxicillin 500mg: http://mewkid.net/when-is-xuxlya3/ Amoxicillin hxc.qvpe.economist24.ru.jgv.jv http://mewkid.net/when-is-xuxlya3/
Ответить | Ответить с цитатой | Цитировать
0 # imivaeqeti 16.02.2021 22:16
Amoxicillin 500mg Capsules: http://mewkid.net/when-is-xuxlya3/ Amoxicillin 500 Mg gyo.pvlj.economist24.ru.zyt.at http://mewkid.net/when-is-xuxlya3/
Ответить | Ответить с цитатой | Цитировать
0 # Usessewet 12.02.2021 16:27
dragon ball z budokai tenkaichi 1 pcsx2: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/dragon-ball-z-budokai-tenkaichi-1-pcsx2.php shree mad bhagwat katha s: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/shree-mad-bhagwat-katha-s.php lorde sister india soundcloud music: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/lorde-sister-india-soundcloud-music.php mortal kombat shaolin monks for pc: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/mortal-kombat-shaolin-monks-for-pc.php datpiff logic young sinatra welcome to forever: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/datpiff-logic-young-sinatra-welcome-to-forever.php street fighter iii 3rd strike ps2 iso: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/map678.php amberen dawn cold kiss concert: http://anime-rio-rainbow-gate-sub-indo-kurnia.com/amberen-dawn-cold-kiss-concert.php
Ответить | Ответить с цитатой | Цитировать
0 # Александр 10.02.2021 12:29
Управляйте развитием вашего бизнеса!

Более 250 пользователей ежедневно ищут ваши услуги – сколько из них обращаются к вам?
Оставь заявку на сайте: https://a-uslugi.com для активации и развития контент-маркетинга вашего бизнеса.

Хотите повлиять на то, какую информацию клиенты получат о вашей компании?
Регистрируйся на https://a-uslugi.com
Ответить | Ответить с цитатой | Цитировать
0 # Олег 07.02.2021 09:31
Здравствуйте!
Хотите перестать терять деньги из-за неправильно настроенной рекламы?
Хотите, чтобы реклама работала максимально эффективно?
Тогда добро пожаловать в наш блог, в котором мы подробно рассказываем:
- Как запускать рекламные кампании
- Как работать с тизерными и нативными сетями, с PUSH трафиком
- Хитрости при работе с Facebook, Google TikTok, MyTarget и т.д.

Если Вы владелец бизнеса, Вам будет полезно посмотреть, как запускаются Ваши конкуренты.
Посмотреть для Вашей компании новые,
интересные подходы и почитать подробнее об актуальных источниках трафика в 2021 году для Вашего направления!

И все это в открытом доступе на нашем блоге!
http://yosa.run/?utm_source=semail
Ответить | Ответить с цитатой | Цитировать
0 # TomasCoada 04.02.2021 14:16
msmdsrv high memory usage sql server 2008
watch yo profanity
crossfire hack ph 2012 august
msmpeng access is denied
dwm disable windows 8

windows 10 explorer not working
windows 2000 resource kit sc itunes
common agent samsung
launcher uniblue launcher
descargar el daemon tools lite

release management console
rundll32 syssetup setupoobebnk 2003 ford
sysmonitor application error
elsawin 4.1 plus pack 2013
ntoskrnl missing or corrupt windows xp

http://free.1frees-ebooks-to-pdfs.com/
Ответить | Ответить с цитатой | Цитировать
0 # Александра 04.02.2021 08:42
Сгенерируем для Вас подтвержденных прозвоненных Клиентов,
с РАССРОЧКОЙ по оплате Горячих Лидов до 12 месяцев.
Ответьте на вопросы https://leadgeneration.moscow/ и получите уникальное индивидуальное предложение.
Работаем с Заказчиками у которых уже есть высоко посещаемые сайты,
а также создаем высоко конверсионные квизы, профессионально настраиваем рекламные кампании в Яндекс.Директ и Google Ads,
прозваниваем и подтверждаем ваши Заявки, Передаем Горячие Лиды с рассрочкой платежей до 12 месяцев или с еженедельной отсрочкой.
Заполните заявку и не затрачивая ни одного рубля наполните свой бизнес Клиентами: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # obipuhekezova 02.02.2021 19:33
Buy Amoxicillin Online: http://mewkid.net/when-is-xuxlya3/ Amoxicillin 500mg trs.qqsm.economist24.ru.eky.hw http://mewkid.net/when-is-xuxlya3/
Ответить | Ответить с цитатой | Цитировать
0 # udojmyi 02.02.2021 19:11
Buy Amoxicillin: http://mewkid.net/when-is-xuxlya3/ Amoxicillin 500mg Capsules bjy.brsp.economist24.ru.lst.my http://mewkid.net/when-is-xuxlya3/
Ответить | Ответить с цитатой | Цитировать
0 # Алла 02.02.2021 09:13
Здравствуйте.
Хотите отдохнуть и хорошо провести время?
Обратите внимание на базу отдыха Горный Алтай!

У нас:
- Благоустроенные номера для романтичного и семейного отдыха
- Берег Катуни
- Беседки с видом на Катунь

Также мы предлагаем большой выбор разнообразных прогулок и экскурсий:
- Конные прогулки
- Экскурсии по Алтаю
- Сплавы по Катуни

Гарантируем массу впечатлений и экстрима!

Ссылка на наш Инстаграм: https://www.instagram.com/usadba_na_beregu/
Ссылка на наш сайт: https://beregaltai.ru/

Интересуют подробности?
Свяжитесь с нами, ответим на все вопросы и поможем с выбором места!
Телефон и ватсап: +79994520577
Почта: @
Ответить | Ответить с цитатой | Цитировать
0 # Семен 29.01.2021 13:40
Добрый день.
Меня зовут Семен Станкевич, я директор компании "Капитал Групп"
Мы производим фанеру.
Контролируем качество продукции на всех этапах производства.

У нас очень строгие нормы производства и хранения продукции.
Работаем с ЕГАИС
Доставка: самовывоз или через транспортные компании.
Объем поставок: от 1 м3

Гарантируем:
• Быструю отгрузку, высокое качество продукции
• Любая форма оплаты.

Если Вам интересно - дайте мне ответ!

Ответим на все вопросы и предложим решение поставленных Вами задачи
в короткий срок и на высоком уровне!

E-mail:
Ответить | Ответить с цитатой | Цитировать
0 # София 28.01.2021 07:05
Поучаствуйте в розыгрыше призов, участие бесплатно!
Подробности здесь:http://findprizeonline.club
Ответить | Ответить с цитатой | Цитировать
0 # Николай 27.01.2021 10:12
Сообщение: Обеспечим Ваш Бизнес новыми Клиентами, с оплатой за РЕЗУЛЬТАТ, ПОДТВЕРЖДЕННЫЕ ЗАЯВКИ, % ОТ СДЕЛКИ, ПОЭТАПНАЯ ОПЛАТА!
Оставьте заявку на https://leadgeneration.moscow/
Для Вас создадим высоко конверсионные сайты, профессионально настроим рекламные кампании в Яндекс.Директ и Google Ads,
прозвоним и подтвердим Ваши заявки, Передадим Вам Горячих Клиентов с еженедельной отсрочкой платежей за Горячие Лиды.
Для постоянных Клиентов оплата % от Сделок за РЕЗУЛЬТАТ!
https://leadgeneration.moscow/ в Интернет-маркетинге более 10-ти лет.
Заполните заявку и помогите своему Бизнесу: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # Keitharori 26.01.2021 23:14
http://the-test.de
Ответить | Ответить с цитатой | Цитировать
0 # Семен 26.01.2021 23:03
Добрый день.
Меня зовут Семен Станкевич, я директор компании "Капитал Групп"
Мы производим фанеру.
Контролируем качество продукции на всех этапах производства.

У нас очень строгие нормы производства и хранения продукции.
Работаем с ЕГАИС
Доставка: самовывоз или через транспортные компании.
Объем поставок: от 1 м3

Гарантируем:
- Быструю отгрузку, высокое качество продукции
- Любая форма оплаты.

Если Вам интересно - дайте мне ответ!

Ответим на все вопросы и предложим решение поставленных Вами задачи
в короткий срок и на высоком уровне!

E-mail:
Ответить | Ответить с цитатой | Цитировать
0 # Виталий 25.01.2021 23:24
1. Аутстаффинг – вывод персонала за штат вашей компании, при этом сотрудник официально оформлен в компанию-провайдер,
а работать продолжает на прежнем месте, выполняя свои прежние обязанности
Воспользоваться сейчас – это значит перестать непрерывно следить за миграционной обстановкой в стране,
уйти от проверок ФМС, мы сами будем выплачивать заработную плату, налоги и страховые взносы,
и взаимодействовать с налоговой службой по поводу оформления налогового вычета для иностранцев.
Заключить договор – это значит уменьшить затраты на кадровый персонал,
снизить фонд оплаты труда и нагрузку на кадровый и бухгалтерский отделы , сэкономить на дополнительных рабочих местах.

Свяжитесь с нами, расскажем подробнее и ответим на все вопросы!
E-mail:
Тел: 89618007358
Ответить | Ответить с цитатой | Цитировать
0 # Николай 21.01.2021 16:12
Сообщение: Обеспечим Ваш Бизнес новыми Клиентами, с оплатой за РЕЗУЛЬТАТ, ПОДТВЕРЖДЕННЫЕ ЗАЯВКИ, % ОТ СДЕЛКИ, ПОЭТАПНАЯ ОПЛАТА!
Оставьте заявку на https://leadgeneration.moscow/
Для Вас создадим высоко конверсионные сайты, профессионально настроим рекламные кампании в Яндекс.Директ и Google Ads,
прозвоним и подтвердим Ваши заявки, Передадим Вам Горячих Клиентов с еженедельной отсрочкой платежей за Горячие Лиды.
Для постоянных Клиентов оплата % от Сделок за РЕЗУЛЬТАТ!
https://leadgeneration.moscow/ в Интернет-маркетинге более 10-ти лет.
Заполните заявку и помогите своему Бизнесу: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # Кирилл 20.01.2021 21:25
Здравствуйте,

У вас очень интересный сайт - продадите его по выгодной цене?

Если этот сайт (или возможно другой ваш) продается, пожалуйста напишите мне сейчас и я отвечу предложением.
Обязательно укажите:
- URL сайта
- Количество уникальных посетителей/сутки (рассматриваю от 100)
- Доходы по источникам (если есть)

Спасибо,
Кирилл

П.С: Свяжитесь со мной СЕГОДНЯ (!) так как я рассматриваю и другие сайты.
Email:
Telegram: @imonfenix
Skype: join.skype.com/invite/aCFL0qc5eEIz
Ответить | Ответить с цитатой | Цитировать
0 # Глеб 19.01.2021 23:14
1.Поможем получить визу в ЕС во время пандемии. От Вас только паспорт и фото.
2.Стоимость услуги 18 000 российских рублей и 91 евро сборы консульские
3.Поможем с визой в ЕС. Нужно выехать в Европу? Мы поможем с визой.

https://es-emigra.ru/rabochie-vizy-v-evropu/
5.Москва
Ответить | Ответить с цитатой | Цитировать
0 # Николай 19.01.2021 09:05
Сообщение: Обеспечим Ваш Бизнес новыми Клиентами, с оплатой за РЕЗУЛЬТАТ, ПОДТВЕРЖДЕННЫЕ ЗАЯВКИ, % ОТ СДЕЛКИ, ПОЭТАПНАЯ ОПЛАТА!
Оставьте заявку на https://leadgeneration.moscow/
Для Вас создадим высоко конверсионные сайты, профессионально настроим рекламные кампании в Яндекс.Директ и Google Ads,
прозвоним и подтвердим Ваши заявки, Передадим Вам Горячих Клиентов с еженедельной отсрочкой платежей за Горячие Лиды.
Для постоянных Клиентов оплата % от Сделок за РЕЗУЛЬТАТ!
https://leadgeneration.moscow/ в Интернет-маркетинге более 10-ти лет.
Заполните заявку и помогите своему Бизнесу: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # LedledWat 16.01.2021 14:40
Здравствуйте

Мы являемся разработчиками и производителями светодиодных устройств для освещения.
Выполняем разработку согласно ТЗ заказчиков, ремонт и модификацию устройств других производителей и
многое другое. В случае заинтересованности, предлагаем посетить наш веб-сайт www.imled.ru,
связаться с нами по эл.почте:

Хорошего дня!
Ответить | Ответить с цитатой | Цитировать
0 # Dig 13.01.2021 09:13
Let your money grow into the capital with this Robot. https://crypto.gravedanger.biz#Dig
Ответить | Ответить с цитатой | Цитировать
0 # Ivanbew 11.01.2021 18:28
Приветствую Вас!

Исключительно полезная и важная подборка информации!
Директору

Посмотрите пожалуйста полезный вариант подарка Начальнику на Новый Год!
Партнеру Акционеру Руководителю Шефу Собственнику фирмы Начальнику Боссу !


книга и СД = Подарочное исполнение

Два взгляда на основные вопросы бизнеса в РФ
Два отчета налогового адвоката

Как заработать больше?
и Как сохранить заработанное?

Отличный Подарок Шефу

Дополнительная информация по вашему запросу на сайте
https://hideuri.com/Ym6d0v

С уважением, Ivan



16675109



79616539

72780603
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 10.01.2021 08:46
Финансовый робот-это инвестиционный инструмент № 1. Запускайте его!
Ссылка - http://t-protex.de/pdf-the-bitcoin-standard-the-decentralized-alternative-to-central-banking.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 09.01.2021 20:35
Нет необходимости больше работать, пока вы запускаете робота!
Ссылка - http://natur-holzbausteine.de/claim-free-bitcoin-jplabs.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 09.01.2021 16:37
Зарабатывайте деньги в интернете, оставаясь дома этой холодной зимой.
Ссылка - http://gasthausamflughafen.de/bitcoin-official-app-ios.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 09.01.2021 05:16
Все еще не миллионер? Финансовый робот сделает вас им!
Ссылка - http://ute-strohner.de/antidomingo-bitcoin-atm.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 09.01.2021 03:28
Ознакомьтесь с новейшим способом получения фантастической прибыли.
Ссылка - - http://feuerwehr-matzenbach.de/btc-computers-brasov.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 09.01.2021 00:20
Пусть ваши деньги работают на вас весь день.
Ссылка - http://gasthausamflughafen.de/btc-blockstream.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 20:55
Ваши деньги продолжают расти 24/7, Если вы используете финансового робота.
Ссылка - http://stuntszene.de/imposition-bitcoin-espagne.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 19:59
Сделайте свой компьютер, чтобы он был вашим инструментом заработка.
Ссылка - - http://t-protex.de/how-much-electricity-does-bitcoin-network-use.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 17:02
Нужны деньги? Получить его здесь легко?
Ссылка - http://stuntszene.de/child-key-derivation-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 16:32
Использование этого робота-лучший способ сделать вас богатым.
Ссылка - http://ute-strohner.de/chave-privada-carteira-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 05:48
Каждый ваш доллар может превратиться в 100 долларов после того, как вы пообедаете этим роботом.
Ссылка - https://cryptocoin365.de/scottrade-bitcoin-futures.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 05:23
Все еще не миллионер? Финансовый робот сделает вас им!
Ссылка - - https://cryptolabz.de/bitcoin-trader-mexico-que-es.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 04:14
Самый быстрый способ сделать ваш кошелек толстым найден.
Ссылка - - https://cryptoncoins.de/best-android-app-for-trading-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 03:54
Ищете простой способ заработать деньги? Проверьте финансового робота.
Ссылка - https://bitcoinlife24.de/btc-markets-bitcoin-review.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 02:16
Запустите робота, и пусть он принесет вам деньги.
Ссылка - https://cryptolabz.de/migliori-piattaforme-per-trading-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 01:28
Попробуйте автоматический робот, чтобы продолжать зарабатывать весь день напролет.
Ссылка - https://allcryptocoins.de/low-latency-bitcoin-trading.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 08.01.2021 00:02
Проверьте автоматический бот, который работает для вас 24/7.
Ссылка - https://bitcoinlife24.de/btc-markets-rates.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 07.01.2021 17:31
Запустите финансового бота прямо сейчас, чтобы начать зарабатывать.
Ссылка - - https://allcryptocoins.de/when-will-robinhood-start-trading-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 07.01.2021 15:29
Зарабатывай тысячи баксов. Финансовый робот поможет вам это сделать!
Ссылка - https://bitmoneylab.de/how-to-trade-bitcoin-on-iq-options.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 06.01.2021 22:58
Использование этого робота-лучший способ сделать вас богатым.
Ссылка - https://cryptodayly.de/profitability-bitcoin-gold.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 06.01.2021 21:23
Проверьте новый финансовый инструмент, который может сделать вас богатым.
Ссылка - https://cryptodayly.de/market-research-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 06.01.2021 17:21
Лучший онлайн-инвестиционный инструмент найден. Узнайте больше!
Ссылка - https://cryptocoin365.de/metatrader-broker-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 06.01.2021 10:52
Попробуйте самого лучшего финансового робота в Интернете.
Ссылка - https://cryptocoin365.de/best-bitcoin-trading-youtube.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 06.01.2021 00:36
Каждый ваш доллар может превратиться в 100 долларов после того, как вы пообедаете этим роботом.
Ссылка - https://bitmoneylab.de/first-trust-bitcoin-strategy-etf.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 05.01.2021 16:11
Ух ты! Этот робот-отличное начало для онлайн-карьеры.
Ссылка - https://cryptocoin365.de/trading-bitcoin-indonesia-terpercaya.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 05.01.2021 04:25
Робот никогда не спит. Это делает деньги для вас 24/7.
Ссылка - https://24crypto.de/btc-private-coinmarket.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 05.01.2021 04:04
Наблюдайте, как растут ваши деньги, пока вы инвестируете с роботом.
Ссылка - https://24crypto.de/how-to-trade-with-bitcoin-in-nigeria.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 04.01.2021 19:04
Ваши деньги работают, даже когда вы спите.
Ссылка - https://24crypto.de/bitcoin-trillion-dollar-market-cap.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 04.01.2021 17:16
Онлайн-заработок - это самый простой путь к финансовой независимости.
Ссылка - https://24crypto.de/bitcoin-trader-bbc-dragons-den.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 04.01.2021 03:55
Деньги, деньги! Зарабатывайте больше денег с помощью финансового робота!
Ссылка - - https://24crypto.de/bitcoin-trader-dies-with-password.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 03.01.2021 17:46
Попробуйте автоматический робот, чтобы продолжать зарабатывать весь день напролет.
Ссылка - - https://24crypto.de/trading-bitcoin-and-ethereum.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 03.01.2021 15:47
Не стесняйтесь покупать все, что вы хотите, с дополнительным доходом.
Ссылка - https://24crypto.de/bitcoin-trading-volume-usd.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 03.01.2021 12:34
Обеспечьте свою семью деньгами в старости. Запускайте робота!
Ссылка - - https://24crypto.de/when-will-bitcoin-be-traded-on-wall-street.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 03.01.2021 06:26
У вас нет денег? Заработайте его в интернете.
Ссылка - https://24crypto.de/trading-bitcoin-making-money.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 02.01.2021 06:35
Зарабатывай тысячи баксов. Ничего не платить.
Ссылка - https://24crypto.de/bitcoinhex-coinmarketcap.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 22:34
Онлайн-заработок - это самый простой путь к финансовой независимости.
Ссылка - https://24crypto.de/bitcoin-marketplace-japan.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 20:40
Один клик робота может принести вам тысячи долларов.
Ссылка - https://24crypto.de/xm-deposit-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 20:23
Всего один клик может превратить ваш доллар в 1000 долларов.
Ссылка - - https://24crypto.de/trading-bitcoin-bittrex.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 20:11
Робот-это лучшее решение для всех, кто хочет зарабатывать.
Ссылка - https://24crypto.de/bitcoin-traders-pakistan.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 14:27
Этот робот поможет вам зарабатывать сотни долларов каждый день.
Ссылка - https://24crypto.de/deposit-usd-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 09:26
Наблюдайте, как растут ваши деньги, пока вы инвестируете с роботом.
Ссылка - https://24crypto.de/btcp-profitability.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 07:10
Нужны еще деньги? Робот заработает их очень быстро.
Ссылка - - https://24crypto.de/bitcoin-futures-broker-to-allow-negative-bets.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 01.01.2021 03:00
Начните зарабатывать тысячи долларов каждую неделю.
Ссылка - https://24crypto.de/a-vegan-a-bitcoin-trader-joke.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 31.12.2020 21:52
Ваши деньги продолжают расти 24/7, Если вы используете финансового робота.
Ссылка - - https://24crypto.de/bitcoin-mt5-demo.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 31.12.2020 16:43
Даже ребенок знает, как делать деньги. Этот робот-то, что вам нужно!
Ссылка - - https://24crypto.de/bitcoin-market-caps.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 30.12.2020 15:14
Зарабатывать 1000 долларов в день легко, если вы используете этого финансового робота.
Ссылка - https://24crypto.de/trade-with-btc-or-eth.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 30.12.2020 14:29
Нужны деньги? Заработайте его, не выходя из дома.
Ссылка - https://24crypto.de/btcc-market-limited.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 30.12.2020 11:39
Тысячи баксов гарантированы, если вы используете этого робота.
Ссылка - https://24crypto.de/bitcoincoid-metatrader.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 30.12.2020 07:21
Мы знаем, как стать богатыми, а вы?
Ссылка - https://24crypto.de/nano-btc-coinmarketcap.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 22:11
Онлайн-бот принесет вам богатство и удовлетворение.
Ссылка - https://24crypto.de/trade-bitcoin-from-coinbase-to-binance.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 21:09
Ух ты! Это самый быстрый путь к финансовой независимости.
Ссылка - https://24crypto.de/btc-traders-pvt-ltd.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 19:37
Доверьте свой доллар роботу и посмотрите, как он вырастет до 100 долларов.
Ссылка - https://24crypto.de/australian-shark-tank-bitcoin-trader.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 16:10
Имеется огромный доход без вложений.
Ссылка - https://24crypto.de/how-to-trade-bitcoin-on-binance.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 16:08
Имеется огромный доход без вложений.
Ссылка - https://24crypto.de/how-to-make-profit-of-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 15:08
Дополнительный доход доступен каждому, кто использует этого робота.
Ссылка - https://24crypto.de/good-morning-britain-bitcoin-trading.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 13:57
Нужны деньги? Получить его здесь легко?
Ссылка - https://24crypto.de/bitcoin-brokers-bahrain.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 13:15
Финансовый робот-лучший компаньон богатых людей.
Ссылка - https://24crypto.de/what-is-bitcoin-trading.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 10:23
Зарабатывай тысячи баксов. Финансовый робот поможет вам это сделать!
Ссылка - - https://24crypto.de/how-do-bitcoin-profit-work.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 10:21
Нужны деньги? Финансовый робот - это ваше решение.
Ссылка - https://24crypto.de/bitcoin-trading-for-us-citizens.php
Ответить | Ответить с цитатой | Цитировать
0 # Алексей 29.12.2020 10:19
Предоставим Вам базы постоянных клиентов Ваших конкурентов!
Идеально подойдет для:
- Емайл-рассылки
- Горячего обзовона
- Ватсап/вайбер-рассылки.

Вы сможете звонить/писать не холодным лидам, не заинтересованным в услугам, а тем, кто прямо сейчас покупает у Ваших конкурентов!
Пишите, ответим на все вопросы:
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 05:29
Всего один клик может превратить ваш доллар в 1000 долларов.
Ссылка - - https://24crypto.de/deposit-usd-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 05:29
Даже ребенок знает, как делать деньги. А у тебя есть?
Ссылка - https://24crypto.de/max-deposit-bitcoin-atm.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 05:28
Все еще не миллионер? Исправь это сейчас же!
Ссылка - https://24crypto.de/is-bitcoin-going-on-stock-market.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 29.12.2020 02:44
Инвестируйте $1 сегодня, чтобы заработать $ 1000 завтра.
Ссылка - - https://24crypto.de/bitcoin-day-to-day-trading.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 28.12.2020 20:12
# 1 финансовый эксперт в сети! Посмотрите на нового робота.
Ссылка - - https://24crypto.de/gina-rinehart-bitcoin-trader.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 28.12.2020 17:07
Даже ребенок знает, как делать деньги. Этот робот-то, что вам нужно!
Ссылка - https://24crypto.de/tips-dan-trik-trading-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 28.12.2020 14:21
Начните зарабатывать тысячи долларов каждую неделю.
Ссылка - https://24crypto.de/quoinex-deposit-btc.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 28.12.2020 09:29
Больше нет необходимости искать работу. Работать в интернете.
Ссылка - https://24crypto.de/cme-bitcoin-futures-market-data.php
Ответить | Ответить с цитатой | Цитировать
0 # SemanticOrno 27.12.2020 19:28
Специалист по семантике ищет свои титановые ядра!
Большой любитель глубокой чистки и фильтрации.
Фетиш на сбор частот трех видов, люблю подглядывать за конкурентами в поиске.
Эротическое удушье путем сбора данных из выдачи для расчета KEI.
Ваши объемы и требования к сбору меня не испугают, видел милионную семантику.
Оплата по факту оказанных услуг.
Предоставление примеров работ.

Для связи использую почту
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 27.12.2020 11:16
Нужны деньги? Получить его здесь легко! Просто нажмите эту кнопку, чтобы запустить робота.
Ссылка - https://24crypto.de/is-bitcoin-trading-in-stock-market.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 27.12.2020 08:27
Больше нет необходимости искать работу. Работать в интернете.
Ссылка - https://24crypto.de/how-to-transfer-bitcoin-from-coinbase-to-dream-market.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 27.12.2020 01:51
Запустите финансового бота прямо сейчас, чтобы начать зарабатывать.
Ссылка - https://24crypto.de/short-bitcoin-strategy-etf.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 27.12.2020 01:44
Этот робот может приносить вам деньги 24/7.
Ссылка - - https://24crypto.de/bitcoin-luxury-marketplace.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 23:09
Всего один клик может превратить ваш доллар в 1000 долларов.
Ссылка - https://24crypto.de/julian-assange-bitcoin-profit.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 21:27
Нужны деньги? Получить его здесь легко?
Ссылка - https://24crypto.de/trading-virtuel-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 18:24
Больше нет необходимости искать работу. Работать в интернете.
Ссылка - - https://24crypto.de/coinmarketcap-usd-btc.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 16:42
Даже ребенок знает, как заработать 100 долларов сегодня с помощью этого робота.
Ссылка - https://24crypto.de/is-it-worth-day-trading-bitcoin.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 15:20
Даже ребенок знает, как заработать 100 долларов сегодня с помощью этого робота.
Ссылка - https://24crypto.de/how-to-bitcoin-trade.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 14:38
Зарабатывать деньги может быть очень легко, если вы используете этого робота.
Ссылка - - https://24crypto.de/bitcoin-currency-trading.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 08:23
Обеспечьте свою семью деньгами в старости. Запускайте робота!
Ссылка - https://24crypto.de/ubiq-btc-tradingview.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 05:57
Самый быстрый способ сделать ваш кошелек толстым-это здесь.
Ссылка - https://24crypto.de/australian-shark-tank-bitcoin-trader.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 03:01
Онлайн-работа может быть действительно эффективной, если вы используете этого робота.
Ссылка - https://24crypto.de/how-to-trade-bitcoin-pdf.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 26.12.2020 02:20
Онлайн-работа может быть действительно эффективной, если вы используете этого робота.
Ссылка - - https://24crypto.de/bitcoin-trading-bot-bitstamp.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 25.12.2020 22:53
Лучшая онлайн-работа для пенсионеров. Сделайте свою старость богатой.
Ссылка - - https://24crypto.de/btc-good-market.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 25.12.2020 20:55
Зарабатывайте доллары, оставаясь дома, и запустили этого бота.
Ссылка - https://24crypto.de/bitcoin-uk-trading-platform.php
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 25.12.2020 19:25
Финансовая независимость-вот что гарантирует этот робот.
Ссылка - https://alloa.page.link/promo
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 25.12.2020 14:47
Не беспокойтесь, если вас уволят. Работать в интернете.
Ссылка - https://crypto24.page.link/personal
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 25.12.2020 09:09
Пусть ваши деньги вырастут в капитал с помощью этого робота.
Ссылка - https://plbtc.page.link/money
Ответить | Ответить с цитатой | Цитировать
0 # IvanaLark 25.12.2020 01:36
Добрый день!

Стопроцентно важная и полезная информация!
Директору

Рассмотрите полезный вариант подарка Руководителю К Новому Году!
Боссу Руководителю Собственнику фирмы Акционеру Шефу Партнеру Начальнику !


книга и СД = Подарочное издание

Два взгляда на главные вопросы бизнеса в РФ
Два отчета известного налогового адвоката

Как заработать больше?
И Как сохранить заработанное?

Полезный Презент Партнеру

Подробнее по вашему запросу на сайте
https://utiny.page.link/L5p3

С уважением, Ivan



32945339



80217203

47482504
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 24.12.2020 17:31
Зарабатывай тысячи баксов. Финансовый робот поможет вам это сделать!
Ссылка - https://plbtc.page.link/v2EF
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 24.12.2020 04:53
New Year's time for gifts! We've put together a list of the best casinos with the most generous bonuses! Play now and win!
Link - http://bestcasinos2019.com/
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 24.12.2020 02:29
New Year's time for gifts! We've put together a list of the best casinos with the most generous bonuses! Play now and win!
Link - http://bestcasinos2019.com/
Ответить | Ответить с цитатой | Цитировать
0 # IvanaLark 23.12.2020 19:10
Приветствую Вас!

Однозначно важная и полезная инфа!
Директору

Рассмотрите Наш хороший вариант подарка Партнеру к Рождеству!
Шефу Руководителю Акционеру Начальнику Собственнику фирмы Партнеру Боссу !


книга + CD диск - Подарочное исполнение

Два взгляда на главные вопросы бизнеса в РФ
2 отчета известного адвоката

Как заработать больше?
и Как сохранить заработанное?

Качественный Подарок Боссу

Подробности по вашему запросу на сайте
https://hideuri.com/oljEO4

С уважением, Ivan



89432796



58096793

46809466
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 23.12.2020 17:08
Зарабатывайте дополнительные деньги без особых усилий.
Ссылка - https://plbtc.page.link/coin
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 23.12.2020 13:38
Зарабатывать деньги в интернете легко, если вы используете робота.
Ссылка - https://plbtc.page.link/pb5Z
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 23.12.2020 09:49
Всего один клик может превратить ваш доллар в 1000 долларов.
Ссылка - https://plbtc.page.link/NcYR
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 23.12.2020 06:29
Зарабатывайте деньги 24/7 без каких-либо усилий и навыков.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 23.12.2020 01:11
Зарабатывайте доллары, просто сидя дома.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 22.12.2020 22:30
Запустите лучший инвестиционный инструмент, чтобы начать зарабатывать деньги уже сегодня.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 22.12.2020 21:30
Запустите финансового бота прямо сейчас, чтобы начать зарабатывать.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 22.12.2020 19:30
Этот робот может приносить вам деньги 24/7.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 22.12.2020 09:26
Дополнительный доход для каждого.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 22.12.2020 05:38
Все еще не миллионер? Финансовый робот сделает вас им!
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 22.12.2020 04:16
Присоединяйтесь к обществу успешных людей, которые зарабатывают здесь деньги.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 21.12.2020 23:51
Даже ребенок знает, как делать деньги. А у тебя есть?
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 21.12.2020 23:14
Сделайте свой ноутбук финансовым инструментом с помощью этой программы.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 21.12.2020 17:46
Зарабатывайте дополнительные деньги без усилий и навыков.
Ссылка - https://plbtc.page.link/aF8A
Ответить | Ответить с цитатой | Цитировать
0 # HenryBlole 21.12.2020 15:40
Обеспечьте свою семью деньгами в старости. Запускайте робота!
Ссылка - http://3d-file.ru/redirect?url=https://hdredtube3.mobi/btsmart
Ответить | Ответить с цитатой | Цитировать
0 # Роберт 17.12.2020 05:15
Обеспечим Ваш Бизнес Клиентами, с оплатой за результат:
ЗАЯВКИ, % ОТ СДЕЛОК, ПОЭТАПНАЯ ОПЛАТА!
Оставьте заявку на https://leadgeneration.moscow/ и мы создадим для Вас продающие высоко конверсионные квизы, настроим поисковую рекламу и привлечем заявки и горячие лиды.
Лидогенерация.Москва, в интернет-маркетинге более 10-ти лет

Заполните заявку на: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # SergaLark 14.12.2020 22:11
Полезный Презент Руководителю На Рождество!

http://shefu-vpodarok.tk

Вся важная бизнесмену инфа в одном отчете.

Абсолютно Все Работающие Способы Защиты Фирмы и Собственника от незаконных действий Налоговой, Полиции и третьих лиц.

Советы адвоката по защите интересов собственника, предприятия в налоговых спорах и арбитраже.






92321546

40145996


54774552
Ответить | Ответить с цитатой | Цитировать
0 # Роберт 14.12.2020 10:50
Обеспечим Ваш Бизнес Клиентами, с оплатой за результат:
ЗАЯВКИ, % ОТ СДЕЛОК, ПОЭТАПНАЯ ОПЛАТА!
Оставьте заявку на https://leadgeneration.moscow/ и мы создадим для Вас продающие высоко конверсионные квизы, настроим поисковую рекламу и привлечем заявки и горячие лиды.
Лидогенерация.Москва, в интернет-маркетинге более 10-ти лет

Заполните заявку на: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # Роберт 08.12.2020 15:47
Обеспечим Ваш Бизнес Клиентами, с оплатой за результат:
ЗАЯВКИ, % ОТ СДЕЛОК, ПОЭТАПНАЯ ОПЛАТА!
Оставьте заявку на https://leadgeneration.moscow/ и мы создадим для Вас продающие высоко конверсионные квизы, настроим поисковую рекламу и привлечем заявки и горячие лиды.
Лидогенерация.Москва, в интернет-маркетинге более 10-ти лет

Заполните заявку на: https://leadgeneration.moscow/
Ответить | Ответить с цитатой | Цитировать
0 # Александр 04.12.2020 03:45
Хотите обеспечить свой бизнес потоком новых клиентов?
Узнайте за 3 минуты о самых эффективных способах привлечения клиентов в 2020 году, прочитав статью!
https://marketing2020.creatium.site/
Ответить | Ответить с цитатой | Цитировать
0 # Виктор 29.11.2020 04:45
Хотите обеспечить свой бизнес потоком новых клиентов?
Узнайте за 3 минуты о самых эффективных способах привлечения клиентов в 2020 году, прочитав статью!
https://marketing2020.creatium.site/
Ответить | Ответить с цитатой | Цитировать
0 # LEAD_MASTER 19.11.2020 17:31
Здравствуйте.
У меня есть возможность ежедневно предоставлять вам контакты потенциальных клиентов на ваши услуги.
Поиск заявок проводится при помощи специального программного обеспечения.
Мониторятся соцсети, форумы, блоги, доски объявлений и подбираются посты, в которых люди проявляют интерес к поиску специалиста по вашей услуге.
Ежедневно поступает несколько десятков заявок. В заявке указывается контакты потенциального клиента + краткое описание требований.
Вам останется только связаться с человеком и предложить свои услуги.
ТРИ ДНЯ БЕСПЛАТНОГО ТЕСТИРОВАНИЯ!
https://clck.ru/Ryhmo

Если понравится, промокод на скидку 10% - ГАЖАБИТЯ-10
Ответить | Ответить с цитатой | Цитировать
0 # owiyarejiduh 12.10.2020 14:22
Buy Amoxicillin Online: http://mewkid.net/when-is-xuxlya/ Amoxicillin 500mg bak.iaxb.economist24.ru.gss.xx http://mewkid.net/when-is-xuxlya/
Ответить | Ответить с цитатой | Цитировать
0 # ogopekuc 12.10.2020 13:58
Buy Amoxicillin Online Without Prescription: http://mewkid.net/when-is-xuxlya/ Amoxicillin 500mg pgu.mdrb.economist24.ru.vhb.hz http://mewkid.net/when-is-xuxlya/
Ответить | Ответить с цитатой | Цитировать

Добавить комментарий


Защитный код
Обновить

Форма авторизации