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

Страницы: 1
Прерывание отображения работы макроса
 
Всех с наступившим новым годом годом.  

У Николая Павлова вышел новогодний выпуск (vba код, где создается "эмуляция жизни ")

Стало интересно,  скачал файл пример,  запустил. Результат следующий - n-oе количество итераций проходит как и положено, на экране отображается хаотичное  движение развития "клеток", после чего возникает стандартная картина зависшего экселя,  какое то время он думает (при этом на дисплее ничего не отображается)  и в момент отвисания,  эксель выдает конечный результат,  пропустив часть...

что бы было понятней,  на примере это выглядело бы так. Запустили макрос (задача коготорого показать числа от 1 до 10). Макро отрабатывает нормально,  показывает 1, 2 , 3, 4 затем идет зависание, эксель думает  и после отвисания сразу показывает число 10 ( пропустив процесс отображения цифр от 5 до 9). Вопрос,  как правильно это можно обозвать и второй вопрос, как от этого избавиться?  
C2-C4
Почему возникают ошибки при работе метода Test RegExp, Ошибка 5020 (application defined or object defined error vba)
 
Код
Function RegBoolean1(ByVal sValue As String, ByVal sPattern)

    sPattern = Replace(sPattern, "*", "")
    If Len(sValue) < Len(sPattern) Then
        RegBoolean1 = False
        Exit Function
    End If

    If sValue = "" Or sValue = "-" Or sValue = Empty Or sValue = "#ЗНАЧ!" Or _
        sPattern = "" Or sPattern = "-" Or sPattern = Empty Or sPattern = "#ЗНАЧ!" Then
        RegBoolean1 = False
    Else
        Set objRegExp = CreateObject("VBScript.RegExp")
        If sPattern <> "" Then
            objRegExp.Pattern = sPattern
            objRegExp.Global = True
            objRegExp.IgnoreCase = True
            RegBoolean1 = objRegExp.test(sValue)
        Else
            RegBoolean1 = False
        End If
    End If
End Function


Доброе утро Форумчане

Возникла проблема. Исп Регулярку (верой и правдой служит мне уже более 3 месяцев). Пришли новые данные и неожиданно начала появляться (периодически) ошибка 5020. Появляется не часто, но....
на примере взят случай, где переменные равны:

sValue = "Мирибян Мехак Мушегович
//Российская Федерация,
353917, Краснодарский
край, г Новороссийск, ул
Кутузовская, д 139-Б//"

sPattern = "УФК по РО (Межрайонная
ИФНС №23 по Ростовской
области"

Понимаю что проблема в данных (т.к. раньше приходили данные в форматах Адрес и улица, ФИО и фамилия и т.д. а сейчас не пойми что...), но в моем представлении, регулярка должна просто выдать FALSE и пойти работать дальше, не выпадая в ошибку.

Сама ошибка вылетает на строке " RegBoolean1 = objRegExp.test(sValue) "
Собственно вопрос, что именно не так? Не очень хочется ставить on error resume next

Файл выложить не могу, только скрины, сори(

Ошибка - не стабильная. По данным - 1 на 100, в ост случаях отрабатывает стабильно
Гугл молчит... Мб где то у меня ошибка? или нужно мб что то поменять? Прошу помощи зала=)
C2-C4
Вопрос по декомпозиции в MS Excel (совет по надстройке или пакету анализа), пример использования метода декомпозиции
 
Добрый день форумчане.

           Ввиду свой должности, часто сталкиваюсь с задачей, вывести на график сезонные, трендовые и случайные временные ряды (модели разные, как аддитивные так и мультипликативные). В R все это делается без проблем, вопросов нет, но есть как всегда НО.

           Руководство привыкло именно к эксель... т.е. все графики, данные и пр. отчетность презентуется на совещаниях либо поверпоинт (что то простенькое, какой нить показатель) либо в экселе (на калькуляторах, где при смене фильтра, красиво меняется график, после чего руководство с умным видом кивает головушкой и хмыкает утвердительно или ... или не очень=) ). Никто не спорит, в R можно экспортировать графики и все такое, но проще было бы наверное, все это дело рассчитывать сразу же в эксель. И именно на этом моменте произошел ступор. Гугл упорно молчит, какие пакеты анализа или надстройки могут в этом помочь. По крайней мере, первые несколько страниц поиска результатов не дали. Именно по этой причине создаю данную тему. Возможно уже кто то сталкивался с подобным вопросом, есть решение в какой то надстройке? В общем нужен ваш совет. Благодарю=)

P.S. Можно математически конечно все это рассчитать, по формулам, но уж больно геморно это все выйдет (вариант остается в запасе).
C2-C4
Запуск 1с через удаленный раб стол и последующее обращение к нему (VBA), 1c, VBA, com, rdp, как подключиться?
 
Форумчане, доброе утро.
      Немного о ситуации. Решил помочь коллегам, создал файлик на VBA, который подключается к 14 различным 1с (или базам 1с, тут я нуб, уж простите=) ) и выполняет отчеты\запросы (все базы доступны по локалке) (переносит из 1с результ. отчетов\запросов и соотв. последующая обработка). Проблем не возникло, коллеги были счастливы. Но прошло какое-то время, и меня спросили, возможно ли допилить файлик, что бы он подключался через удаленный рабочий стол к 1с в РК, и делал тоже самое? Танцы с бубном (и поиск в гугле) дали минимум инфы, исп. которую на данный момент не удалось. По этой причине пишу собственно Вам=)
Код примерно следующего вида(упрощенный вариант):
Код
Sub Con_1c()
    Set v8 = CreateObject("V83.COMConnector")
    Set База = v8.Connect("Srvr=" & Serv & ";Ref=" & Ref & "; Usr=""" & FIO & """; Pwd =""" & Pass & """ ")
    Set Запрос_1 = База.NewObject("Запрос")
    Запрос_1.Текст = "ТУТ  НАХОДИТСЯ САМ ЗАПРОС"
    Set Выполнить_запрос = Запрос_1.выполнить()
    Set Выбрать_данные = Запрос_1.выполнить.Выбрать
    Do While Выбрать_данные.Следующий()
            Cells(x, 2) = Выбрать_данные.Счет.Код
    Loop 
End sub

Подключение к удаленке происходит через стандартный windows-кий rdp

Собственно сам вопрос, какой код необходимо добавить, что бы произвести подключение и посл обращение к удаленной 1с?

По этой ссылке нашел код, который помог открыть саму rpb, ввести логин и пароль. (Ссылка). Подключение проходит, но как дальше обращаться... увы=)

На тек момент, даже не уверен что задача решается именно таким способом) Возможно можно подкл как то по айпишнику например, и посл обращение уже через него выполнять? В общем жду ваших комментов и рекомендаций.

C2-C4
VBA. Снятие защиты листа одним из трех паролей
 
Добрый день. Никогда не сталкивался с подобным заданием, но вот он, тот самый случай=)

Пишу макрос. Одна из задач которого следующая -
Есть несколько книг, которые макрос поочередно открывает, для копирования\изменения данных в них(на нескольких листах). Однако ряд книг имеют защиту листа на изменение ячеек. пароли у разных книг разные.

Для задачи необходимо реализовать следующий функционал в макросе

Проверка всех листов в книге на наличие защиты листа (тут легко вроде-бы, сейчас делаю через If Worksheets(x).ProtectContents Then и тд). В случае, если стоит защита, то снять ее паролем. И вот тут у меня как раз загвостка. Пароли могут быть разные. Всего их 3 (111, 123, 321 как пример). Вопрос, как методом перебора попробовать подобрать пароль для снятия защиты книги?) (без возникновения диалоговых окон в случае ошибки хД )

Как пример - Лист 1 имеет пароль 123.
Макрос Попытка_1- .Unprotect "111" (тут была идея через он эрор попробывать, увы, пока безрезультатно).
Макрос Попытка_2 .Unprotect "123" - защита снята, идут дальнейшие действия макроса.

Пробывал гуглить, темы похожие есть, но решения такой задачи увы, не нашел. Ближайшая тема по смыслу
https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=read&FID=8&TID=13768
подсказала как снять защиту с листа одним паролем. Но если он не подойдет? Макрос вылетит в ошибку мб  с сообщением дебага. Хотелось бы всего этого избежать (концепция самого макроса - нажать на кнопку и идти курить. По приходу радоваться проделанной работе)

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

Нужен именно кусок кода с подстановкой пароля.  Паролей всего три.

P.S. Возможно, есть лучший вариант на проверку наличия защиты листа (лучше чем вар. If Worksheets(x).ProtectContents Then и пр), тогда, если не затруднит, как пример тоже оставьте в комментах=)
Изменено: Михаил Комиссаров - 30.11.2018 17:10:28
C2-C4
Построение сводной таблицы из двух разных источников данных, Построение сводной таблицы из двух разных источника данных, для вывода расчетов по нормативам
 
ДОБАВЛЕН ФАЙЛ ПРИМЕРА

Добрый день дорогие форумчане. Перелазил Ютуб и гугл, много интересного подчерпнул, но ответа на свой вопрос не нашел. Потому обращаюсь к Вам
Если простыми словами, то есть 2 таблицы.
1 таблица состоит из столбцов

Имя филиала
Дата
Номенклатура
Кол-во номенклатуры (отгруженное в этом месяце)
Сумма номенклатуры (отгруженно в этом месяце)

Вторая таблица состоит из сл столбцов

Имя фидиала
Дата
общий Товарооборот
Общий объем
Общий вес


Хотел создать сводную таблицу, которая по месяцам показала бы результат вычислений
А именно:

Общий товарооборот / кол-во номенклатуры
Общий вес / кол-во номенклатуры
и т.д.

Подскажите, возможно ли такое? в каком направлении копать?
Хотел через вычисляемые поля получить нужную информацию, но для этого требуется подкл к сводной табл 2 источника данных (2 табл описанных выше).  
Изменено: Михаил Комиссаров - 19.04.2018 12:16:55
C2-C4
Связные выпадающие списки с уникальными значениями
 
Добрый день дорогие форумчане!

Собственно поставлена задача - оптимизировать процесс согласования расходов по филиалам.

Как это выглядит сейчас.
Есть n-ое кол-во филиалов. Каждый из них имеет собственный список номеклатуры (по таре, упаковке и пр) (уникальный, - так как закупки временно не централизованы).

Логика решения задачи - взять список всей номенклатуры по всем филиалов, унифицировать их (по каким либо определенным критериям), составить общий список, и создать шаблон филиалам, с запретом на редактирование - кроме выбора номеклатуры в определенных ячейках (как раз эти уникальные списки). Рк будет присылать заполненные шаблоны, а другой спец файлик будет собирать данные и по полочкам раскладывать.
Однако столкнулся с проблемой, которую не могу осилить...Ссылки https://www.planetaexcel.ru/techniques/1/ , https://www.planetaexcel.ru/techniques/2/219/ и пр результаты поиска по форуму не помогли=(

Если более детально, то во вложении находится шаблон. В шаблоне 2 листа.
Лист_1 - шабон
Лист_2 - Номенклатура.Характеристика

последовательность действий

1. На листе шалон в ячейке А1  Рк должен (через список с уникальными значениями) выбрать вариант (данные находятся на листе Номенклатура.Характеристика, столбец А)
2. В зависимости от выбора РК в ячейке А1, должны подтянуться данные для выпадающего списка (уникальные значения) в ячейку B1 (список уникальных значений берется из листа Номенклатура.Характеристика столбца B) и т.д. до столбца Е

Пример во вложении
Изменено: Михаил Комиссаров - 27.02.2018 16:11:27
C2-C4
Сложение Часов и минут по критериям, Задача, - сложить отработанные часы у рабочих, с правильным выводом итога
 
Добрый день.
Нужна Ваша помощь.

Есть файл (см приложение, файл обрезан, фамилии и некоторые категории заменены, - правило конфиденциальности), лист Итог, таблица А1:M13. В таблице присутствует формула сложения времени по критерию. По идее, формула должна вывести общую сумму всех отработанных часов у определенной категории рабочих. Результат отсутствует.

Часы присутствуют на листе Декабрь (столбец Итог). Данные представлены в виде 123:00 (123 часа, без даты).
В случае применения обычной формулы на листе Декабрь (BG3+BG4), результат отображается корректно (пример в ячейке BI3) (формат (ч):мм:cc).
В случае применения формулы Сумм, результат по этим же ячейкам уже не отображается ( СУММ(BG3:BG4)) - формат ячейки тот же ((ч):мм:cc).
В случае таблицы на листе итог, используется формула суммеслимн и результат, как и в случае с формулой Сумм, - не отображается.
Пробовал менять формат ячейки в таблице (на листе итог), менять формат ячеек в столбце BG. Результат нулевой.

Результат появляется, если кликнуть на ячейку, учавствувшую в формуле (например BG3), кликнуть на полю адресной строки (где вводим формулы) и нажать энтер. В этом случае, результат 156:18 преобразуется в данные 06.01.1900  12:18:00 и формулы начинает работать.
К сожалению, проделать подобные процедуры со всеми ячейками в указанном столбце будет слишком время_затратном. Хотелось бы без изменения формата ячеек на листе Декабрь, получить необходимую информацию на Листе ИТОГ.

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

(Грешу на формат выгрузки, но увы, его я поменять не могу. Филиалов - 31, в каждом по 12 месяцев, заходить и править на каждом листе-месяце формат получиться как то слишком долго)
C2-C4
Страницы: 1
Наверх