Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Генератор случайных последовательностей коррелирующих между собой., Счетчик (спидометра) "хитрый" , как в старом электросчетчике.
 
в ячейку В3 поступают числа по порядку 1,2,3,и т.д.
в ячейке В4 идет циклический счет по 31

в общем нужен счетчик у которого четные колеса крутятся вперед нечетные назад
цифры на колесах от 1 до 31
всего 10 колес
второе колесо и девятое самые быстрые
второе колесо совершив "оборот" поворачивает (вперед) на одно значение четвертое и т.д. четные до 10
девятое колесо совершив "оборот" поворачивает (назад) на одно значение седьмое колесо и т.д. до 1
в общем тут два счетчика которые запускает одна ячейка
может функцией ОСТАТ реализовать?
пример задумки:
Счетчик.xlsx (12.46 КБ)
Шифровальная машина методом замены, Эмуляция код машины в Exel
 
Здравствуйте Форумчане!
Долго вынашивал проект шифровальной код машины, хотел с эмулировать ФИАЛКА М125
но все пошло по своему.
Админам - может куда пристроить эту тему отдельно???

Описание Файла код машины:
1. Лист ШИФР набивается текст в текстбокс, шифрованный получаем слева
в верхних ячейках счет буквам, ширина шифровки в буквах, текущая буква на шифрование, закодированная буква
2. Лист РАСШИФР аналогичен листу шифр только для расшифровки тескта
3. Лист КЛЮЧ сюда заполняются ключи
4. ОСЬ сюда приходят буквы из листа ШИФР (РАСШИФР) и согласно первой строке листа КЛЮЧ распределяются "ДИСКИ" массивы отсюда же зашифрованные буквы попадают на листы ШИФР (РАСШИФР)
5. Лист МОТОР задает дискам (массивам) вращение
6. Листы А,Б,В,Г,Д,Е,Ж,И,Й шифруют букву в последовательности заданной 1й строкой ключа, смещается массив по заданию листа МОТОР,
смещаются заголовки по заданию листа КЛЮЧ  
7. Лист РЕФ (отражатель) который по прохождении буквы всех 10 дисков отправляет ее обратно через них предварительно зашифровав согласно КЛЮЧа рефлектор.

FIALKA2024R8DR.xlsm (299.65 КБ)

ПРОБЛЕМЫ (задачи)
1. проблема стала в том что если набиваешь букву А через 31 символ возникает цикл, что не допустимо в шифровании
2.  не смог сообразить как зашифровать пробел
3. шифровать не только в буквы, но и в двухзначные числа
4. зашифрованный текст имеет вид групп по 5 букв
пример (фиалка м125):
ЦПХРЙ ЮАРЬЕ ЕМХЛЖ СЖСТН
текст
с новым годом друзья
ключ
0
А Б В Г Д      Е Ж З И К
А А А А А      А А А А А
А Б В Г Д      Е Ж З И К
1 1 1 1 1      1 1 1 1 1
А А А А А      А А А А А

Замысел:
Шифрование происходит методом замены (Виженера)
но с вводом новой буквы происходит сдвиг в таблице, этих таблиц десять т.е. после ввода буква шифруется 10 раз потом еще 1 раз в рефлекторе и снова 10 раз в таблицах и потом уже выводится (отображается).

https://www.youtube.com/watch?v=J3FR-gBeUj4

ошибку нашел! Мотор не правильно крутит
нужен алгоритм движения в массивах
Изменено: Валерий Н - 11.01.2024 09:35:02
перемешать карты (буквы)
 
Как перемешать буквы, каждая в отдельной ячейке?
есть некий диапазон из 33х ячеек
скажем от А до Я нужно перемешать. (с РНД повторы случаются)

и под вопрос а если это квадрат, возможно ли в квадрате перемешать, что бы буквы не повторялись и по вертикале и по горизонтали?
Изменено: Валерий Н - 07.01.2024 23:56:52
Последовательность операций с данными по условию
 
имеем несколько таблиц с данными
зависимость данных от предыдущей таблицы и последующей за ней.
допустим на сводную таблицу поступило три числа 5, 12 и 3
имеем несколько таблиц(страниц)на которых происходит своя операция с данными
ответы видим на сводной странице, последовательность по таблице тоже можем задать
как отправлять исходные данные на нужную страницу для обработки?
на примере входящие данные сначала должны поступить в таблицу Б, из Б в А, из А в Й и уже потом результирующий выход

получается на странице ТАБЛ нижнюю таблицу тоже нужно "учить" принимать данные по условию...
Изменено: Валерий Н - 07.01.2024 07:57:25
изменение порядка столбцов в таблице по условию
 
имеется исходная таблица, в ней 20 столбцов данных
нужно менять какие столбцы в начале какие в конце по условию
данные разбиты по индексам от А до Й (10 индексов)
конечная таблица по кол-ву строк и столбцов такая же
но вверху набирается буквы: А,Б,В,Г,Д,Е,Ж,З,И,Й (в любой заданной последовательности) но главное без повторов
и в итоговой таблице столбцы выстраиваются согласно указанных индексов

жегар.xlsx (12.06 КБ)
Счетчик циклический
 
в первой ячейки меняется значение от 0-1000 и более
нужна вторая ячейка которая счет ведет от первой 1-30 и потом снова 1-30 и никогда больше (исходя из счета первой ячейки)
вроде простая математическая загадка а решить не получается

Пример упрощённо:
1 2 3 4 5 6 7 8 9 10 12
1 2 3 1 2 3 1 2 3 1 2 3
Изменено: Валерий Н - 04.01.2024 15:36:26
Мессенджер в Exel, форма отправки и приема текста
 
Задумка отправлять и принимать буквы по нажатию...
Помогите исправить файл.
в общем набираю текст в тектбоксе, а буквы по одной текущей появляются в ячейке Z1 и уходят "получателю"
когда отправитель набирает текст он по формуле =Лист2!A1 проявляется как в Z1,
только в ячейке АА1 приходит от "отправителя",
и оно пропечатывается внизу
по принципу одна буква одна ячейка
в принципе для самоконтроля можно сделать в ячейке АА1 формулу =Z1

в файле есть полезности как счет буквам и отображение при наборе текущей буквы

приложенный файл затачивался на печать по одной букве из текст бокса, счет буквам, коррекция количества ячеек (нужное)

ПС
вверху справа печатается текст, (его там не должно быть)



Изменено: Валерий Н - 13.12.2023 07:44:22
Нумератор (букв), нумерация букв в момент набора
 
возможна-ли форма (exel)?
Набираешь буквы (например в текст боксе)
а им ведется учет, и после каждого нажатия допустим получаем два результата...
первый результат - буквы раскидываются по клеткам (как было в налоговых отчётах)
второй результат на момент набора буквы например в ячейке А1 идет счет текущей буквы.

Вот такой ребус
скорее всего мессенджер в EXEL
Изменено: Валерий Н - 12.12.2023 11:50:48
Превращение Excel в блокнот, заполнение бланка по букве
 
Здравствуйте уважаемые знатоки!

В общем решил "запилить" заполнялку бланка в Exele.
имеются пронумерованные ячейки. в общем нажимая буквы или цифры на клавиатуре они забиваются по оному символу в ячейку,
слева на право и потом типа перевод каретки, и снова слева на право.
все что не заполняется хочу залить синим цветом но что бы нумерация была видна
и бланк имел печатную форму без заливки
кто что подскажет?
хотел в 1с писать но решил подумать...
и еще момент: бланк на 100 букв если тут ячейки кончились, то появился лист номер 2 который заполняется в том-же алгоритме
На время выполнения одного макроса отключить второй
 
Прошу помощи, в решении вот какой задачи:
В Excel установил кнопку почистить таблицу,
т.к. в таблице присутствуют формулы применил макрос который выборочно чистит ячейки таблицы
но до этого применен макрос установка даты при изменении соседней ячейки
и получается когда выполняется макрос очистки следом отрабатывает макрос даты...
в общем Excel задумывается, а после еще проходит удаляя даты...
В моем понимании при выполнении макроса очистки таблицы нужно как то отключить макрос установки даты
Изменено: WaleryN - 23.12.2019 07:46:08
VBA из основного листа сохранить в новую книгу с данными без формул, без макросов и без VBA
 
Всем привет
Прошу помочь
В общем столкнулся с потребность сделать рабочий файл XLS для формирования отчетов
нужно сохранять по типу "Название" + "Дата ГГГГ.ММ.ДД" но без VBA и макросов,
решил сделать тупое копирования таблицы средствами формул и не знаю что дальше делать...
да и сохраняет с VBA и макросами
Код
Sub СохранитьЛистВФайл()
    On Error Resume Next
    ' название подпапки, в которую по-умолчанию будет предложено сохранить файл
    Const REPORTS_FOLDER = "\"
    ' создаём папку для файла, если её ещё нет
    MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
    ' выбираем стартовую папку
    ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
 
    ' вывод диалогового окна для запроса имени сохраняемого файла
    Filename = "Проверка КВ-" + Format(Date, "yyyy/mm/dd") + ".xls"
        ' если пользователь отказался от выбора имени файла - отменяем сохранение листа в файл
    If VarType(Filename) = vbBoolean Then Exit Sub
    ' копируем активный лист (при этом создаётся новая книга)
    Err.Clear: ActiveSheet.Copy: DoEvents
    If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа

    ' убеждаемся, что активной книгой является копия листа
    If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then
        ' сохраняем файл под заданным именем в формате Excel 2003
        ActiveWorkbook.SaveAs Filename, xlWorkbookNormal
 
        ' закрываем сохранённый файл
        ' (удалите следующую строку, если закрывать созданный файл не требуется)
        ActiveWorkbook.Close False
    End If
End Sub
Изменено: WaleryN - 10.12.2019 10:23:51
Создание сводной таблицы из строковых данных со сложным наименованием
 
Суть проблемы: на листе Exel есть таблица, первые пять столбцов это наименование сумм.
нужно отсортировать эти суммы по порядку (согласно наименования сумм), по одинаковым наименованиям сделать суммирование,
а затем нужно отсортировать просуммированные данные по пятому столбцу кода и подвести итоги по пятому столбцу.
Страницы: 1
Наверх