Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » DerToDD
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1 2 3 4 След.
Как рассчитать сумму бонусов в зависимости от выполнения плана продаж, ссылаясь на ячейки (чтобы можно было изменять данные по продажам), Сумма бонусов рассчитывается от суммы продаж (% от продаж), прописывала функцию "ЕСЛИ" и добавляла аргумент "И" но формула выдавала ошибку, что слишком много аргументов, что я делаю не так....
 
#
16.09.2025 00:35:43
еще бы ваши если и и увидеть)))
 
Перейти    
Многопоточность в VBA
 
#
16.09.2025 00:20:22
сам язык однопоточный, существуют способы изобразить что потоков несколько, но именно изобразить, а не реализовать.  и надо ли изображать то?))
 
Перейти    
Приемы по использованию ИИ
 
#
15.09.2025 23:18:38
БМВ, ну не скажите, я тут бился с неправильно работающим куском кода, который подсмотрел на примерах, и который собственно не очень понимаю, начиная сдаваться - спросил Алису, она код поправила и он... вообще работать перестал)))) но из-за ее исправлений я понял где был косяк)))
 
Перейти    
Изменение нумерации страници вордовского дока макросом эксель.
 
#
15.09.2025 23:00:00
Уважаемые форумчане, некоторое время назад задавал такой вопрос. и если честно, думал отписаться в той же теме, но не нашел тему, к сожалению. поэтому приходится создавать отдельную. дело в том, что там толи не попались люди знающие как, толи просто не ответили, но ларчик просто открывался... вдруг кому пригодиться:
Код
Dim objWord As Object
Dim FileStart
Dim FileNew
Dim objSelection As Object

Set objWord = CreateObject("Word.Application")

    FileSt = ThisWorkbook.Path & "\Шаблоны\ваш шаблон.dotm"
    FileNew = Replace_symbols(Sheets("путик файлам").Cells(5, 2).Value)
    FileFolder = Replace_symbols(Sheets("путик файлам").Cells(3, 3).Value)
    'FileNew, FileFolder в моем случае берутся из ячеек, но кто же запрещает пути другим способом задать.
    Set objDoc = objWord.Documents.Open(FileSt)
    Set objSelection = objDoc.Content

      objWord.Visible = True
      objWord.Activate
' меняем номер страницы

objDoc.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.StartingNumber = 10 'естественно 10 меняем либо на нужный номер либо на переменную, либо на значение ячейки смотря по задаче.

ну и естественно требуется подключение microsoft word 16.0 ( в моем случае) obdject library
 
Перейти    
Как оплатить Plex?, Невозможно купить Plex
 
#
10.07.2025 19:55:16
присоединяюсь к предыдущим ораторам, тоже не вышло ключик приобрести. яб не грешил на робокассу, но попытки с нескольких карт разных банков, + как вишенка на тортике, и последний доступный вариант, сплит. везде пишут что что-то пошло не так. может на прямую, через админов можно???
Изменено: DerToDD - 10.07.2025 19:58:19
 
Перейти    
Автоматическая установка ширины колонок в ListBox UserForm
 
#
17.05.2025 00:10:03
эмммм. колега я врятли, не волшебник, только учусь. но вопрос, а зачем именно автоматически? не проще задать ширину исходя из максимальной ширины? а так. у вас ширшина колонок задается при открытии, и на мой взгляд все норм . а не в ширине ли юзерформы вопрос???))
 
Перейти    
автоматическое изменение экселем кодового имени листа при открытии нескольких книг. как бороться, и можно ли бороться.
 
#
16.05.2025 23:18:10
перегнал , блин... теперь опять пол кода править...  8-0  8-0  :D  :D  :D  :D
а если серьезно, то пожалуйста, кто с таким сталкивался... напишите изза чего оно было. врятли я первый на эти грабли наступил. очень хочется поучиться на чужих ошибках, чтоб свои не делать 8)
Изменено: DerToDD - 16.05.2025 23:21:26
 
Перейти    
автоматическое изменение экселем кодового имени листа при открытии нескольких книг. как бороться, и можно ли бороться.
 
#
16.05.2025 23:04:31
Цитата
sokol92 написал:
По Вашей картинке однозначно можно сделать вывод, что структура проекта нарушена. Срочно создайте новую книгу и перенесите туда информацию из испорченного файла.Принин может быть несколько  (полная классификация вряд ли существует). Из уже встречавшихся:корректировка (создание) книги в приложениях, отличных от MS Excelкорректировка книги, созданной в Excel Win, в Excel Mac..последовательная корректировка книги Excel в системах Windows c разными кодовыми таблицами по умолчанию...
спасибо. весь код перегнал в новый фаил. но вопрос остается вопросом, т.к. корректировка в приложениях отличных от эксель -НЕТ, вин или мак... у меня только вин, последний пункт - тоже нет, т.к. проект живет пока только на одной машине, с одной операционной системой. как я и сказал, что за фигня случилась - не понятно.... хотя с моими знаниями вба, и замашками, есть вариант, что я гдето, что-то накодил такое))) нашкодил такое.
Изменено: DerToDD - 16.05.2025 23:07:56
 
Перейти    
Оффисные приложения не стартуют работают не корректно без подключения к сети.
 
#
16.05.2025 20:45:18
без подключения к сети... офис 360 напоминает.  щас задам глупый вопрос, и скорее всего не в тему. но это так, из предположений. а в файлике hosts  последнее время ничего не менялось? или где в настройках офиса, просто вариант номер 2, это что у вас офис пытается цепануть шаблоны пустых доков с сетевого диска. З.Ы по хорошему посмотреть бы куда эта гадина пытается залезть, перед ошибкой. если проблема именно с сетью связана, то есть варианты отследить. ну и, к сожалению не стоит упускать возможность глюка. у меня вон тоже ексель кодовое имя листа поменял с лист1 на лист11. как говорится, в жизни всякое бывает и жук пердит и бык летает((((
Изменено: DerToDD - 16.05.2025 21:03:16
 
Перейти    
автоматическое изменение экселем кодового имени листа при открытии нескольких книг. как бороться, и можно ли бороться.
 
#
16.05.2025 20:31:43
Цитата
Hugo написал:
Не вполне понятно как влияет открытие нескольких книг, но я всегда советую менять (если используете в коде) это кодовое Лист1 на что-то другое, потому что если вдруг эту книгу откроют в английском Экселе то велика вероятность что код работать не будет. И не только потому что кириллица, но и потому что кодовое имя листа возможно изменится на Sheet1
я, честно говоря, тоже не понял, как поменялось кодовое имя листа. про несколько открытых книг - это мои домыслы. но тем не менее лист1 стал листом 11 и каким то придатком к файлу с именем лист1 ( на скрине видно. я бы выложил пример файла, но фаил с которым это стряслось слишком жирный, а повторить ситуацию с вновь созданными не получается(((). в английской версии открываться книга, точно, не будет.  я немного не так поставил вопрос... правильнее будет - можно ли наглухо запретить экселю менять кодовые имена листов???
 
Перейти    
автоматическое изменение экселем кодового имени листа при открытии нескольких книг. как бороться, и можно ли бороться.
 
#
16.05.2025 19:36:51
Леди и Джентльмены, столкнулся с проблемой. ну тоесть как прощелкал проблему((( были открыты 2 книги в одной макросы. в одной много кода, весь кол был привязан к кодовому имени лист1.  сохранился, и тут что-то пошло не так. сама таблица стала листом 11. весь код остался в чем-то не понятном под названием лист1, но редактор вба отображает его не как лист эксель, значек висит как у книги, но оно все равно является частью книги. ну остался и ладно. только не работает.  понаписано там моими кривыми руками нормально так)). собственно работоспособность кода я восстановил, копипастом + изменением всего, где написано "лист1", на лист11. Но хотелось бы избежать подобных проблем в будущем. есть решения? подскажите плс.
Изменено: DerToDD - 16.05.2025 19:37:37
 
Перейти    
управление нумерацией страниц в ворде из экселюшки
 
#
16.05.2025 18:49:55
проблему решил, точнее не решил написанием макроса для ворда  и запуском его из макроса эксель. решил по тому что работает ( в принципе) не решил по тому что из экселя надо макросу ворд передать переменную ( номер первой страницы в документе). и че-то у меня это не выходит(((  дяденьки и тётеньки))) помогите нубу в вба))) подскажите как передать переменную?))
 
Перейти    
управление нумерацией страниц в ворде из экселюшки
 
#
26.04.2025 00:38:08
даммы и господа)) подскажиье плс. Оформляю я технические отчеты. В них может быть от одного до ***** протоколов. Каждый протокол нумеруется по порядку. Ну а в случае со сбором в отчет протоколов много.  Идут по порядку. На заполнение протоколрв написал макрос, к вот как быть с нумерацией страниц, хоть убейте. Форма отчета предусматривает небольшой косяк. Каждый протокол- отдельный фаил.
 
Перейти    
Подсчет данных
 
#
24.04.2025 20:33:03
а макросом ставить подходящюю формулу?? и опять же пример плс. А то понятно, что ничего не понятно. В примере покажите исходные данные и какая формула должна подставится исходя из них. Структура таблици должна быть как в рабочем докке. Ато если, даже ктото напишет макрос, то при отличающейся по структуре таблице, вам от него толку не будет
 
Перейти    
Кодировка файла .txt в vba, Кодировка файла .txt в vba
 
#
24.04.2025 00:08:39
Илья, не самый простой вопрос(( даже на этом форуме, прикопипасте кода, надо соблюдать определенную раскладку клавы. Ответа у меня нет, сорри. Чтоб я такое знал, но, походу, даже тут, решение еще не найдено((( p.s. подпишусь на тему, вдруг кто знает как бороться)
Изменено: DerToDD - 24.04.2025 00:10:37
 
Перейти    
Формулы в ячейки по аналогии с выподающий списком
 
#
20.04.2025 00:04:58
Цитата
Alexey D написал:
Тут другой вопрос нарисовался таблица большая, а размер выподающего списка очень мал, как его увеличить?
если использовать комбобокс, то есть там такое свойство как listrows по умолчанию стоит 8. можно увеличить. но это в случае с актив икс  списками.
 
Перейти    
Сохранение файла excel c именем которое генерируется путем скрепления ячеек
 
#
19.04.2025 23:35:16
Alexey D, вроде подойдет похожая тема
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
06.04.2025 01:00:27
и вот тут сори, меня уже прописочили за неправильное название темы, и за то, что сообщения пложу, вместо того чтобы переписать предыдущее. но сдается мне, что это в отдельном нужно написать. господа и дамы, проверьте плс мой код ( ну как мой, взято , по большей части из примеров, но я готов поспорить, что большую часть можно оптимизировать, а не решенные проблемы решаются, просто я не понимаю как.  будет и ответ на вопрос Вероники, и мне урок.
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
06.04.2025 00:39:47
Вероника Суворова,   скидываю файлы в 2х вариантах. промежуточный итог вставляется 2йным кликом по ячейке, как и раньше. общий итог, в таблице с ним, ставится в последнюю строку. если она не заполнена, если заполнена в строку под ней. или если общий итог и так есть, то не перезаписывается. работает формула. о проблемах. так и не смог найти ключик, чтобы макрос определял первую строку таблицы по этому приклепал костыль, при первом вводе промежуточного итога макрос просит указать строку с началом данных для подсчета. вторая проблема, при вводе промежуточного итога между 2мя имеющимися, последующий не пересчитается. ( так и не допер как  прикрутить изменение следующего подитога.)  справедливости ради, я говорил что макрописец из меня никакой... из плюсов, проблемы решаемы. удаляете следуищий итог, и двойным кликом ставите новый.  тогда все решается. главное не забыть. и формулы простейшие, сумм и суммесли. легко понятны, а как их вставлять определяет макрос. надеюсь, кто-нибудь более опытный, допилит, ну или скорее перепишет)) мои познания на этом, кончились, по ходу))) годика через 3, если продолжу ВБА изучать, смогу новый, полноценный вариант выложить. пока, сорри так. если кто-то поправит этот выс... "шедевр"  буду благодарен, Веронике пригодится, меня научит. забыл. промежучточныи итог ставится только при условии , что в  ячейке нет каких либо данных, защита что-бы случайно что-нить не затереть. двойной клик должен быть по нужной строке в столбце F .
Изменено: DerToDD - 06.04.2025 00:47:44
 
Перейти    
[ Закрыто] жесткая непонятка)))) когда пытаюсь прописать изменение первой формулы после строки с изменениями
 
#
04.04.2025 00:04:29
еще забыл))), думал вначале,  привязаться к ключику какому-нибудь, на первый взгляд дата и время в столбце А были уникальными с точки зрения формата, но когда вопрос задал - узнал,  что там как вариант будет порядковый номер(((  отсюда дополнение, если ктонибудь предложит уникальное значение какой либо ячейки, в первой строке с данными таблицы ( шапка, походу, отпадает, т.к. тоже может видоизменяться(((  то все проблемы разом отпали...
Изменено: DerToDD - 04.04.2025 00:06:18
 
Перейти    
[ Закрыто] жесткая непонятка)))) когда пытаюсь прописать изменение первой формулы после строки с изменениями
 
#
03.04.2025 23:15:50
забыл, строка, столбец и тд - публичные пере6менные, прописаны в стандартном модуле.
 
Перейти    
[ Закрыто] жесткая непонятка)))) когда пытаюсь прописать изменение первой формулы после строки с изменениями
 
#
03.04.2025 23:05:11
видимо не правильно пояснил, код выше работает, но через то самое место. все строки с содержанием "ИТОГО:" в ячейке переписываются. но в них заисывается ровно одна формула. =СУММ(G17:G21) например. нужно, чтобы макрос находил первое " итого:" после вставленной ячейки, и получал данные о столбце и строке.
 
Перейти    
[ Закрыто] жесткая непонятка)))) когда пытаюсь прописать изменение первой формулы после строки с изменениями
 
#
03.04.2025 22:37:51
Код
Sub Перезапись_формул_при_изменении_листа()
Dim Rng As Range, c, LastRow As Long
    Set Rng = Worksheets(1).UsedRange
    Set c = Rng.Find("ИТОГО:", LookIn:=xlValues)
    If Not c Is Nothing Then
        With c
            firstAddress = .Address
            i = 0
            Do
            Строка = c.Row
            Столбец = c.Column
      Лист2.Cells(Строка, Столбец + 1).FormulaLocal = "=СУММ(G" & строка1 + 1 & ":G" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 2).FormulaLocal = "=СУММ(H" & строка1 + 1 & ":H" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 3).FormulaLocal = "=СУММ(I" & строка1 + 1 & ":I" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 4).FormulaLocal = "=СУММ(J" & строка1 + 1 & ":J" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 5).FormulaLocal = "=СУММ(K" & строка1 + 1 & ":K" & Строка2 - 1 & ")"
      Лист2.Cells(Строка, Столбец + 6).FormulaLocal = "=СУММ(L" & строка1 + 1 & ":L" & Строка2 - 1 & ")"

                Set c = Rng.FindNext(c)
            Loop While Not c Is Nothing And .Address <> firstAddress
        End With
    End If
    LastRow = Cells(Rows.Count, 6).End(xlUp).Row
      If Cells(LastRow, Столбец).Value = "ВСЕГО:" Then Exit Sub
        лист1.Cells(LastRow + 1, Столбец).Value = "ВСЕГО:"
      Лист2.Cells(LastRow + 1, Столбец + 1).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";G1:G" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 2).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";H1:H" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 3).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";I1:I" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 4).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";J1:J" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 5).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";K1:K" & lLastRow & ")"
      Лист2.Cells(LastRow + 1, Столбец + 6).FormulaLocal = "=СУММЕСЛИ(F1:F" & lLastRow & ";""Итого:"";L1:L" & lLastRow & ")"
End Sub

короче говоря, Господа и Дамы, хелп. не понимаю как данную конструкцию переписать так, чтобы удовлетворяла условиям Вероники. оно меняет вообще все наглухо. причем не корректно от слова "вообще" а нужно, чтобы переписывалась только последующая строка с "ИТОГО:" ЗЫ при замене вообще всего формула копируется из первой строки. мне опыта не хватает, чтобы это прописать как нужно. ну или мозгов...
тема к которой относится -https://www.planetaexcel.ru/forum/?PAGE_NAME=read&FID=1&TID=170394&TITLE_SEO=170394-vnutritablichnye-itogi  файл ниже.
Изменено: DerToDD - 03.04.2025 22:41:26
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
03.04.2025 21:01:49
Вероника Суворова, ну сорри, в начале отправил фаил, потом понял, что  если вставить промежетлчный итог между 2мя уже имеющимися, то следующий итог будет на форуле, которая не учитывает вставленный. У меня сейчас задача прикрутить изменение следующего итога, если вставлен итог между итогами))) а так, из прогресса сложныз формул не будет. Там только сумм и суммесли. Диапазон суммирования определяет макрос. Проблема в том, что если до первой суммы вставить еще одну. Последующая формула не переписывается, и суммирует все, включая вставленную формулу. А, в вашем случае, надо чтобы переписывалась. Причем ровно одна формула за вставленной. Ну, если конечно у вас нет необходимости добавлять между промежуточными итогами еще один промежуточный, что врятли, и так бы прокатило.
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
03.04.2025 12:21:48
отбой тревоги. Выложил файл, потом комяк нашел. Исправлю, потом выложу по новой.
Изменено: DerToDD - 03.04.2025 12:52:00
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
02.04.2025 22:17:12
без маркера для первой строки с данными у меня из мыслей только костыль, когда первый итого надо будет заполнять руками, все остальное пойдет по двойному клику, как в варианте для прошлой таблички., но это уже из серии эротики какой-то.
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
02.04.2025 21:27:40
жертвовать ничем не надо. Нужно чтото уникальное, что-бы обьяснить макросу какая строка первая с данными.  Тогда он формулы будет подставлять как надо, и куда надо. Дата и время подошли бы, но если вместо них в ячейке будет чтото другое начнет работать не корректно, или вообще не работать. Грубо говоря нужено ключевое слово. Вначале думал использовать один из заголовков таблици, но так понял, что там тоже поменяться чтото может.
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
02.04.2025 20:04:13
Цитата
Вероника Суворова написал:
Пожалуй там да, может быть еще счет по порядку вместо...
мда((  надо придумать за что еще можно зацепиться)) чтоб моя приблуда для предыдущей версии таблички прикрутилась к более полной версии))
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
02.04.2025 19:01:47
Вероника Суворова,  а в таблице первый столбец всегда дата и время??
 
Перейти    
Внутритабличные итоги, Какую формулу использовать или без макроса никак?
 
#
31.03.2025 21:17:44
и я тут еще подумал... суммы в евро, а у вас там часом ни кто не будет работать с файлом в не русскоязычных версиях экселя?? а то, тогда формулы вообще по другому вставлять надо.
 
Перейти    
Страницы: 1 2 3 4 След.
Наверх