Кручу, верчу, запутать хочу!
Сегодня хочу вам рассказать, а кому-то напомнить, про зарождение в СССР такого явления как наперсточники. Да, да, именно в СССР. Считается что этот мошеннический «бизнес» порождение лихих девяностых, но на самом деле свой старт он получил во второй половине 80-х вместе с первыми кооперативами и ларьками. Ближе к 90-м это криминальное явление стало настоящей эпидемией. В любом месте скопления людей с деньгами, особенно рядом с рынками, на центральных улицах городов орудовала бригада мошенников с наперстками. В Москве эти бригады обдирали прохожих у всех центральных станций метро, на всех рынках, на Арбате и Калининском проспекте, разве что в Кремле не сидели. Просто там места были заняты «наперсточниками» покрупнее.
Суть игры была проста. В людном месте катала ставил столик, или просто клал на землю картонку, на которой крутил наперстки с металлическим шариком. Позже их заменили стаканчики с паралоновым шариком, который визуально казался больше, но легко зажимался между пальцами. Задачей лоха было угадать под каким наперстком находится шарик. «Кручу-верчу Вас запутать хочу! Этот край Красноярский, а этот Краснодарский! Красноярский девятьсот, краснодарский две пятьсот!» «Хорошее зрение, большая премия!» — кричал наперсточник.
Премия за правильный ответ действительно впечатляла — пять, десять или двадцать пять советских рублей. Приличная сумма по тем временам. По желанию ставку можно было легко повысить до заоблачных высот. Причем сам наперсточник недвусмысленно показывал свою состоятельность потрясая купюрами.
Советский человек был до безобразия наивен. Сейчас такая с позволения сказать «схема» не прокатила бы даже в детском саду. Тогда же на нее велись вполне взрослые, образованные люди. Просто никому и в голову не могло придти что можно вот так запросто обманывать людей на улице под носом у милиции. К тому же наперсточничество не было театром одного актера. На глазах у потенциальных жертв разыгрывался спектакль, где подставные лица, выигрывали, проигрывали, отыгрывались и в результате срывали большой куш. В итоге раззадоренный клиент ставил деньги, уверенно тыкал в тот наперсток, где он ТОЧНО ВИДЕЛ шарик. Но водящий поднимал наперсток, а шарика там не было… Деньги исчезали в кармане наперсточника.
Разумеется, выиграть было совершенно невозможно. Никакого шарика под колпачком не было, он был всегда в руках у низового (так на жаргоне назывался шулер). Лезть в драку было себе дороже, точку всегда охраняла пара «быков» маячивших неподалеку. Обращаться в милицию так же было бесполезно, уже тогда им начали отстегивать за то, чтобы закрывали глаза на происходящее.
Со временем кормовая база жуликов стала уменьшаться, все больше людей начали понимать что их просто кидают и разводилам пришлось совершенствовать технологии, усложнять схему. Например, подставной выигрывал у наперсточника несколько раз подряд и в последний раз решал сорвать крупный куш, поставив все. Но до ставки наперсточника ему не хватало какой-то суммы. Кто-то из прохожих, видя, как тот выигрывал, добавлял свои деньги чтобы разделить выигрыш — и вуаля, подставной проигрывал.
Имелся и другой вариант «развода», названный жуликами «для умных». Человеку, который был уверен, что наперсточники — жулики и выиграть у них нельзя, предлагали особенную схему. Мол, вставай в толпу и выигрывай у меня то, что мне будут проигрывать лохи. Вот только в роли лохов выступали подставные, и они почему-то сразу начинали выигрывать, а «умному» приходилось ставить свои деньги и проигрывать. Когда же до него доходило, что его развели, быки просили его по-тихому удалиться.
Не скажу точно когда наперсточники окончательно исчезли с улиц, но можно с уверенностью сказать что из жульнического бизнеса в широком его понимании они и не уходили. На смену шарикам и стаканчикам вскоре пришли первые «однорукие бандиты», а потом и залы игровых автоматов, которые как чума расползлись по всем городам России. Страшно представить какие суммы оставили там наши соотечественники. А причина тому проста. Как любил говаривать самый известный мошенник 90-х Сергей Мавроди:
Источник статьи: http://zen.yandex.ru/media/id/59f8cdf38651654951d8a093/kruchu-verchu-zaputat-hochu-5b026a7f5816699c7bdf201e
Кручу-верчу, запутать хочу! Или современная историческая геология на примере скэблендов.
Слоны-животные полезные.. Геология-наука полезная, особенно её практическо-прикладные разделы, но вот с её исторической частью случаются периодически всяческие казусы.
Что нам говорят открытые источники:
Вики цитата: Скэ́бленд — территория ледниковой и приледниковой зон, подвергающаяся или подвергавшаяся ранее многократному воздействию катастрофических суперпаводков (дилювиальных потоков, потопов, фладстримов, мегафладов) из ледниково-подпрудных озёр , оставивших оригинальные эрозионные, эворзионные и аккумулятивные ( дилювий ) образования, по которым возможно реконструировать историю скэбленда и дать прогноз [1] . Скэбленд представляет собой территорию, рассечённую параллельными ложбинами, изобилующую каплевидными в плане холмами, водобойными (эворзионными) котлами и следами кавитации ; по выражению, М. Г. Гросвальда , это геоморфологический ландшафт, созданный гидросферной катастрофой.
Скэбленд дословно-содранная земля, ага-уже интересно, но официоз вещает нам, что земля это содрана мегафладами-т.е. мега наводнениями, правда всего лишь якобы из-за прорывов ледниковых озер-допустим..
Идем дальше, а дальше все гораздо интереснее и веселее. Далее мы видим всю мощь, хитрость, нахрапистость и наглость апологетов от трад. ист. геологии, втирающих добропорядочным самаритянам как оно типа того что было якобы на самом деле..
Вчитаемся и попытаемся понять хоть что-нибудь, итак: Скэбленд может формироваться тремя типами рельефообразующего процесса — это процессы дилювиальной супер эрозии , дилювиальной эворзии и дилювиальной аккумуляции. Тип определяется набором форм дилювиального морфолитокомлекса и преобладание одних форм над другими в зависимости от объёма прорвавшихся озёр, мощности ледниковых плотин, исходного ландшафта и количества и энергии дилювиальных потоков (мегафладов, фладстримов, потопов). Классификация типов и форм дилювиального морфолитокомплекса была предложена в середине 1980-х годов и в настоящее время практически не претерпела изменений.
Чтобы слишком не утомлять читателя, рассмотрим маленький кусок определения дилювиальной эворзии — это просто песня:
Формы дилювиальной эворзии генетически и пространственно связаны со спиллвеями и дилювиально-эрозионными долинами прорыва и заплеска. Эворзия — это разрушение горных пород, обусловленное донным вращением субвертикально падающей воды. Судя по данным лабораторных исследований, эворзия коренных пород дилювиальными потоками, особенно на участках со сверхкритическими скоростями течения, могла происходить очень быстро. Причина этого — в процессах кавитационного разрушения пород, которые развивались на контакте ложа с воздушно-водяной смесью. Гидродинамические кавитационные каверны возникают в жидкости из-за местных понижений давления в результате увеличения скорости течения. Перемещаясь с потоком в зоны более высокого давления, каверны захлопываются, излучая при этом ударную волну, которая разрушает субстрат. В таких условиях даже при небольших скоростях потока (около 5 м/с) кавитация отвечает скоростям 100 м/с. Скорости же дилювиальных потоков были гораздо больше. Кавитационные процессы очень характерны для дилювиальной эрозии, а дилювиально-эворзионные образования вообще правильнее называть дилювиальными эворзионно-кавитационными -во как! Ни больше, ни меньше, прямо-таки нагромождение мегамудрых терминов и понятий, пытающихся типа объяснить и доказать, что то что ниже будет приведено сделала вода, вырвашаяся на свободу из плена ледниковых озёр. (А почему «Ы»-чтобы никто не догадался!).
Ну что же, посмотрим, что имели ввиду гиганты мысли, на примере обещанных северо-американских скэблендов, расположеных в штате Вашингтон в каньоне Гранд-Кули, и в соседнем Орегоне в бассейне реки Колумбия и её притоке реке имени Джона Дея:
Ок, допустим те картинки, что были выше-это всё дело рук воды, в каких-то там лохмато-древних периодах, тогда, уважемый читатель, пожалуйста, вернись выше и еще раз прочитай об преславутой дилювиальной эврозии, постарайся хоть что-нибудь запомнить и с этим богажом «знаний» подойди к суровому горняку из приведенных ниже совремнных карьеров и попробуй доказать ему что это все образовалось в силу естественных причин, и если бы не было техники, то и его работу можно было бы списать на воду..
Кривой рог:
Балаклава:
Железногорск:
Объемы разработок П.И. в приведенных северо-американских скэблендах-карьерах колоссальные, но где отработанная порода??
-Да вот же она родимая, туточки, в том же разнесчастном Орегоне, так называемое чудо мать её «природы»-цветные, или раскрашенные холмы:
..таких вот шняжек тоже полно там:
Но, то что было выше-это всё баловство, по ходу зреет новая сенсация. не исключено, что половина штата Вашингтон, половина Орегона, Монтана, Айдахо, Вайоминг, Невада, Аризона, Нью-Мексико, естественно Юта, а также часть Колорадо и Калифорнии все они почти сплошняком покрыты отработкой, не поленитесь друзья и самостоятельно рассмотрите данные места в геосервисах, и попробуйте сделать свои выводы. а выглядит это примерно так, Орегон:
..и эта безрастительная картина в благодатных широтах тянется на тысячи и тысячи квадратных километров:
И в довесок базальтовый орегонский бонус:
А как вам такое-гигантская ПИРАМИДА из базальтовых шести-восьми гранников, Вайоминг со своей дьвольской скалой отдыхает:
Постскриптума не будет, только видео с места событий:
Хотя, пожалуй в завершении надо сказать, что наличие следов мощных наводнений, а там они определенно были нисколько не объясняет все те особенности рельефа.
Источник статьи: http://vel124.livejournal.com/25218.html
Кручу, верчу, запутать хочу
Дело было накануне дня рождения босса на одной из моих прошлых работ. Шеф был солидным таким седовласым мужиком, возрастом слегка за пятьдесят. Пока занимал свое место, был он жутким бабником, и всегда выбирал себе в секретарши незамужних стройных девчонок, не старше 25 лет.
И вот, очередная его секретутка, не блещущая особым умом, но отличающаяся невероятными стервозностью, заносчивостью и самомнением, решает организовать ко дню его рождения барский подарок, на который собирает со всего офиса по 500 руб. с носа.
Честно иду сдавать деньги, в руках сжимаю пятисотрублевую купюру. В приемную входим одновременно с одним коллегой, который так же собирался сделать взнос.
Подходим к столу, я достаю свои 500 р., а он тысячу.
— О, — говорю, — держи тогда мои 500, а мне косарь давай.
— Ок, — коротко отвечает коллега. Мы обмениваемся на глазах у секретарши купюрами, и уже я протягиваю ей тысячу рублей.
Она берет деньги, записывает на листик:
И тут я, вот клянусь, без всякой задней мысли говорю, мол, давай мне сдачу с тысячи.
Она лезет за деньгами, и не моргнув глазом сдает мне 500 рэ. Спокойно беру деньги и двигаю в свой кабинет.
И пока иду по коридору, все так же сжимая в руках «пятисотку», пытаюсь осознать, как так вышло-то? Вроде и сдал деньги, а вроде и вот они у меня в руке. Черная магия какая-то.
Дубликаты не найдены
Да никто никого не наебывал. Потом вернулся, досдал по чесноку)
А секретарь долго пыталась понять, почему я деньги пришел второй раз сдавать.
Такое нужно в посте писать, а не в комментах. Тут, конечно, секретуток не любят, но их дело. Обижать таких просто так тоже не стоит)
Посчитал этот момент несущественным)
Просто по посту получается, что Вы нехороший человек)
Нехороший человек, редиска!
На самом деле я хороший. И честный до безобразия. Даже когда на работе мне ошибочно дважды перевели отпускные, взял, дурак, и пошел главбуха в известность ставить)
Если бы не поставили, потом были бы проблемы)
У меня бы никаких проблем не было абсолютно) Могли быть у кассира, или у начальника финансового отдела. Сам главбух признался, что если бы сам я не пришел, то ни в жизнь бы не нашли куда деньги ушли. Мизерная вероятность обнаружить это была только при составлении отчетов экономистами по зп, но объемы у нас ого-го, так что сумма моих отпускных бы просто растворилась там, как бутылка водки в Черном море. А я что. мне чужого не надо.
По посту получается, что секретарша заносчива и глупа. А автор в этом убедился.
Момент не существенный, а минусов напихают существенно! ))))))))))))))
Эт точно, а то я только хотел написать- черный наебон)
Автор, у тебя фамилия не Блэйн?
Никогда в этой карусели не учавствовал. Получается, что просто откладываешь на свой подарок весь год. А если потом подарят хрень ненужную? Лучше себе в копилку и потом подарить что нравится. А подарки другим должны быть добровольными, от чистого сердца, а не принудиловкой.
Это вопрос к самоорганизации. У вас день варенья, заказал пару тортиков, принес всех угостил. Все довольны, в офисе праздник.
ну так если не хочешь не сдавай а дари сама в чем проблема
Блин, да я знаю ее, на сейчас на кассе работает. Даже ролик про нее сняли
С вас одна тысяча пятьсот четыреста семьдесят восемь рублей.
«Топора нет, рубля нет, ещё рубль должен. И ведь правильно всё» (с)
Секретутка — это что-то из лексикона тех, кто использует термин «новый русский»)
Вступил в клуб к боссу и тоже отъебал секретаршу, хоть так)
prefix: Сегодня едем втроем с друзьями в такси, я на переднем сиденьи
prefix: Подъезжаем к парадной, спрашиваю таксиста: «Сколько?»
prefix: Таксист говорит 200
prefix: Я повернувшись к таксисту говорю «нас четверо значит с каждого по 50»
prefix: Все дают по 50, таксист тоже вытаскивает полтинник и отдаёт мне.
prefix: Я все деньги отдаю таксисту, тот пересчитывает, говорит «до свиданья»
prefix: Только поднявшись по лестнице мы поняли, что что-то не так.
. зашёл я перед работой в ларёк, даю сто рублей, прошу сигареты за восемьдесят. Продавщица меня, постоянного клиента, знает хорошо — и ещё момент такой: я иногда прошу у неё сдачу десятирублёвками, для дочкиной копилки. Вот она, как обычно, и спрашивает: «Как вам сдачу дать»?
Я в шутку говорю: «А пятисотками. «
Леди лезет в кассу и начинает отсчитывать пятисотки. Одна, две, три, четыре.
Аут.
Секунды три стояла неподвижно, хрустя мозговыми шестерёнками. Потом подняла глаза и жалобно так: «А сколько я вам должна-то?».
Скорее таксист с каждого по стольнику возьмёт. Ну или по двести.
очевидно, когда Боженька интеллект раздавал, личный секретарь вашего шефа стояла в другой очереди, может быть, за бюстом.
Красавчик, смотри только во вкус не войди.
Ну я понял, что он не очень любит своего шефа и его секретаршу, вот потому и красавчик, а так то дааа некрасиво поступил.
Создаём Личную книгу макросов VBA
Вам необходимо использовать один и тот же макрос (пользовательскую функцию) в разных рабочих книгах? Нет ничего проще, сохраните его в Личной книге макросов, файл которой имеет название — PERSONAL.XLSB. Он скрыто открывается при запуске программы MS Excel и доступен только на вашем ПК.
Создание и сохранение кода в Личной книге макросов
1. В строке состояния, нажмите иконку записи макроса:
Или на вкладке Разработчик ► Запись макроса (Код):
Если вкладка Разработчик отсутствует, нажмите в Строке меню или на Панели инструментов правую кнопку мыши и выберите в меню вариант Настройка ленты. :
В окне настройки, установите галку Разработчик:
2. В открывшемся диалоговом окне Запись макроса, из выпадающего списка Сохранить в: выберите вариант Личная книга макросов, нажмите на кнопку Oк:
На вкладке Разработчик ► Остановить запись (Код).
3. Закройте текущую книгу нажав Сохранить в диалоговом окне:
Файл Личной книги макросов создан.
Чтобы узнать путь к файлу, откройте новую книгу, нажмите клавиши ALT + F11, редакторе Visual Basic (VBE) вставьте в «Project-VBAProject» (PERSONAL.XLSB) макрос:
Sub ПутькФайлу()
ActiveCell.Value = ThisWorkbook.Path
End Sub
В любом случае, книга PERSONAL.XLSB находится в папке XLSTART , которую можно найти с помощью поиска в проводнике Windows.
Закройте VBE и выполните макрос в окне MS Excel.
В любом случае, книга PERSONAL.XLSB находится в папке XLSTART, которую можно найти с помощью поиска в проводнике Windows.
Если вы хотите написать свой макрос (пользовательскую функцию) или добавить готовый из интернета, откройте редактор VBE (ALT + F11), выберите папку «Project-VBAProject» (PERSONAL.XLSB) и вставьте в модуль нужный код. Уже записанные в книгу макросы удалять не нужно, они не будут конфликтовать между собой, если в одном модуле не хранить макросы с одинаковыми именами.
Подпрограммы, размещенные в Личной книге макросов, можно просмотреть в окне Список макросов, открыв его из любой рабочей книги MS Excel (Alt + F8):
Они будут перечислены с приставкой PERSONAL.XLSB!.
Пользовательские функции в этом окне не отображаются:
Пользовательские функции, размещенные в Личной книге макросов, доступны для просмотра, выбора и вставки их в ячейки рабочего листа через Мастер функций, расположены в категории Определенные пользователем. Выбираются и вставляются в ячейки так же, как и все остальные функции.
Вызов процедур из Личной книги макросов осуществляется, как и запуск процедур из любой другой рабочей книги.
Удаление Личной книги макросов
Для удаления, найдите с помощью поиска в проводнике папку XLSTART и удалите из нее файл PERSONAL.XLSB.
Особенности работы с Личной книгой макросов
1. Возможны сложности, у корпоративных пользователей, т.к. файл в системной папке скрытой, для решения, обратитесь к своему Системному администратору;
2. На слабых компьютерах, при использовании, MS Excel будет запускаться медленнее;
3. Периодически очищайте от старых и ненужных макросов.
Макрос для удаления пустых столбцов в книгах Excel
При выгрузке из 1С, часто файлы содержат пустые столбцы (в т.ч. и скрытые), которые мешают дальнейшей обработке данных. Приходится удалять их руками, что совсем не продуктивно. Макрос решит задачу мгновенно.
Копируйте код и сохраните его в Личной книге макросов.
Sub ColumnDel()
‘Удаляем пустые столбцы
Dim i As Long
Dim rgMy1 As Range
Dim rgMy2 As Range
Set rgMy1 = Application.Range(ActiveSheet.Range(«A1»), _
ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))
Application.ScreenUpdating = False
For i = 1 To rgMy1.Columns.Count
If WorksheetFunction.CountA(rgMy1.Columns(i).EntireColumn) = 0 Then
If rgMy2 Is Nothing Then
Set rgMy2 = rgMy1.Columns(i).EntireColumn
Else
Set rgMy2 = Application.Union(rgMy2, rgMy1.Columns(i).EntireColumn)
End If
End If
Next
If rgMy2 Is Nothing Then
MsgBox «Не найдено пустых столбцов», vbInformation, «Для информации»
Else:
rgMy2.[Delete]End If
Application.ScreenUpdating = True
End Sub
Открыть редактор VBA Alt +F11:
Вызвать меню для выполнения или изменения макросов Alt + F8:
На выполнение макроса можно назначить «Горячие клавиши», нажав в окне Параметры:
В поле Сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать. Важен регистр и язык. Нельзя назначить макрос на функциональные клавиши Excel.
Для Windows сочетание клавиш для строчных букв — Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.
Для Mac сочетание клавиш для строчных букв — Option + Command + буква или Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.
Доска мотивации для отличившихся сотрудников одной Крупной и Успешной компании.Доска висела на видном месте для Клиентов
Оптимизация
Не сова, но тоже «эффективный»
Как снять защиту с VBAProject в Excel
Поставили пароль на VBAProject и забыли его? Есть файл с макросами, хотите в них разобраться, но проект защищён? Не беда, сломаем за 5 минут.
1. Закройте файл, сделайте его копию на случай Fuck Up.
2. Измените расширение файла .xlsm на .zip (пкм Переименовать или F2):
3. Откройте zip файл, найдите папку xl и в ней файл vbaProject.bin:
4. Перетащите файл vbaProject.bin из архива:
6. При помощи поиска (Ctrl+F) найдите строку DPB и замените в ней букву B на любую другую, сохраните и закройте файл:
7. Перенесите обновленный файл vbaProject.bin обратно в архив, закройте архив.
8. Измените расширение файла .zip в .xlsm.
9. Откройте файл, в появившемся диалоговом окне нажмите Да:
10. Откройте Visual Basic (Alt+F11) или вкладка Разработчик ► Visual Basic, в появившемся диалоговом окне нажмите Ок:
11. Окне редактора выберите Tools ► VBAProject Properties. :
12. На вкладке Protection уберите галку Lock project for viewing и сохраните файл:
Не сработало? Поможет бесплатная надстройка MACROTools VBA Excel, а надстройка EXCELTools автоматизирует ваши рутинные и монотонные операции в MS Excel.
При желании проект можно поддержать рублем.
Хотите научиться самостоятельно писать макросы и разбираться в VBA, но не знаете с чего начать? Лучший канал на YouTube по этой теме:
Начальник
Функции Excel: СУММЕСЛИМН (суммирование по нескольким условиям)
Функция СУММЕСЛИМН суммирует все аргументы, удовлетворяющие нескольким условиям.
Например, можно найти сумму продаж менеджеров по месяцам.
=СУММЕСЛИМН(диапазон_суммирования (ЧТО СУММИРУЕМ); диапазон_условия1 (ГДЕ ИЩЕМ УСЛОВИЕ 1); условие1 (ЧТО ИЩЕМ В ДИАПАЗОНЕ 1) ; [диапазон_условия2; условие2]; …)
Аргумент_1 Диапазон_суммирования (обязательный аргумент) диапазон ячеек для суммирования.
Аргумент_2 Диапазон_условия1 (обязательный аргумент) диапазон, в котором проверяется Условие1.
Аргумент_3 Условие1 (обязательный аргумент), определяет, какие ячейки суммируются в аргументе
Условия могут вводится в виде: 52, «>45», A2, «текст» или «22».
Диапазон_условия1 и Условие1 составляют пару, определяющую, к какому диапазону применяется условие при поиске. Соответствующие значения найденные в этом диапазоне ячеек суммируются в пределах аргумента Диапазон_суммирования.
Аргумент_n Диапазон_условия2, Условие2, … (необязательный аргумент) дополнительные диапазоны и условия для них.
Можно ввести до 127 пар диапазонов и условий.
Совет: ошибки могут возникать при протягивании формулы, поэтому закрепляйте диапазоны и условия используя клавишу F4.
Функцию можно вызвать, через:
Мастер формул, раздел Математические;
Вкладку Формулы ► Математические;
Введя в строку =СУММЕСЛИМН(.
Еще интересное по теме Excel:
Как в Excel из кросс-таблицы сделать плоскую
В этой статье разберем практическую задачу.
Кросс-таблица (Сводная таблица) – способ визуализации данных, в котором они упорядочены по строкам и столбцам. Строкам соответствует одна группа данных, столбцам другая, их пересечение содержит информацию, объединяющую их.
Выполнить такую магию без COPY/PASTE можно при помощи Макроса или надстройки Power Query.
1. Откройте редактор VBA: ALT+F11;
2. Создайте новый модуль Insert ► Module:
Sub ПреобразованиеТаблиц()
Dim OutputRng As Range
Dim InputRng As Range
Dim out_row As Long, out_col As Long
Dim in_col As Long, in_row As Long
Set InputRng = ActiveCell.CurrentRegion
Set OutputRng = Application.InputBox(prompt:=»Выберите ячейку для вывода новой таблицы», Type:=8)
OutputRng.Range(«A1:C1») = Array(«Столбец1», «Столбец2», «Столбец3»)
out_row = 2
out_col = 2
For in_row = 2 To (InputRng.Rows.Count — 1) * (InputRng.Columns.Count — 1) + 1
For in_col = 1 To 3
If in_col = 1 Then OutputRng.Cells(in_row, in_col) = InputRng.Cells(out_row, 1)
If in_col = 2 Then OutputRng.Cells(in_row, in_col) = InputRng.Cells(1, out_col)
If in_col = 3 Then OutputRng.Cells(in_row, in_col) = InputRng.Cells(out_row, out_col)
Next in_col
out_col = out_col + 1
If out_col = InputRng.Columns.Count + 1 Then
out_col = 2
out_row = out_row + 1
End If
Next in_row
End Sub
4. Сохраните книгу с поддержкой макросов;
5. Создайте кнопку для вызова макроса Разработчик ► Вставить:
6. Назначьте на кнопку макрос:
7. Выделите любую ячейку исходной таблицы, нажмите кнопку. В открывшемся окне выберите ячейку для вывода новой таблицы:
1. Загрузите таблицу в редактор, вкладка Данные ► Получить данные ► Из других источников ►Из таблицы/диапазона;
2. Выделите первый столбец, нажмите пкм на шапке столбца ► Отменить свертывание других столбцов:
В редакторе можно переименовать заголовки столбцов и изменить формат данных при необходимости.
3. Загрузите запрос, окно редактора запросов, Главная ►Закрыть и загрузить ► Закрыть и загрузить в. :
4. Выберите вариант Таблица, указав расположение для выгрузки:
Полезно? Пишите в комментах, следующую тему.
Функции Excel: СУММЕСЛИ (суммирование по одному условию)
Функция СУММЕСЛИ используется, когда вам необходимо просуммировать значения диапазона, соответствующие одному заданному условию. Например, необходимо просуммировать заказы за период по менеджеру (поставщику, покупателю, дате) или значения больше 10 000.
=СУММЕСЛИ(Диапазон ячеек (ГДЕ ИЩЕМ); Условие (ЧТО ИЩЕМ); [диапазон_суммирования] (ЧТО СУММИРУЕМ))
Аргумент_1 Диапазон ячеек, оцениваемых на соответствие условиям. Ячейки в каждом диапазоне должны содержать числа, имена, массивы или ссылки на числа. Пустые и текстовые значения игнорируются. Выбранный диапазон может содержать даты в стандартном формате Excel.
Аргумент_2 Условие в форме числа, выражения, ссылки на ячейку, текста или функции, определяющее, какие ячейки необходимо суммировать. Подстановочные знаки можно включать в вопросительный знак (?), чтобы они соответствовали любому символу, звездочку (*) в соответствии с любой последовательностью знаков. Если требуется найти непосредственно вопросительный знак (или звездочку), необходимо поставить перед ним знак «тильда» (
Условие может быть выражено в виде 42, «>66 000», B5, «7?», «Iphone *», «*
ВАЖНО: текстовые условия, условия с логическими и математическими знаками необходимо заключать в двойные кавычки («текст»).
Аргумент_3 Диапазон_суммирования (не обязательный) ячейки, значения из которых суммируются, если они отличаются от ячеек, указанных в качестве диапазона.
Если аргумент опущен, Excel суммирует ячейки, указанные в Аргументе_1 (те же ячейки, к которым применяется условие).
Диапазон Аргумента_3 должен быть одного размера , что и Аргумента_1.
Функцию ВПР можно вызвать, через:
Мастер формул, раздел Математические;
Вкладку Формулы ► Математические;
Еще интересное по теме Excel:
Hard-Excel без тормозов, борьба с Гига-книгами
Часто в работе приходится сталкиваться с гигантскими файлами Excel в которых пользователи чего только не всунут, иногда размер таких файлов достигает 100Мб (даже без рисунков), поэтому решил написать именно о двух самых распространённых причинах зависания гига-книг бухгалтеров и других пользователей, практикующих вуду в Excel. Конечно, вы можете найти данную информацию в интернете, но лучше себе сохранить пару картинок, чем тратить время. И так начнём.
1.Если данные в документ excel вставляются листами или столбцами/строками из файлов, созданных в ИНФИН, 1С, SAP и других подобных ERP-системах, а также с других книг excel. При этом они генерируют в файл «пустые» ячейки (забитые пробелами) и объекты типа “Надпись” . Успешно практикующий бухгалтер, может копировать некоторые столбцы годами. Со временем файл становится очень объёмным, так как забивается. Решение следующее:
Включаем вкладку “Разработчик”
Далее вызываем редактор нажав Alt+F11 (если у вас не вызывается можно включить вручную)
Создаётся новый макрос module1 в который нам нужно внести следующие строки (пункт 2) :
For Each oSh In ActiveSheet.Shapes
Сохраняем данные изменения и подтверждаем(пункты 3,4,5).
Закрываем данное окно и уже в самом Excel применяем этот макрос перейдя во вкладку
“Разработчик” и выбрав “Макросы” — “DeleteAllTextBox”
2. В файле есть много разных формул, в особых случаях, прописанных на каждую ячейку, либо ячейка имеет очень много связей. В таком случае изначально включённая функция Excel “автоматического завершения записей” начинает приносить вред вместо пользы, так как из-за сложности связей ячеек предугадать по правилу предыдущих записей она уже не может и вместо этого начинает жёстко тупить. Достаточно просто отключить данную функцию и всё заработает в разы быстрее.
Надеюсь кому-то пригодится, всем спасибо за внимание
Попались!
А ты почему уходишь с рабочего места не закончив задания на сегодня .
фото из открытых источников
В своё время когда жена родила второго ребёнка мне пришлось бросить командировки и вахты и устроился временно работать инженером в ПТО (производственно-технический отдел) чтоб помогать ей в случае чего .Начальница была властной женщиной,не любила когда ей перечили даже если она несла очередную чушь или пыталась внести изменения в проект которые противоречили всему что можно и вели к удорожанию , уж не знаю с чем это было связано , хотя достаточно грамотная женщина.И если она говорила что необходимо задержаться или выйти в выходной то все так и делали , другое дело что говорилось это как правило ближе к вечеру а не за ранее и плевать кто например заберёт ребёнка из сада если некому.
Пару раз я так вечеровал и выходил в выходной день, но по зарплате прибавки не увидел.Просил разобраться с этим свою начальницу но руководство считало что если мы что то не успеваем то это наши промахи и дополнительно оплачивать не собиралось.Хотя контора развивалась и брались много объектов то и справляться становилось всё труднее.После этого я взял копию трудового договора , должностные обязанности и график работы , положил на видное место моего стола и потом когда кто то пытался заставить меня вечеровать или выйти в выходной день , то доставал эти документы и показывал , а также объяснял что если хотят чтоб я работал в выходной день , то от них Приказ на это и моё письменное согласие , с оплатой как положено и оповещением заранее .
Так потом меня к руководству вызывали и начальница разговаривала со мной об этом , но я работал нормально и по работе ко мне претензий не было , соответственно уволить не за что.
Потом вот это правило иметь эти документы на столе или в ящике пару раз выручало на других работах где так же пытались сесть на голову.
Источник статьи: http://pikabu.ru/story/kruchu_verchu_zaputat_khochu_6199276