Sverlichok

То есть Мегафон списывает средства с моего счета в пользу каких-то сторонних сервисов, не спрашивая меня, как владельца счета!

Спросил, как отключить — говорят, нужно отправить бесплатное SMS со словом «СТОП» на короткий номер 7522. Отправил, пришло сообщение, что отключено.

Далее задаю вопрос, как отключить саму возможность таких «подписок».

Отвечают, что полностью нельзя отключить, можно только блокировать «Услугу Pay By Click» сроком на 3 месяца, отправив код на короткий номер 5151 (скриншот). Заблокировал до марта, поставил напоминание перезаблокировать.

И что интересно, данные «услуги» не светятся в перечне подключенных услуг в ЛК Мегафон, узнать о них можно по факту — после списания средств.

Буквально на выходных отключил сыну подобную подписку на музыку - «прилипла» при поиске песни в интернете, хорошо еще, что успели отловить подписку в пробном периоде, списания не начались.

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

В данном случае у меня списали 35*6 = 210 рублей, пока не заметил и не отключил.

Уважаемые обитатели пикабу, прошу поделиться опытом, как с этим эффективно бороться - как ДО, так и ПОСЛЕ.

Отдельно необходимо отметить, что метод этот довольно известный, но, как правило, не используемый на полную мощность. Так, многим неизвестно - и в официальной справке этого нет - что можно искать не одно значение, а массив значений. Также многие продолжают использовать неудобный вариант WorksheetFunction.Match() вместо удобного Application.Match().

С помощью Application.Match() можно, например, организовать, эффективный поиск множества подразделов на листе за одну операцию при обработке таблиц. Это позволяет сильно экономить по времени поиска и по количеству строчек кода. Также довольно просто можно применить этот метод для операций пересечения и сравнения множеств.

Синтаксис:

Application.Match(<что ищем>, <где ищем>, <как ищем>)

<Что ищем> может быть:

• одно значение - переменная или константа, например «aaa», 123 или ValueToFind, причем различных типов - строка, число, дата, логическое.

  • текстовые значения могут содержать подстановочные знаки * (0+ любых символов),? (один любой символ). Их можно экранировать тильдой ~, если нужно найти именно * или ?

• одномерный массив Array(«aaa», 123)

• диапазон листа Excel (строка или столбец) Range("A1:A10"), Range("A1:F1")

<Где ищем> может быть:

• одномерный массив, содержащий значения различных типов, например, Array(«aaa», 123)

• диапазон листа Excel (строка или столбец) Range("A1:A10"), Range("A1:F1")

<Как ищем>:

• 0 - точно. Массив <Где ищем> может быть неупорядоченным (неотсортированным)

• -1 - поиск наименьшего значения. Массив <Где ищем> должен быть отсортирован по убыванию

• 1 - поиск наибольшего значения. Массив <Где ищем> должен быть отсортирован по возрастанию

Application.Match() возвращает:

• если <что ищем> – одно значение, то возвращается одно значение типа Double (индекс найденного значения в массиве, начиная с 1) или значение типа Error (если значение не найдено);

• если <что ищем> – массив из N элементов, то возвращается массив, содержащий N значений типа Double (индекс найденного значения в массиве, начиная с 1) или значений типа Error (если значение не найдено).

Особенности:

• если значение не найдено, возвращается значение ошибки #N/A [Error 2042] (метод WorksheetFunction.Match() в этом случае генерирует исключение)

• поиск текста производится всегда регистронезависимо, т.е. прописные и строчные буквы А и а считаются одинаковыми, и не зависит от установки Option Compare { Binary | Text }

• при успешном поиске Application.Match() возвращает для каждого искомого значения только первый индекс найденного элемента в <где ищем>. Т.е. если <что ищем> = 2,2 а в <где ищем> находится 2,1,2,2, то результатом будет массив 1,1 - обе двойки найдется в первом индексе.

• Индексы нумеруются с 1 независимо от установки Option Base { 0 | 1 }.

Примеры применения Application.Match()

1. Ищем несколько текстов, в т.ч. по маске, в массиве:

Данный код ищет строки «qqq» (три q или Q подряд) и «a?b» (строка из трех символов, начинающаяся на a или A, заканчивающаяся на b или B с любым символом посередине) в массиве arr, содержащем строки «AAA», «A5A», «Abb».

В результате работы кода в окне Immediate будет напечатано:

Этот результат означает, что строка "qqq" не найдена в массиве arr, а "a?b" соответствует третьему элементу "Abb".

2. Ищем значения из столбца A в столбце C:

Этот код ищет значения из ячеек колонки A листа Excel в колонке C листа Excel. Результат выводится в цикле с предварительной проверкой, найден ли очередной элемент или нет. Эта проверка производится с помощью функции IsNumeric(), которая возвращает Истину в том случае, если аргумент - число. В том случае, если значение не найдено, в результирующем массиве будет находиться значение ошибки (Error), и IsNumeric() вернет Ложь. Также это можно проверить с помощью функции IsError(), которая возвращает Истину, если аргумент является значением ошибки.