30к+ аккаунтов от Asterios.tm скачивайте, Пользуйтесь про спасибо не забывайте =)
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
[Ссылки могут видеть только зарегистрированные пользователи. ]
И не флудите пожалуйста в данной теме!
За аккаунты не отвечаю! Файл был слит с какова то форума "с какова не помню было давно"!Для словарей самое оно, и вообще кто шарит тот найдет достойное применение
Кажыся такой тут нету, МБ ошибаюсь если что то потрите
Взято с АЧ by Maloi1992
Перевел в читатетабельный вид))164к аккаунтов в формате лог;пас убраны лишние логины
[Ссылки могут видеть только зарегистрированные пользователи. ]
Прошу прощения, но у него написано Asterios.ru такого сервера нету, есть Asterios.TM или AsteriUs.ru вероятнее всего 2, так как на asterios.tm из разных концов базы по 10 акков проверил, не пашут....
про меня писали некро постер а тут что лутше и спасибок в 3 раза больше хотя абзы я 4 выложил а тут такойже лес древний и 18+ поставилчтоб нубы и долбоебы нескачивали а тут без понимания отнеслись если че пишу гашоный в хлам и по*** что и как будет что думаю то и пишу по сути как есть а там сами разсуждайте как оно мб я неправ
да и ***** все канем для вас стараешся чето зделать а всем по*** скачали взяли себе как и должно быть( я нестремлюсь к подполью тк яб хотел дамп жука с др сайта скакалбы давно просто обидно чтото делаеш а тут бездельники и долбоебы еще выебываются типо лутше сами нехуя толком неделают чтоб норм все было мб неправ но пьяному мб стыдно но похую ) неабезсудте пишу редко но метко как говоритя без обид
Последний раз редактировалось necros555; 17.02.2010 в 22:22.
про меня писали некро постер а тут что лутше и спасибок в 3 раза больше хотя абзы я 4 выложил а тут такойже лес древний и 18+ поставилчтоб нубы и долбоебы нескачивали а тут без понимания отнеслись если че пишу гашоный в хлам и по*** что и как будет что думаю то и пишу по сути как есть а там сами разсуждайте как оно мб я неправ
да и ***** все канем для вас стараешся чето зделать а всем по*** скачали взяли себе как и должно быть( я нестремлюсь к подполью тк яб хотел дамп жука с др сайта скакалбы давно просто обидно чтото делаеш а тут бездельники и долбоебы еще выебываются типо лутше сами нехуя толком неделают чтоб норм все было мб неправ но пьяному мб стыдно но похую ) неабезсудте пишу редко но метко как говоритя без обид
что у трезвого на уме, то у пьяного на языке...правельно всё ты сказал))
________________
Не хочешь играть в Aion? Мы превратим твою игру в Aion! (с)NCsoft
Корпорация Майкрософт предлагает примеры программного кода только для иллюстрации и не предоставляет явных или подразумеваемых гарантий относительно их пригодности для применения в пользовательских приложениях. Примеры в данной статье рассчитаны на пользователя, имеющего достаточный уровень знаний соответствующего языка программирования и необходимых средств разработки и отладки. Специалисты службы технической поддержки Майкрософт могут пояснить назначение определенной процедуры, но модификация примеров для обеспечения дополнительных возможностей или разработка процедур для конкретных задач заказчика не предусмотрена. Чтобы использовать приведенный ниже макрос, настройте книгу Excel, как указано ниже. Создайте новую книгу Microsoft Excel.
На новом листе введите в диапазоне ячеек A1:A9 числа от 1 до 5, пропустив строки, как показано в приведенном ниже примере. A1: 1
A2:
A3: 2
A4:
A5: 3
A6:
A7: 4
A8:
A9: 5
В меню Сервис выберите пункт Макрос, а затем команду Редактор Visual Basic.
Примечание. В Microsoft Office Excel 2007 выберите на вкладке Разработчик в группе Код элемент Visual Basic.
В меню Вставка выберите команду Модуль.
В новом модуле введите следующий макрос: Sub Delete_Every_Other_Row()
' Переменные размерности.
Y = False ' Измените значение на True, если необходимо
' удалить строки 1, 3, 5 и т.д.
I = 1
Set xRng = Selection
' Цикл по всем строкам выделенного диапазона.
For xCounter = 1 To xRng.Rows.Count
' ...увеличить переменную I на единицу и продолжить выполнение цикла по диапазону ячеек.
I = I + 1
End If
' Если Y = True, изменить значение на False; если Y = False, изменить значение на True.
Y = Not Y
Next xCounter
End Sub
Перейдите на лист с данными и выделите диапазон ячеек A1:A9.
Чтобы запустить макрос, выберите в меню Сервис пункт Макрос, а затем — пункт Макросы.
Примечание. В Excel 2007 выберите на вкладке Разработчик в группе Code элемент Макросы.
Примечание. Чтобы вывести на Ленту вкладку Разработчик, нажмите кнопку Microsoft Office, выберите Параметры Excel, затем — категорию Основные, установите флажок Показывать вкладку "Разработчик" на ленте и нажмите кнопку ОК.
Выберите макрос Delete_Every_Other_Row и нажмите кнопку Выполнить.
Создайте новую книгу Microsoft Excel.
На новом листе введите в диапазоне ячеек A1:A9 числа от 1 до 5, пропустив строки, как показано в приведенном ниже примере. A1: 1
A2:
A3: 2
A4:
A5: 3
A6:
A7: 4
A8:
A9: 5
В меню Сервис выберите пункт Макрос, а затем команду Редактор Visual Basic.
Примечание. В Microsoft Office Excel 2007 выберите на вкладке Разработчик в группе Код элемент Visual Basic.
В меню Вставка выберите команду Модуль.
В новом модуле введите следующий макрос: Sub Delete_Every_Other_Row()
' Переменные размерности.
Y = False ' Измените значение на True, если необходимо
' удалить строки 1, 3, 5 и т.д.
I = 1
Set xRng = Selection
' Цикл по всем строкам выделенного диапазона.
For xCounter = 1 To xRng.Rows.Count
' ...увеличить переменную I на единицу и продолжить выполнение цикла по диапазону ячеек.
I = I + 1
End If
' Если Y = True, изменить значение на False; если Y = False, изменить значение на True.
Y = Not Y
Next xCounter
End Sub
Перейдите на лист с данными и выделите диапазон ячеек A1:A9.
Чтобы запустить макрос, выберите в меню Сервис пункт Макрос, а затем — пункт Макросы.
Примечание. В Excel 2007 выберите на вкладке Разработчик в группе Code элемент Макросы.
Примечание. Чтобы вывести на Ленту вкладку Разработчик, нажмите кнопку Microsoft Office, выберите Параметры Excel, затем — категорию Основные, установите флажок Показывать вкладку "Разработчик" на ленте и нажмите кнопку ОК.
Выберите макрос Delete_Every_Other_Row и нажмите кнопку Выполнить.
Этот макрос удалит каждую вторую строку в выделенном диапазоне, начиная со второй.
Примечание. В случае, если список данных состоит из нескольких столбцов, выберите только первый столбец, а затем запустите макрос.
Информация в данной статье относится к следующим продуктам.
Microsoft Office Excel 2007
Microsoft Office Excel 2003
Microsoft Excel 2002 Standard Edition
Microsoft Excel 2000 Standard Edition
Microsoft Excel 97 Standard Edition
Перейти к началу страницыКлючевые слова: kbhowto kbmacro kbprogramming kbautomation kbdtacode kbexpertisebeginner KB213610
так удаляем каждую 2ю строку сам парился оказывается есть такой процесс с решением но с 20к + акаов у мну ексель вешался но мб частями можно зделать как нада
оки ^^ будем непременно ждать))Если ты умееш таковы базы росшифровывать, то у тя там по идее ппц словарик))мош слить мне в пм хоть 50к логинов, очень прошу
________________
Не хочешь играть в Aion? Мы превратим твою игру в Aion! (с)NCsoft
Регистрация: 18.07.2009
Сообщений: 238
Популярность: 1258
Сказал(а) спасибо: 484
30к+ аккаунтов
