Архивы за месяц: Июль 2018

Алан Кей. Цитаты

1. “Будущее не стелется перед нами, как дорога. Это что-то, что мы выбираем сами, и до тех пор, пока мы не нарушаем какие-нибудь законы Вселенной, мы можем заставить его работать так, как мы хотим”. 2. “Лучший способ предсказать будущее – изобрести его”. 3. “Смена перспективы по ценности равна 80 очкам IQ”. 4. “Технологии – это…Больше

ООП: Элегантные объекты

Мы дали компьютеру инструкцию, и он ее выполняет.. Просто и понятно? НЕТ! Статические методы в любом контексте — безошибочный индикатор плохого программиста, понятия не имеющего об ООП. Всё сводится к сопровождаемости. При компьютерном образе мышления мы находимся у руля и контролируем поток исполнения инструкций. При объектно-ориентированном образе мышления мы просто определяем, кто есть кто, и…Больше

ООП: Разрушить собор, построить базар. (да, без Джобса не обошлось)

Объект мышления Франческо Нидито Программа Аванзата А.А. 2007/08 Ссылка: Дэвид Вест, «Объектное мышление», главы 1-5, 9 Пример реальной жизни Майкл Хилькит рассказывает об поездке Apple в Xerox PARC: Джобс, наблюдая, как какой-то текст прокручивается по экрану по очереди в обычном режиме, заметил: «Было бы неплохо, если бы он шел гладко, по пикселям, как бумага». Ингаллс…Больше

ООП: Достоинства.Некоторые

выражать мысли в терминах предметной области, объектов и их поведения совместного и повторного использования кода наиболее эффективным образом строить абстракции произвольной сложности эффективные и простые возможности декомпозиции задачи. Реактивное программирование Прозрачное описание и реализация конкурентной модели реализовать любую другую парадигму (но не наоборот) Концептуальная простота. Быстрое прототипирование легкого рефакторинга гибкие, легко модифицируемые и легко расширяемые…Больше

Если гмейл gmail.com не подключает пересылку почты с другого аккаунта

то нужно это делать не через настройки в почте, а из интерфейса гмейл: или по ссылке https://mail.google.com/mail/u/1/?ui=2&ik=a5ffa24dcc&jsver=EZ29HF7TMGc.ru.&cbl=gmail_fe_180610.15_p4&view=mip&fs=1&tf=1&ver=EZ29HF7TMGc.ru.&am=!D5udeBD-JkDX-vlS0jDtRZJWZll-x822T7V_aIVjfLcfiBzOJLHEoyCAAoVsVLOxn4t3CKoPmFvqlj848aWwvz_AFSWwvVWbEHYt8gXGБольше

В массиве вычислять, контролировать на листе

Private Declare Sub Sleep Lib «kernel32.dll» (ByVal dwMilliseconds As Long)   Option Explicit   Private arr_2d() As Variant Private ws As Worksheet Private bDebug As Boolean Private Row_Offset As Long, Col_Offset As Long ‘ Для отслеживания на листе   Private Const Col_Приход As Long = 3 Private Const Col_Расход As Long = 4 Private Const…Больше

Номер строки с искомой датой Excel Макрос VBA

Private Sub Строка_Номер_с_Датой_Лист_test() Dim Дата As Date Columns(1).Select Дата = DateValue(Now) — 2 ‘ дней   Debug.Print Строка_Номер_с_Датой_Лист(Selection, Дата)   End Sub   Private Function Строка_Номер_с_Датой_Лист(rng As Range, _ ByVal Дата As Date) ‘ Возвращает номер строки с найденной датой ‘ планировал сделать через массив, но он и без массива быстро работает Dim el As…Больше

Ячейки Пустые Заполнить из ячеек Свыше

Public Sub Ячейки_Пустые_Заполнить_из_Выше(rng As Range, _ Optional ByVal Формат As String = «d/m/yy;@») ‘ Заполняет пропущенные ячейки в колонке, _ копируя из предыдущей (выше) ячейки. _ Заодно может и отформатировать   If rng Is Nothing Then MsgBox4Debug «ng Is Nothing «, «Ячейки_Пустые_Заполнить_из_Выше»   Set rng = Application.Intersect(rng, rng.Parent.UsedRange)   Dim eL As Range   For…Больше

Word 2010 показать все

Показать или скрыть знаки знаки абзаца, пробела и некоторые знаки форматирования: На вкладке Главная в группе Абзац выберите команду Отобразить все знаки. Не Ctrl-* как указано в справке. А Ctrl+Shift+*(где 8). Туда-сюда.Больше

Массив копировать

аккуратный код проще модифицировать, чем
сложный и запутанный, а сразу написать хороший код удается редко.Больше

Номер следующей ячейки, непустой, после которой, ниже, ячейка пустая

Для случаев, когда нужны номера строк по обычному условию = следующая нижняя ячейка должна быть пустой 22.7.18 нужна 23.7.18 НЕ нужна = следующая не пустая что-то НЕ нужна = следующая не пустая что-то нужна 25.7.18 нужна 25.7.18 не нужна = последняя Private Function Массив_Столбец_Ячейка_не_Пустая_Одиночная(arr_Xd(), _ ByVal iCol As Long, ByVal iRow As Long) _ As…Больше