В связи с отсутствием большого опыта приложение получилось тяжелым и медленным.
Требуется: - доработать приложение с точки зрения устранения возможных ошибок, - обеспечить совместимость с версиями с 2010 и выше - провести оптимизацию (переработку кода) для ускорения работы. - внести дополнения и изменения по согласованному ТЗ
Работа не на 5 минут и не на 5 рублей поэтому будут рассматриваться: - специалисты имеющие опыт реализации подобных проектов. - только те кто готов встретиться лично (офис в г.Москва ) для знакомства и обсуждения деталей - предпочтение тем кто имеет ИП или готов работать по безналу и по договору. - те кто умеет доводить дело до конца и сопровождать дальнейшем - нужны рекомендации.
В свое время было разработано приложение для формирования отчетных документов для инженеров ПТО. С деталями можно ознакомится можно здесь.
В связи с отсутствием большого опыта приложение получилось тяжелым и медленным.
Требуется: - доработать приложение с точки зрения устранения возможных ошибок, - обеспечить совместимость с версиями с 2010 и выше - провести оптимизацию (переработку кода) для ускорения работы. - внести дополнения и изменения по согласованному ТЗ
Работа не на 5 минут и не на 5 рублей поэтому будут рассматриваться: - специалисты имеющие опыт реализации подобных проектов. - только те кто готов встретиться лично (офис в г.Москва ) для знакомства и обсуждения деталей - предпочтение тем кто имеет ИП или готов работать по безналу и по договору. - те кто умеет доводить дело до конца и сопровождать дальнейшем - нужны рекомендации.
Пароль не поможет. дело в том что для защиты кода выполнено его преобразование то есть вместо:
[vba]
Код
Function NameRowAsText(ByVal RowNon) As String Dim TextAddr, EndStr ' возвращает номер столбца ввиде букв TextAddr = Cells(1, RowNon).Address 'адрес типа $AS$44 EndStr = InStr(2, TextAddr, "$") NameRowAsText = Mid(TextAddr, 2, EndStr - 2) End Function
[/vba]
вы увидите: [vba]
Код
Function АBKMНOPCТXABКМНОРСTХ(ByVal AВKMНOPСTХABКМHОPCТХ) As String: Dim АBКМHOPСТXАВКМНOРCTX, АBKMHОРCТXАBKМHОPСТX: АBКМHOPСТXАВКМНOРCTX = Cells(1, AВKMНOPСTХABКМHОPCТХ).Address: АBKMHОРCТXАBKМHОPСТX = InStr(2, АBКМHOPСТXАВКМНOРCTX, "$"): АBKMНOPCТXABКМНОРСTХ = Mid(АBКМHOPСТXАВКМНOРCTX, 2, АBKMHОРCТXАBKМHОPСТX - 2): End Function
[/vba]
Пароль не поможет. дело в том что для защиты кода выполнено его преобразование то есть вместо:
[vba]
Код
Function NameRowAsText(ByVal RowNon) As String Dim TextAddr, EndStr ' возвращает номер столбца ввиде букв TextAddr = Cells(1, RowNon).Address 'адрес типа $AS$44 EndStr = InStr(2, TextAddr, "$") NameRowAsText = Mid(TextAddr, 2, EndStr - 2) End Function
[/vba]
вы увидите: [vba]
Код
Function АBKMНOPCТXABКМНОРСTХ(ByVal AВKMНOPСTХABКМHОPCТХ) As String: Dim АBКМHOPСТXАВКМНOРCTX, АBKMHОРCТXАBKМHОPСТX: АBКМHOPСТXАВКМНOРCTX = Cells(1, AВKMНOPСTХABКМHОPCТХ).Address: АBKMHОРCТXАBKМHОPСТX = InStr(2, АBКМHOPСТXАВКМНOРCTX, "$"): АBKMНOPCТXABКМНОРСTХ = Mid(АBКМHOPСТXАВКМНOРCTX, 2, АBKMHОРCТXАBKМHОPСТX - 2): End Function
Дассс, такого еще не видел. п2. В БольшуюПомойку не поеду. п4. Рекомендации от моего кота Пипса подойдут? При положительном ответе остальное обсуждаемо.
Дассс, такого еще не видел. п2. В БольшуюПомойку не поеду. п4. Рекомендации от моего кота Пипса подойдут? При положительном ответе остальное обсуждаемо.RAN
1. Автор приложения я. Просто у меня нет времени на продолжение проекта. 2. Мне нужен профессионал на моих условиях. Или близких к моим. 3. Не согласны с моими условиями, Ваше право.
Чтобы не впадать в ненужные дискуссии поясню:
1. Автор приложения я. Просто у меня нет времени на продолжение проекта. 2. Мне нужен профессионал на моих условиях. Или близких к моим. 3. Не согласны с моими условиями, Ваше право.alrplus
мне нет принципиальный разницы откуда Вы будете работать
что касается личной встречи: - я привык работать реальными с людьми которых есть имя, а не с аватаром рекомендации которому может дать кот. - это дисциплинирует в деловых отношениях. - варианты встречи обсуждаемые.
Чтобы было понятно до конца - для меня это коммерческий проект (и не единственный, но об этом после) который я использую и в своем бизнесе и планирую на реализацию для партнеров, но для этого он должен быть приведен в нормальный вид. Поэтому я должен быть уверен в человеке (людях) с которыми начну работать
P.S. Если вы не готовы приложить усилия для того чтобы получить работу (заказ), то либо вам она не нужна, либо такова Ваша жизненная позиция, но в любом случае с Вами не стоит иметь дело. Это мое мнение
мне нет принципиальный разницы откуда Вы будете работать
что касается личной встречи: - я привык работать реальными с людьми которых есть имя, а не с аватаром рекомендации которому может дать кот. - это дисциплинирует в деловых отношениях. - варианты встречи обсуждаемые.
Чтобы было понятно до конца - для меня это коммерческий проект (и не единственный, но об этом после) который я использую и в своем бизнесе и планирую на реализацию для партнеров, но для этого он должен быть приведен в нормальный вид. Поэтому я должен быть уверен в человеке (людях) с которыми начну работать
P.S. Если вы не готовы приложить усилия для того чтобы получить работу (заказ), то либо вам она не нужна, либо такова Ваша жизненная позиция, но в любом случае с Вами не стоит иметь дело. Это мое мнение
Вы просите рекомендаций, но, не говорите чьих. А, оказывается, рекомендации моего кота вас не устраивают. Правда, такие длинные, и не правильно работающие простыни, он писать не умеет [vba]
Код
Function ABKМНOPCТXАBKMНОPCTX(ByVal АВКМНOРСТХАBKMНOРСTX As Date) As Integer: Dim АВKMHOРCTХABКMHOPCTХ, ABKМHOРСTXАВКMНОРСТХ: АВKMHOРCTХABКMHOPCTХ = Month(АВКМНOРСТХАBKMНOРСTX): ABKМHOРСTXАВКMНОРСТХ = Day(АВКМНOРСТХАBKMНOРСTX): Select Case АВKMHOРCTХABКMHOPCTХ: Case 1, 3, 5, 7, 8, 10, 12: ABKМНOPCТXАBKMНОPCTX = 31 - ABKМHOРСTXАВКMНОРСТХ: Case 4, 6, 9, 11: ABKМНOPCТXАBKMНОPCTX = 30 - ABKМHOРСTXАВКMНОРСТХ: Case 2: ABKМНOPCТXАBKMНОPCTX = 28 - ABKМHOРСTXАВКMНОРСТХ: End Select: End Function
[/vba] Он может только мяукать [vba]
Код
Function Мяу%(мяв As Date): Мяу = Application.EoMonth(мяв, 0) - мяв: End Function
[/vba]
Вы просите рекомендаций, но, не говорите чьих. А, оказывается, рекомендации моего кота вас не устраивают. Правда, такие длинные, и не правильно работающие простыни, он писать не умеет [vba]
Код
Function ABKМНOPCТXАBKMНОPCTX(ByVal АВКМНOРСТХАBKMНOРСTX As Date) As Integer: Dim АВKMHOРCTХABКMHOPCTХ, ABKМHOРСTXАВКMНОРСТХ: АВKMHOРCTХABКMHOPCTХ = Month(АВКМНOРСТХАBKMНOРСTX): ABKМHOРСTXАВКMНОРСТХ = Day(АВКМНOРСТХАBKMНOРСTX): Select Case АВKMHOРCTХABКMHOPCTХ: Case 1, 3, 5, 7, 8, 10, 12: ABKМНOPCТXАBKMНОPCTX = 31 - ABKМHOРСTXАВКMНОРСТХ: Case 4, 6, 9, 11: ABKМНOPCТXАBKMНОPCTX = 30 - ABKМHOРСTXАВКMНОРСТХ: Case 2: ABKМНOPCТXАBKMНОPCTX = 28 - ABKМHOРСTXАВКMНОРСТХ: End Select: End Function
[/vba] Он может только мяукать [vba]
Код
Function Мяу%(мяв As Date): Мяу = Application.EoMonth(мяв, 0) - мяв: End Function
Function Мяу%(мяв As Date): Мяу = Application.EoMonth(мяв, 0) - мяв: End Function
Вот поэтому мне и нужен профессионал который перепишет и оптимизирует код. Если бы это я умел делать не на колхозном уровне и если бы у меня было время разбираться с VBA я бы сода не обращался.
Как тут принято связываться почта? скайп? телефон?
Function Мяу%(мяв As Date): Мяу = Application.EoMonth(мяв, 0) - мяв: End Function
Вот поэтому мне и нужен профессионал который перепишет и оптимизирует код. Если бы это я умел делать не на колхозном уровне и если бы у меня было время разбираться с VBA я бы сода не обращался.
Как тут принято связываться почта? скайп? телефон?alrplus
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
