Найти в Дзене
На заметку VBA разработчику
Просто чтобы сохранить и себе не забыть. На заметку разработчику VBA Понадобилось мне тут намедни отлаживать иерархически построенную систему из коллекций пользовательских классов - штука сложная в том смысле, что формирование сложной и многоуровневой коллекции элементов усложняет отладку, но зато такую конструкцию проще развивать. Ну, например. у меня есть объект упаковка. В ней коллекция артикулов, которые в ней находятся, и ее свойства - идентификационный номер упаковки и номер упаковки в коробке...
3 месяца назад
Выделить диапазон до конца колонки
Беда многих штатных 1С-ных отчетов, что их сложно использовать как источники данных - они имеют сложную структуру, например, "шапку" вверху, в котором перечисляются названия, фильтры и прочее, а собственно столбцы с цифрами находятся ниже, причем многие заголовки объединенными ячейками (объединенные ячейки - вообще зло, люди, без нужды не пользуйтесь ими). Или иерархическую структуру - тогда вообще туши свет, для статистики и анализа вообще непригодная фигня, надо либо макрос писать, либо крутить-венртеть настройки отчета с группировками в самой 1С (и то не факт, что получится)...
8 месяцев назад
Функция, преобразующая числа в формат EAN13 с контрольным числом
Однажды в далекой-далекой галактике... потребовалось мне преобразовать некоторое число в формат EAN13. Зачем? Потому что штрихкод для товаров должен формироваться по маске. А если я загружаю в 1С товары через шаблон в Экселе, то мне нужно сгенерировать штрихкод так, чтобы он подходил под стандарт EAN13. Что такое и как он формируется можно прочитать, например, здесь. Или здесь, если нужно углубление в историю. Если вкратце, он состоит из 12 числовых символов и контрольной цифры. Вообще, стандарту...
8 месяцев назад
Разбить на строки внутри ячейки по разделителю
Однажды затеяли мы на складе инвентаризацию. Распечатали бумажки, и пошли люди считать. А потом операторы вносили все в табличку в экселе. Но так как операторы были тетушки простые, то строки они не создавали новые копированием, а добавляли внутри ячеек, ОТБИВАЯ ПРОБЕЛАМИ ДО ВИЗУАЛЬНОГО ПЕРЕНОСА НА СЛЕДУЮЩУЮ СТРОЧКУ. Я не знал, что можно не знать про клавишу Alt-Enter, которая внутри ячейки вставляет перенос на другую строку, но они не знали... Теперь и я знаю, что так можно, а люди бывают разные,...
1 год назад
Как убрать лишнее в ячейке Excel
Часто встречающееся явление (особенно в различных импортозамещающих программах), когда в выгрузках в эксель вставляют разные символы в конце или в начале, причем вполне себе печатные. Например, номенклатура при выгрузке формируется через запятую перечислением свойств, и в конце у половины стоит запятая, и это не бьется с выгрузкой той же номенклатуры, но где запятая не стоит. Надо удалить запятую, но она в ячейке часто не единственная и через Ctrl-H заменой не сделаешь. В принципе, сделать это можно формулой: Но формула громоздковата...
207 читали · 1 год назад
Доносы Королева на коллег (белый и пушистый, да): Только Королев написал более 10 доносов. Считаем: №1. 29 мая 1934 г. — донос Королева на Клеймёнова Тухачевскому. №2. 19 апреля 1938 г. — донос на новое начальство института в Октябрьский райком партии: рассказывает об интригах Слонимера и Костикова. №3. 10 ноября 1938 г. — письмо председателю Верховного суда СССР, где заявляет, что Костиков, Дедов, Душкин и Калянова вводят в заблуждение НКВД. №4. 29 ноября 1938 г. — донос Верховному Прокурору Союза ССР гр. Королев сообщает, что вёл «работу большого оборонного значения», и с его арестом на ; ней не осталось никого, «чего и добивались Костиков и его группа». Костиков же «припутал его к ранее арестованным лицам». №5. 3 апреля 1939 г. — донос председателю Верховного суда СССР — сообщает: «Клейменов и Костиков все годы всячески травили и дискредитировали меня и мои работы над проблемой ракетного полета, над ракетными самолетами, имеющими для СССР, особенно в настоящее время, совершенно исключительное оборонное значение». №6. 15 октября 1939 г. — донос Верховному прокурору Союза ССР, где Королёв обвиняет в подлой клевете Клеймёнова, Лангемака и Глушко. Также обвиняет во лжи Костикова, Душкина, Дедова и Калянову. №7. 22 апреля 1940 г. — рассказывает следователю о «происках Костикова и его друга Белова». №8. 13 июня 1940 г. — письмо на имя Л.П. Берия из Бутырской тюрьмы. Обвиняет во вредительстве и клевете Клеймёнова, Душкина, Костикова и Лангемака. №9. 13 июля 1940 г. — донос на имя Сталина, в котором Королёв обвиняет во вредительстве и клевете Клеймёнова, Душкина, Костикова и Лангемака. №10. 23 июля 1940 г. — донос Прокурору СССР о том, что "враги народа Клеймёнов и Лангемак, а также вредители Костиков, Душкин и др., подлой клеветой ввели в заблуждение НКВД".
1 год назад
Мальчик Сева Дундуков* Тридцати пяти годков Пострадал неимоверно Под пятой большевиков. Он, конечно, не бывал Сослан на лесоповал, Но задолго до рожденья В тяжком рабстве изнывал. Жаждой правды одержим, И хотя при нём не жил, Сообщит во всех деталях Про кровавейший режим: Про диктатора усы, Про нехватку колбасы, Про сосиски из бумаги И талоны на трусы. Сева лезет в каждый чат, Ажно клавиши бренчат. И подобных «дундуковых» Часто можно повстречать. Спорить с ними смысла нет – Потому, что вам в ответ На любой разумный довод Настрочат какой-то бред: Про злокозненный Сион, И что Ленин их шпион, И про то, что выход в космос – Это был иллюзион. В головах у этих «сев», Крепко им в мозги засев, «Обжигающая правда» От издательства «Посев». * собительный образ с вымышленным именем. 12.11.2023 Андрей_Шигин
1 год назад
Как я сдавал ОГЭ по английскому языку
Вчера в машине дочка предложила мне сдать тестовый ОГЭ (сайтов с тестовыми заданиями ОГЭ в интернетах полно), так как их учительница рассказала им, что это крайне трудно. На слабо, так сказать, взяла - я в свое время окончил английскую спецшколу (входившую в тройку лучших в Московской области) и 20 с лишним лет проработал в международных преимущественно компаниях, где общение на этом самом английском языке и велось, и повидал и общался с значительным количеством экспатов с разных концов земного шара, в том числе и с носителями английского языка из Великобритании, США, Канады и Австралии...
1 год назад
На хабре опубликована одна моя заметка по поводу классов и пользовательских объектов habr.com/...078
2 года назад
Список Шиндлера или рынок как деградация рабочей силы
Текст выложен здесь просто чтобы выложить. Этот блог для рабочихи технических вопросов в основном, но тут, в общем-то про терию управленния, так что каким-то боком тема к нему причастна Я, собственно, не буду пересказывать содержания знаменитых книг и фильмов. Я даже не буду рассказывать про то, что еврейские историки полностью уверены в том, что никаким убежданным антифашистом или каким-то особенным гуманистом, которых их него слепил Голливуд, Шиндлер отнюдь не было, и услуги по спасению отдельных евреев были оплачены вполне ощутимыми поборами с еврейских общин. Подробности можно прочитать хоть в той же википедии...
2 года назад
Надо ли в школах делать упор на каллиграфию?
Средя ряда педагогов носится идея о том, что, дескать, каллиграфия, то есть, акцентирование при обучении письму на выработку почерка у детей, благотворно сказывается на выраотке у школьников различных позитивных качеств как то, развивает мелкую моторику, вырабатывает прилежание и усидчиковть и плюс ведет к тому, что учителям проще читать и проверять работы школьников в более старших классах. Но тут видится некоторое лукавство - учителям, безусловно, не хочется ломать глаза на ужасных почерках. Но...
159 читали · 2 года назад
Пользовательская функция, вроде VLOOKUP, возвращающая все значения, а не одно
Функции типа VLOOKUP или INDEX(...;MATCH()) ищут только первое значение сверху списка. Но часто возникает необходимость подтянуть все значения по заданному параметру поиска. Для этого можно использовать пользовательскую функцию, написанную как-то на коленке. Function FindAll(LValue As String, SRng As Range, RRng As Range) For i = 1 To Workbooks(Sheets(SRng.Parent.Name).Parent.Name).Sheets(SRng.Parent.Name).UsedRange.Rows.count If SRng(i, 1) = LValue Then FindAll = FindAll & RRng(i, 1) & ";" Next...
2 года назад