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

Страницы: 1 2 3 4 5 След.
Как определить строку нижней границы печати
 
sokol92, Kuzmich, Спасибо большое, работает  :)  :idea:  
Как определить строку нижней границы печати
 
Всем доброго дня!
Подскажите, пожалуйста, как выяснить нижнюю строку установленных границ печати? т.е. получить в переменную 65 в приложенном примере
Отзывы о работодателях и исполнителях, Посмотрите, прежде чем взять/предложить работу
 
Очень довольна сотрудничеством с R Dmitry. Макрос был нужен очень быстро, Дмитрий согласился написать его за день, очень внимательно отнесся к ТЗ, предлагал варианты решений. Все работает замечательно, и общение было приятным. Хорошо, когда есть возможность за свой небольшой бюджет обратиться к профессионалу.
Заполнение маленькой формы в Word данными из Excel, Заполнение формы в Word данными из таблицы Excel
 
Заполнить таблицу в Word данными из Excel.
Запускаем макрос из открытого файла Excel c данными для заполнения
Вызываем диалоговое окно для выбора файла Word из папки Шаблоны для заполнения
- Раздел 1, цифру в конце раздела берем из названия файла эксель, если цифры в названии нет – не заполняем
- Раздел 4, вносим дату СЕГОДНЯ
- Раздел 5, «INV » & перечисляем через «, » уникальные значения из столбца AL документа в Excel
- Раздел 6 7 8 9 (он общий), первая строка: СУММА столбца N & « colli description of goods see in attached», вторая строка: содержимое раздела 5(переносить по строкам, если не влезает по разделителю запятой, в строку входит 70 символов), последняя строка раздела: «TOTAL: » & СУММА столбца N & « COLLI»
- Раздел 11, первая и последние строки: СУММА столбца M
- Раздел 21, вносим дату СЕГОДНЯ
Сохраняем копию документа Word в папку с открытым файлом Excel из которого брали данные.
Нужен код VBA
Бюджет 1000
Изменено: Татьяна Агафонова - 11.03.2021 12:32:07
На 13 символе после запятой появляется единица
 
vikttur, ок, прошу прощения. Думала может есть что-то, о чем я не знаю, видимо надо искать место где недоокруглила в макросе. Спасибо. Удалите, пожалуйста, тему. Извиняюсь еще раз.
На 13 символе после запятой появляется единица
 
Цитата
vikttur написал: Округляйте и результат
Да, именно так я и делаю
Код
dblRaz = WorksheetFunction.Round(brutto - BruttoS, 2)

Все конечные вычисления округлены внутри макроса.

Более того я пробовала округлять в конце таблицы обычной функцией округл до двух знаков. Нашла эту ячейку с единицей M40  и пробую просто рукой вбить там число 1,2. И все равно эта единица в сумме остается.

Что я делаю не так (( как побороть ее?
На 13 символе после запятой появляется единица
 
Друзья, доброго всем дня.
Столкнулась с проблемой округления чисел, которые считаются (делятся, умножаются, вычитаются) внутри макроса и в конце действия округляются до двух знаков. Во вложении файл, сумма веса БРУТТО в котором дает число с единицей на тринадцатом символе после запятой, при этом все складываемые числа не имеют этой единицы. Она всплывает из ниоткуда.
Помогите, пожалуйста, избавиться от этой единицы, никакое округление не помогает. И понять причину ее появления, такое происходит во всех файлах подобного типа
Не работает функция CBR
 
Цитата
Николай Павлов написал:
что именно не работает? Только что проверил - все ОК. Бывает, что сайт ЦБ недоступен, но это обычно недолго
Да, все утро давал 0 на любой курс и любую дату, а сейчас заработал...
Не работает функция CBR
 
Функция CBR снова не работает!
Правка ошибки в запросе PQ
 
Дмитрий(The_Prist) Щербаков, доброго вечера! Да, просто не хотелось бы на форум файл грузить, но и заплатить помощникам в целом всегда хочется. Если не против посмотреть, то я бы рада была вам в почту его кинуть.
Правка ошибки в запросе PQ
 
Запрос PQ выдает разные значения при фильтрации столбца с формулой с разным регистром фильтра. Не могу понять в чем ошибка. Нужно отладить запрос, чтобы работал верно. Бюджет 500р.
Спам.
 
Вот такие сообщения с форума

Планета Excel: [private] Привет, я александра веб модель! если хочеш пообшатся с одинокой девушкой пиши в телеграм: hot_alexaXXX
Информационное сообщение сайта Планета Excel
------------------------------------------

Вы получили персональное сообщение с форума на сайте planetaexcel.ru.

Тема:
Привет, я александра веб модель! если хочеш пообшатся с одинокой девушкой пиши в телеграм: hot_alexaXXX

Автор: alexandra myhina
Дата: 27.11.2020 00:05:23
Сообщение:

Привет, я александра веб модель! если хочеш пообшатся с одинокой девушкой пиши в телеграм: hot_alexaXXX

Cсылка на сообщение: http://planetaexcel.ru/forum/index.php?PAGE_NAME=pm_read&FID=1&MID=143996&q=jeyci+chart&FORUM_ID%5B­0%5D=0&DATE_CHANGE=0&order=relevance


Сообщение сгенерировано автоматически.
Не работает функция CBR
 
Цитата
Jack Famous написал:
потом да, но сначала (ещё раз)
ок, ок ))))) Главное, что ZVI, правильно меня понял, странновато читать анализ решенной проблемы постфактум )) Впредь буду строга к себе и внимательна!
Не работает функция CBR
 
Цитата
Jack Famous написал:
конечно не предположили, учитывая, что демонстрировали написание как раз ПРОПИСНЫМИ
Да нет, демонстрировала строчными

Цитата
Татьяна Агафонова написал:
=cbr("17.11.20";"usd"), =cbr(СЕГОДНЯ();"usd"),
У меня эта функция сто лет как интегрирована в макросы, раньше не было зависимости от регистра и в марте все перестало работать, тогда решили что дело в изменениях верстки на cbr.ru, свои макросы я переписала, чтоб не зависеть от плекса, но коллеги пользуются функцией и вручную и тоже привыкли не обращать внимание на регистр, видимо, и просили разобраться в чем же дело.
Не работает функция CBR
 
ZVI, спасибо вам большое! не предположила даже такого )))))) уже пол года функцией не пользуюсь из-за такой ошибки... нда..
Не работает функция CBR
 
Цитата
Николай Павлов написал:
Надо в кавычках - это же текстовые строки.
Не увидела ваш ответ. Функция не работает до сих пор. Версия плекса последняя. Аргументы автоматически окавычиваются, даже если без кавычек нечаянно написать =cbr("17.11.20";"usd"), =cbr(СЕГОДНЯ();"usd"), функция дает 0. Поможете мне?
Изменено: Татьяна Агафонова - 22.11.2020 15:43:17
Убрать оповещение перед сохранением книги
 
Цитата
Inexsu написал:
Из закромов:
Класс. Работает. А то ужас что творилось.
MsgBoxAutoClose - просто предупреждал об удалении конфиденциальной информации? Удалила эту строку...
Не работает функция CBR
 
Снова не работает функция. На этот раз проблема с вводом второй переменной, если ее не вводить - выдает курс USD по умолчанию как положено, если ввести USD или EUR - вернет ноль!
Не работает функция CBR
 
Все работает. Спасибо
Изменено: Татьяна Агафонова - 15.04.2020 17:39:49
Не работает функция CBR
 
С сегодняшнего дня перестала работать функция CBR
Переключатель, Сделать переключатель в Ribbon XML Editor
 
Всем привет!
Друзья, мне нужно сделать для надстройки переключатель в программе Ribbon XML Editor, который в явном виде переключал бы на ленте режимы работы существующих на ней макросов.
т.е. если переключатель в положении А=> кнопка1 и кнопка2 запускает макросы aaa и bbb, если в положении B=> кнопка1 и кнопка2 запускает макросы ccc и mmm.
Во вложении сделала файл надстройки с экспериментальными макросами. К своей надстройке буду прикручивать переключатель сама, поэтому прошу откомментировать написанное ))
Готова заплатить 500р переводом на карту СБ.
Отправка письма с другого почтового аккаунта Outlook - VBA
 
МатросНаЗебре, Nordheim, спасибо, друзья!
Отправка письма с другого почтового аккаунта Outlook - VBA
 
БМВ, ругается, что oAccount "variable not defined" (((
Код
Dim objOL As Object
Dim objMail As Object

Set objOL = CreateObject("Outlook.Application")
        objOL.Session.Logon
        
        For Each oAccount In objOL.Session.Accounts
            If oAccount = "ruslo@gmail.com" Then
                Set objMail = objOL.CreateItem(0)
                On Error Resume Next
        With objMail
            .From = "ruslo@gmail.com"
            .To = "Cargo@cargo.mu"
            .Body = "Пришлите, пожалуйста. Спасибо!"
            .Subject = "Запрос"
                For i = 1 To kf
                  .Attachments.Add nam(i)
                Next i
            Set .SendUsingAccount = oAccount
            .Send
        End With
     End If
  Next
Изменено: Татьяна Агафонова - 09.01.2020 14:06:45
Power query: сменить регистр внешних данных, используемых внутри запроса
 
PooHkrd, Спасибо большое, работает быстрее!
Power query: сменить регистр внешних данных, используемых внутри запроса
 
Дмитрий(The_Prist) Щербаков,
спасибо, работает!
Power query: сменить регистр внешних данных, используемых внутри запроса
 
Друзья, помогите, пожалуйста. Есть такая строка запроса:
Код
let
    Источник = Excel.CurrentWorkbook(){[Name="Таблица14"]}[Content],
    #"Строки с примененным фильтром" = Table.SelectRows(Источник, each Text.StartsWith([Наименование], Excel.CurrentWorkbook(){[Name="Наименование"]}[Content]{0}[Column1]))

Но power query делает фильтр с учетом регистра введенных данных. А данные вводятся с листа пользователем, и как он их введет - одному богу известно. Поэтому мне нужно привести к единому регистру и столбец с данными и данные из ячейки для ввода на листе. Text.Lower в случае с данными из столбца в самом запросе понятно куда писать, а куда написать Text.Lower в случае с этим выражением Excel.CurrentWorkbook(){[Name="Наименование"]}[Content]{0}[Column1]???
[ Закрыто] Почему не работает логическое условие
 
БМВ, да... все... поняла. Спасибо!
[ Закрыто] Почему не работает логическое условие
 
Друзья, подскажите, пожалуйста, в чем мой прокол?

Почему такое логическое условие работает и не пропускает значения strCod=4303:

If (strPol = "муж" Or strPol = "жен") And strCod <> "4303" Then



А такое не работает и strCod=4303 оказываются истиной:

If (strPol = "муж" Or strPol = "жен") And (strCod <> "4303" Or strCod <> "6404") Then
Сохранение вложения из Outlook средствами VBA, Не могу найти ошибку
 
БМВ, msg - это само письмо, оно берется в результате выполнения правила.
Немного еще упростила код. Заработало. Единственное не работает когда я хочу применить его ко всем уже полученным письмам. Но на новые хорошо действует
Вот, может пригодится кому:
Код
Option Compare Text

Public Sub SaveAttachments(msg As MailItem)
Dim att As Attachment
Dim base_path As String
Dim file_ext As String
Dim s As String
Dim w As String
Dim pd As Integer

base_path = "C:\База цен"
file_ext = "xlsx_xls"
  
    For Each att In msg.Attachments
 
        s = att.FileName
        pd = InStrRev(s, ".")
        w = Right(s, Len(s) - pd)
 
        If InStr(file_ext, w) > 0 Then
            att.SaveAsFile base_path & "\" & s
        End If
    Next
End Sub
Сохранение вложения из Outlook средствами VBA, Не могу найти ошибку
 
Всем привет. Помогите, пожалуйста, голову сломала, а дебагер в Outlook не запускается )
Понадобилось сохранить файлы, которые присылает один и тот же адресат, нашла в интернете код, попыталась его упростить и использовать для своих целей, но работает он рандомно... то работает, то нет и сохраняет разное кол-во файлов, а в данный момент вообще не работает )). Не могу понять в чем может быть проблема.
Создала правило, при получении письма с вложением от данного адресата, письмо перемещается в папку с его именем в outlook и запускается макрос, который не срабатывает...
Код
Public Sub SaveAttachments(msg As MailItem)
Dim att As Attachment
Dim base_path As String
Dim file_ext As String        
Dim s As String
Dim pd As Integer
Dim n As String, w As String


base_path = "C:\База цен"
file_ext = "xlsx_xls"
  
    For Each att In msg.Attachments

        s = att.FileName
        pd = InStrRev(s, ".")
        n = Left(s, pd - 1)
        w = Right(s, Len(s) - pd)

        If InStr(file_ext, w) > 0 Then
            att.SaveAsFile base_path & "\" & n & "." & w
        End If
    Next
End Sub
Страницы: 1 2 3 4 5 След.
Наверх