Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

 
 
Обсуждаем вопросы только по Excel VBA
(программирование макросов, скриптов, пользовательских функций и т.п.).
Приветствуются ссылки на ресурсы и справочную литературу по теме.
 
Вопросы по работе с MS Excel, не относящиеся к программированию, задаем в теме Excel FAQ

 
Обратите внимание, этот топик для помощи в изучении и использовании VBA. Посему запросы типа "Напишите мне такой-то макрос, я VBA не знаю и знать не хочу" не приветствуются.
Древняя мудрость: "Накорми голодного рыбой и он погибнет, научи его ловить рыбу и ты спасешь его."(R)
 
Предыдущие ветки топика: Часть 1, Часть 2
 
Информация общего характера:
  • Список соответствия имен функций в английской и русской версиях Excel
  • Описание Microsoft Excel File Format (eng.)
     
    Рекомендации:
    Если у Вас есть проблема, не решаемая стандартными средствами Excel (об этом можно уточнить здесь) или требующая автоматизации, попробуйте для начала записать макрос самим Excel через меню Сервис (Tools) - Макрос (Macro) - Начать запись (Record New Macro). Подробнее здесь. В большинстве случаев получившийся код (Сервис-Макрос-Макросы-Изменить) Вас не удовлетворит, но подскажет, какие объекты-методы-свойства использовать.  
    Другой Ваш помощник - Просмотр объектов (Object Browser). Ну и встроення помощь (F1), естественно.
     
    Если Вы в тупике, покажите Ваш код (или часть кода) здесь.  Если вылазит ошибка, цитируйте ее полностью. Если код слишком большой, используйте тeг [more].
    Используйте отладчик - Breakpoints (F9), Watches (Shift-F9), Steps (F8 и др.) Сильно облегчает поиск ошибок.

     
    Рекомендуется к прочтению:
  • Первые шаги с Excel VBA
  • Excel VBA: Приёмы программирования
  • WinApi. Лекция из курса "Основы офисного программирования и язык VBA" (для продвинутых)
  • Daily Dose of Excel (eng.) - тематический блог: советы по работе с Excel и прочие материалы
  • Excel Macros & Excel VBA Code Tips, Tricks (eng.) - советы, трюки и уловки
  • Mr. Excel (forum) (eng.) - весьма оживленный форум по Excel&VBA.
  • Приемы, хитрости, трюки и нюансы работы в Microsoft Excel - сайт "Планета Excel", целиком посвященный Excel и всему, что с ним связано.
  • Microsoft Excel: Таблицы и VBA. Справочник. Вопросы и Ответы. Советы. Примеры.  
     
    Родственные топики:
  • Вопросы по работе с MS Excel - Excel FAQ - часть 1, часть 2, часть 3
  • Технические проблемы с MS Office 2003 или Office XP.
  • Word VBA все вопросы по Word VBA туда
  • Access все вопросы по программированию в Access туда
  • Книжульки по VBA - книги по программированию с использованием VBA
     
    Конкретные вопросы:
    Форма-заставка
    Как запустить макрос при изменении положения курсора или значения ячейки
  • Пример 1
  • Пример 2
  • Пример 3 (проверка области)
  • Пример 4
  • Пример 5
    Зацикливание в функции Change или SelectionChange
     
    Ранжирование без пробелов (макрос включает функции сортировки массива и удаления дубликатов, работает и в Excel 2007)
  • под Office 97
     
    Добавление в главное меню своего пункта, ассоциированного с макросом
    Создание ярлыка на рабочем столе
    Снятие защиты листа при забытом пароле
    Смена раскладки клавиатуры
    Скролл формы колесом прокрутки мыши
    Оптимизация кода по быстродействию использованием массивов
    Найти "чужое" окно и нажать в нем кнопку (вписать текст в текстовое поле)
    Работа с UNICODE-символами в VBA: запись, чтение из ячейки, перевод в ASС и обратно
    Как программно подключить дополнительные библиотеки (например, "Microsoft Scripting Runtime" или "Microsoft ActiveX Data Objects 2.8 Library) через References
     
    Перечень основных ColorIndex'ов из MSDN
     

    Смежные темы:
    Программы » Microsoft Office 2019 & 365 | 2016 | 2013 | 2010 | 2007 | 2003
    Программы » OneNote | Outlook 2013 & 2016 & 2019 | Outlook 2010 | Microsoft Mathematics & Math Solver
    Программы » Word FAQ | Excel FAQ | Access FAQ
    Прикладное программирование » Word VBA | Access VBA  
    Андеграунд » Microsoft Office 2019 | 2016 | 2013 | 2010 | 2007 | 2003
    Андеграунд » OneNote | Visio | SharePoint Server | Project Server | Exchange Server
    Андеграунд » Надстройки (add-ins) и коммерческие макросы Excel
    Андеграунд » Самостоятельная сборка дистрибутивов Оffice 2007/2010/2013/2016 | MUI для Office 2007

  • Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 10:16 11-01-2010 | Исправлено: ALeXkRU, 16:42 03-08-2021
    Drazhar

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Gyura
    можно пожалуйста на примере?

    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 10:05 29-07-2010
    Gyura

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar ,
    Вот в этом и дело, что у меня ничего нормального не получилось. То ли все одинаковые результаты получились, то ли ничего и не получилось, а перенос в двухмерный массив вообще и не удался
    Сейчас у меня нет кода, но на форме несколько OptionButton, и выбирая 1, а потом нажимая OK, должен происходить расчёт формулы, а потом заполнение 2 столбца результатами "y"и соответствующими "x".

    Всего записей: 386 | Зарегистр. 19-07-2005 | Отправлено: 10:35 29-07-2010 | Исправлено: Gyura, 19:28 30-07-2010
    Drazhar

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Gyura
    [Да я не об этом. то есть надо чтобы в первом столбце лежали значения X а во втором значения Y и все?
     
    Добавлено:
    Private Sub OKButton_Click()  
    dim i as double
    j=1
    for i=1 to 100 step 0,5
    sheets("Лист1").cells(j,1).value=i
    sheets("Лист1").cells(j,2).value=funct(i)
    j=j+1
    next i
    end sub
    function funct(x as double) as double
    funct=x^2+2*x+1
    end function

    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 10:57 29-07-2010 | Исправлено: Drazhar, 11:08 29-07-2010
    lorents



    Silver Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Del

    ----------
    Image Catalyst - оптимизация изображений без потери качества

    Всего записей: 3297 | Зарегистр. 30-12-2007 | Отправлено: 18:35 29-07-2010 | Исправлено: lorents, 22:22 29-07-2010
    Gyura

    Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar,
    Спасибо большое!

    Всего записей: 386 | Зарегистр. 19-07-2005 | Отправлено: 19:08 29-07-2010
    Drazhar

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Доброе время суток.  
    Возникла следующая проблема. Есть лист. На листе несколько комбиков и кнопок. При работе на одном определенном компьютере при простом клике на них, начинают ползти шрифты и размеры. Никаких обработчиков событий связанных с ними не стоит.  
    Масштаб 100%. Отдебажить изменение невозможно(оно происходит не из VBA)
    Хоть примерно, в какую сторону копать?
    Заранее спасибо

    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 15:54 30-07-2010
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar, может поступить радикально - все активные элементы убрать в тулбарчик?

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 17:31 30-07-2010
    Drazhar

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ZlydenGL
    в смысле в тулбарчик?

    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 20:47 30-07-2010
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar, создаешь для конкретной книги дополнительный тулбарчик, например в событие OnActivate, а в событие OnDeactivate соответственно вставляешь код скрытия/удаления этого самого тулбарчика. Я сейчас все свои скрипты переписываю под этот подход - намного удобнее ИМХО, чем располагать активные элементы прямо на ячейках рабочей книги!
     
    Получается следующая штука:

    Код:
    Private Sub Workbook_Activate()
    Dim CBar As CommandBar, LaunchImport As CommandBarButton
    Set CBar = Application.CommandBars.Add("My Toolbar", msoBarTop)
    CBar.Enabled = True
    CBar.Visible = True
    Set LaunchImport = CBar.Controls.Add(msoControlButton)
    LaunchImport.Style = msoButtonIconAndCaption
    LaunchImport.FaceId = 8
    LaunchImport.Caption = "My Caption"
    LaunchImport.OnAction = "LaunchModule"
    End Sub
     
    Private Sub Workbook_Deactivate()
    Dim CBar As CommandBar
    For Each CBar In Application.CommandBars
        If CBar.Name = "My Toolbar" Then CBar.Delete
    Next CBar
    End Sub

    Этот пример добавляет тулбар при активной рабочей книге и скрывает ее, если книга закрывается (или если на переднем плане оказывается другая книга - чтоб не вызывать ложные срабатывания). Кнопок естественно можно ставить сколько угодно, при необходимости "фиксировать" их в нажатом состоянии и т.д. Я уж не говорю про многоуровневые выпадающие менюшки Естественно, приведенные процедуры должны находиться на объекте ThisWorkbook.

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 21:10 30-07-2010
    ferias



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Здравствуйте
    Мне кажется что следующий вопрос уже здесь стоял, покрайней мере я уже где-то читал об этом. Если так, то укажите страницу, пожалуйста. Если кто помнит?
    Вопрос: Нужно что бы при вводе данных в "InputBox" вместо цыфр и букв в строке ввода к примеру "abcd123" высвечивальсь бы "*******".

    Всего записей: 39 | Зарегистр. 28-06-2007 | Отправлено: 02:26 31-07-2010
    Drazhar

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    ferias
    У textbox Есть свойство passwordchar
    У inputbox Нативно такой возможности по-моему нет.

    Всего записей: 88 | Зарегистр. 10-11-2009 | Отправлено: 06:14 31-07-2010
    ferias



    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Drazhar
    Это то, что нужно. Спасибо.

    Всего записей: 39 | Зарегистр. 28-06-2007 | Отправлено: 12:49 31-07-2010
    andromedakiev

    Junior Member
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    На VBA нужно вытянуть картинку из Picture1 на форме  и разместить ее в массив.
    Код  заимствован из инета. Вызываю функцию так:
    GetImage Ary, GetDC(UserForm1.Picture1.Picture.Handle), UserForm1.Picture1.Picture.Handle
    в итоге - не работает. ((
     
    Прошу руку помощи! Помогите решить задачу!
     
     
    {Module1
     
    Public Declare Function CreateCompatibleBitmap Lib "gdi32" _
                (ByVal hdc As Long, _
                ByVal nWidth As Long, _
                ByVal nHeight As Long) As Long
     
    Public Declare Function GetDiBits Lib "gdi32" Alias "GetDIBits" _
                (ByVal hdc As Long, _
                ByVal hBitmap As Long, _
                ByVal nStartScan As Long, ByVal nNumScans As Long, _
                ByRef lpBits As Any, lpBI As BITMAPINFO, _
                ByVal wUsage As Long) As Long
     
    Public Declare Function SelectObject Lib "gdi32" _
                (ByVal hdc As Long, _
                ByVal hObject As Long) As Long
     
    Public Declare Function DeleteObject Lib "gdi32" _
                (ByVal hObject As Long) As Long
     
     
    Type RGBQUAD
        b As Byte
        g As Byte
        r As Byte
        Reserved As Byte
    End Type
     
    Type BITMAPINFOHEADER
            biSize As Long
            biWidth As Long
            biHeight As Long
            biPlanes As Integer
            biBitCount As Integer
            biCompression As Long
            biSizeImage As Long
            biXPelsPerMeter As Long
            biYPelsPerMeter As Long
            biClrUsed As Long
            biClrImportant As Long
    End Type
     
    Type BITMAPINFO
            bmiHeader As BITMAPINFOHEADER
            bmiColors As RGBQUAD
    End Type
     
    Public Const DIB_RGB_COLORS = 0 '  color table in RGBs
     
     
    Public Function GetImage(ByRef Ary() As RGBQUAD, hdc As Long, hBMP As Long)
    Dim BMI As BITMAPINFO
    Dim w As Long, h As Long
     
    With BMI.bmiHeader
        .biSize = Len(BMI.bmiHeader)
    End With
     
    GetDiBits hdc, hBMP, 0, 1, ByVal 0&, BMI, DIB_RGB_COLORS
     
    With BMI.bmiHeader
        w = .biWidth
        h = Abs(.biHeight)
        .biBitCount = 32
        .biHeight = -h
    End With
     
    If w <= 0 Or h <= 0 Then
        Err.Raise 11111, "GetImage", "Failed."
    End If
     
    ReDim Ary(0 To w - 1, 0 To h - 1)
    GetDiBits hdc, hBMP, 0, h, Ary(0, 0), BMI, DIB_RGB_COLORS
    End Function
     
    }
     
    { module2
    Option Explicit
     
    Public Declare Function GetPixel Lib "gdi32" _
    (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
     
    Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
     
    Public Declare Function FindWindow32 Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
     
    Public Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, _
    ByVal yPoint As Long) As Long
     
    Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
     
    }
     
     
    вызываю так:
     
    Dim Ary() As RGBQUAD
    GetImage Ary, GetDC(UserForm1.Picture1.Picture.Handle), UserForm1.Picture1.Picture.Handle

    Всего записей: 141 | Зарегистр. 08-01-2005 | Отправлено: 18:48 01-08-2010
    surgutfred



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Люди подскажите, у меня уже крышу сносит.  
    Есть макрос, через который подгружается экселевский файл, необходимая ячейка ищется по содержанию, и от нее уже пляшет вся обработка. Вот строка поиска:
    Set f = w.Find("Сметная прибыль", , xlValues, xlWhole).Offset(1, 1)  
     
    Мне нужно переделать поиск на другое содержание, но вхождение частичное, а не полное.
    Получается так:  
    Set f = w.Find("Итого прямые затраты по", , xlValues, xlPart).Offset(0, 1)
     
    Но после смены этой строчки, макрос уходит как бы в цикл, курсор кружочком моргает и все. Причем самый прикол, что глюк вылазит после смены .Offset(1, 1) на .Offset(0, 1), если этот параметр не менять, то остальные изменеия в строке макрос принимает.
     
    Но больше меня поразила пошаговая отработка макроса.  
    Макрос работает так: Запрос файла-выбранный файл копируется в текущую книгу отдельным листом-поиск ячейки-обработка.
     
    Так вот при пошаговом разборе зацикливание начинается сразу после выбора файла, даже по идеи не дойдя до остального кода. Уже не знаю что и думать.
     
    Excel 2007
     
     
    А поиск по частичному вхождению xlPart медленнее чем по полному xlWhole?
     
     
    Вобчем перекурил я, взял старый вариант, внес по новому изменения, ..... и все пошло!
     
    Что был за глюк я так и не понял.

    Всего записей: 589 | Зарегистр. 21-08-2001 | Отправлено: 12:33 02-08-2010 | Исправлено: surgutfred, 14:39 02-08-2010
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

    Цитата:
    поиск по частичному вхождению xlPart медленнее чем по полному xlWhole?

    C минимальной разницей ИМХО - все-таки поиск идет нативными средствами приложения.
     

    Цитата:
    Макрос работает так

    А можешь весь код макроса привести, только под спойлером? Что-то описанная тобой ситуация напрочь отказывается эмулироваться.
     
    Добавлено:
    Если цикл "рисуется" только из-за оффсета, то можно побороться при помощи ломика и фомки
     

    Код:
    Set f = w.Find("Итого прямые затраты по", , xlValues, xlPart).Offset(1, 1)
    Set f = w.cells(f.Row-1, f.Column)

     
    Вроде не напутал, но если все ж глаз попутал - смысл ИМХО понятно донес

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 14:35 02-08-2010
    surgutfred



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

    Цитата:
    А можешь весь код макроса привести, только под спойлером?

     
    Уже нет переписал.
     

    Всего записей: 589 | Зарегистр. 21-08-2001 | Отправлено: 15:00 02-08-2010
    Eqilibrium

    Newbie
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    Ошибка при компиляции макроса?
    Доброго времени суток... Помогите решить проблему. Стоит Office 2000, есть рабочие файлы Excel (хранятся на серваке Windows Server 2003) в которые вбиваются данные, после этого файлы формируются и т.д. До переустановок WindowsXP все работало Ок и никаких проблем невозникало. Сейчас же при открытии рабочего файла появляется одна ошибка (см. рис.1,2). Потом когда в сформированом файле нажимаем на ячейку отправить (раньше сразу открывалось сформированное письмо с вложением в The Bat, в котором нужно было только указать адрес получателя и отправить его), то сейчас выскакивает ошибка (см рис3). Я так понимаю что после переустановок нарушилась связь Excel с почтовиком The Bat. Вобщем я пока в потерях, поисковик конкретики недает (пишут про макросы, а я в них 0) Подскажите где копать?
    рис.1  

    рис.2

    рис.3

     
    При открытии редактора VBA - alt+f11. Появилось окно в котором меню Tools - References неактивно(см рис.4). Когда попробывал зайти в VBAProject появилось окно с запросом пароля, которого я незнаю(см рис.5).
    рис.4

    рис.5

     
    Попробую узнать пароль на макросы...

    Всего записей: 12 | Зарегистр. 15-02-2010 | Отправлено: 17:08 02-08-2010 | Исправлено: Eqilibrium, 17:12 02-08-2010
    ZlydenGL



    Moderator
    Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
    По поводу рис.5 - OfficeRecovery/Passware тебе в помощь.
     
    По поводу TheBat - проверить, используется ли мыша в качестве почтовика по умолчанию, средствами самого почтовика.  
     
    Насчет остального - ИМХО по делу сказать ничего не получится, нужно иметь исходный файл перед глазами.

    ----------
    Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

    Всего записей: 4264 | Зарегистр. 22-06-2002 | Отправлено: 17:13 02-08-2010
    surgutfred



    Full Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Люди, натолкните на мысль, как сделать.
    В таблице есть строки, где данные забиты в два уровня:
    "275,83
    40,66"
     
    Вот так, но это не объединеные ячейки. Одна ячейка. Мне надо из таких строк сделать две, разделив данные.
     
    Т.е. из этого:
     

     
    Должно получиться это:
     

     
     
    В ячейке что бы написать второй строкой жмем ALT+Enter - это что перевод каретки называется? По нему отслеживать?

    Всего записей: 589 | Зарегистр. 21-08-2001 | Отправлено: 07:56 03-08-2010 | Исправлено: surgutfred, 08:05 03-08-2010
    Anton T

    Member
    Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
    Здравствуйте!
    Как в ComboBox сортировать список по алфавиту?

    Всего записей: 325 | Зарегистр. 12-04-2006 | Отправлено: 09:29 03-08-2010
    Открыть новую тему     Написать ответ в эту тему

    Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213

    Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)


    Реклама на форуме Ru.Board.

    Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
    Modified by Ru.B0ard
    © Ru.B0ard 2000-2024

    BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

    Рейтинг.ru