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

Страницы: 1 2 След.
Надстройка для обработки большого объема данных с аналитикой
 
В виду отсутствия времени, готов либо передать полностью проект в работу, либо часть работ по проекту (обсуждаемо)
Кратко суть:
Есть 2 отчета выгруженных из 1с
-Обороты
-Остатки
Все это со всей сопутствующей информацией начиная от контрагентов заканчивая бухгалтерскими счетами, все это организовано в виде таблиц (если нужны будут какие то другие форматы, готовы переделать выгрузки из 1с)
Что хотят на основе текущих данных
-Строить такие отчеты как
Баланс
отчет о прибылях и убытках
Обороты по счетам
Оборотно сальдовая ведомость и тд (около 6 отчетов)
Далее самое интересное, после формирования текущих отчетов должна быть возможность просматривать аналитику, т.е. грубо при выборе  какой-то строки должна появится таблица типа сводной, где можно добавить поля фильтры и тд, далее при клике на строке еще глубже проваливаемся и тд последний уровень это бухгалтерские проводки!
Все это хотят организовать в виде надстройки, с вероятностью продавать дальше!
Бюджет с конечным заказчиком еще не утвержден, ждут ответа о том работаем или нет!  
Если очень захотеть - можно в космос полететь ;)
Отправка документа в телеграм
 
Многоуважаемые коллеги, пытаюсь реализовать отправку документа в телеграмм, текущий код выдает ошибку о превышении времени ожидания, подскажите что не так, вот собственно код:
Код
Sub trrrr() 
sURL = "https://api.telegram.org/bot" 
apikey = "5000XX47:XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
chat_id = "XXXXXXXXX" 
Const Boundary As String = "-----------test---------" 
URL = sURL & apikey & "/sendDocument" 
sFile = "C:\Users\lexey\Downloads\LOG.txt" 'файл
Set oHttp = CreateObject("WinHttp.WinHttpRequest.5.1") 
oHttp.Open "POST", URL, False 
oHttp.setRequestHeader "Connection", "keep-alive" 
oHttp.setRequestHeader "Content-Type", "multipart/form-data; boundary=" & Boundary 
FrmData = Boundary & vbNewLine 
FrmData = FrmData & "Content-Disposition: form-data; name=" & Chr(34) & "chat_id" & Chr(34) & ";" & vbNewLine & vbNewLine 
FrmData = FrmData & chat_id & vbNewLine & vbNewLine 
FrmData = FrmData & Boundary & vbNewLine 
FrmData = FrmData & "Content-Disposition: form-data; name=" & Chr(34) & "document" & Chr(34) & "; filename=" & Chr(34) & sFile & Chr(34) & vbNewLine & vbNewLine 
FrmData = FrmData & Boundary & "-" 
oHttp.send FrmData: DoEvents 
Debug.Print FrmData 
'Debug.Print oHttp.responseText 
Set oHttp = Nothing 
End Sub 
Если очень захотеть - можно в космос полететь ;)
При вставке изображения на форму вылетает ошибка 481
 
Доброго дня коллеги подскажите, намекните или ткните носом :D
есть изображение Картинка При скачивании и вставке на форму Вылетает ошибка 481 invalid picture
Пробовал сохранять ручками сохранять картинку с сайта через Сохранить Как результат тот же,
Вот так вставляю картинку

Код
Image1.Picture = LoadPicture(ТамГдеКартинка)
Изменено: lexey_fan - 19.05.2015 16:46:02
Если очень захотеть - можно в космос полететь ;)
POST-запрос для авторизации на сайте
 
Доброго дня, обращаюсь за советом или подсказкой, в решении вопроса авторизации на сайте путём POST -запроса сайт интернет магазин citilink.ru, путём "курения" интернета соорудил вот такое
Код
Sub AUTH()
Dim xmlWeb As New WinHttpRequest
Dim POST() As Byte, DataPost$
'On Error Resume Next
    login$ = "https://login.citilink.ru/auth/login/?from=&back=citilink.ru"
    DataPost = "email=lexey_fan%list.ru&pass=123456789&passOk=false" 'для авторизации (тестовый логин /пароль)
    POST = StrConv(DataPost, vbFromUnicode)
With xmlWeb
    .Open "POST", login$, False
    'заголовки запроса
   .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   .setRequestHeader "Accept-Language", "ru-RU,ru;q=0.8,en-US;q=0.6,en;q=0.4"
   .setRequestHeader "Connection", "keep-alive"
 '  .setRequestHeader "Content-Type", "text/html" ' при этом заголовке выдаёт что фал существует
   .setRequestHeader "Keep-Alive", "timeout=15"
   .setRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
   .setRequestHeader "Accept-Encoding", "gzip, deflate"
   .setRequestHeader "Host", "login.citilink.ru"
   .setRequestHeader "Origin", "http://www.citilink.ru"
   .setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 6.3; WOW64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/42.0.2311.90 Safari/537.36"
   .setRequestHeader "Referer", login$
   .Send (POST): DoEvents ' отправка запроса авторизации
   If .Status = 301 Then  msgbox "OK"
end with
   End sub

Если переменная login вида https.... то выдаёт ошибку операция отменена, если http то статус получает равны 200, при этом авторизация не проходит!
заранее спасибо за внимание к вопросу!
Изменено: lexey_fan - 21.04.2015 14:30:10
Если очень захотеть - можно в космос полететь ;)
Создание комбинаций товаров с условием
 
Доброго дня, думаю вот над такой задачкой, возможно кто то сталкивался с подобным, есть перечень товара и кол-во товара, есть число (общее кол-во товара  которое мы не можем превысить) нужно получить  варианты групп товаров,  чтобы их кол-во не превышало допустимую сумму. В примере тоже есть описание, + мои потуги (они и сейчас в процессе придумывания и переделывания), рад буду любому совету! спасибо!
Если очень захотеть - можно в космос полететь ;)
Ошибка : automation error вызванный объект был отключен от клиентов после запуска макросв
 
Друзья, вот тут есть такой макрос, вернее их было 13 и для каждого листа запускался отдельно, но высыпал ту же ошибку (automation error вызванный объект был отключен от клиентов после запуска макросов), решил исправить макрос, но не отходя долеко от шаблона исходного макроса, если я пробегаю по макросу через клавишу F8 то ошибок не возникает, если запускаю макрос ошибка и может быть при 2 проходе цикла, а может и на 5, если есть мысли как и что, посоветуйте, если нужен файл откуда берутся данные, то он тут , мозг кипит...((
Код
Application.ScreenUpdating = False
    Myarr = Array("ГСПП1", "ГСПП2", "ГСПП3", "ГСПП4", "ГСПП5", "ГСПП6", "ГСПП7", "ГСПП8", "ГСПП9", "ГСПП10", "ГСПП11", "ГСПП12", "ГСПП13")
Set wb = Workbooks.Open("C:\Users\lex\Desktop\Распределение планов.xlsx")
iPath = "C:\Users\lex\Desktop\Doki\" '-путь для сохранения
For Each sh In Myarr
iFileName = Sheets(sh).Cells(1, 4) '-имя при сохранении файла
AName1 = Sheets(sh).Range("C1")                           '-указываем ячейку с нахождением имени ГСППа
AName2 = Sheets(sh).Range("C2")
AName3 = Sheets(sh).Range("C3")
AName4 = Sheets(sh).Range("C4")
AName5 = Sheets(sh).Range("C5")
AName6 = Sheets(sh).Range("C6")
AName7 = Sheets(sh).Range("C7")
AName8 = Sheets(sh).Range("C8")
AName9 = Sheets(sh).Range("C9")
AName10 = Sheets(sh).Range("C10")
AName11 = Sheets(sh).Range("C11")
AName12 = Sheets(sh).Range("C12")
AName13 = Sheets(sh).Range("C13")
AName14 = Sheets(sh).Range("C14")
AName15 = Sheets(sh).Range("C15")
AName16 = Sheets(sh).Range("C16")
AName17 = Sheets(sh).Range("C17")
AName18 = Sheets(sh).Range("C18")
AName19 = Sheets(sh).Range("C19")
Set wb_2 = Workbooks.Add
wb.Activate
wb_2.SaveAs Filename:=iPath & iFileName & ".xlsx": DoEvents
wb.Sheets(Array(AName1, AName2, AName3, AName4, AName5, AName6, AName7, AName8, AName9, AName10, AName11, AName12, AName13, AName14, AName15, AName16, AName17, AName18, AName19)).Copy after:=wb_2.Sheets(wb_2.Sheets.Count)
With wb_2
Application.DisplayAlerts = False
    '.Sheets("1").ScrollWorkbookTabs Position:=xlLast
.Sheets("1").Visible = False
.Sheets("2").Visible = False
.Close 1
    End With 
Application.DisplayAlerts = True
    Set wb_2 = Nothing
    Next
    Application.ScreenUpdating = True
    wb.Close 1
 
Если очень захотеть - можно в космос полететь ;)
Активация книги при открытии формы
 
Подскажите пожалуйста в чем может быть загвостка! есть файл в нем есть форма на форме кнопочка закрывающая текущую форму и открывающая следующую, если активный файл Excel тот в котором созданы формы, то всё ок, если активный файл какой то другой то вылетает ошибка!
суть вопроса вот участок кода

Код
Unload Me 
If ActiveWorkbook.Name <> ThisWorkbook.Name Then Windows(ThisWorkbook.Name).Activate
Sms.Show 0
 
но почему то если пошагово выполнить, то всё ок, меняется активная книга, если через кнопочку без остановки, то активная книга не меняется, подскажите как решить проблемку!
Если очень захотеть - можно в космос полететь ;)
Печать Изображения из Userform.imge
 
Прошу совета, есть UserForm, в ней есть image его надо распечатать, знаю откуда подгружается само исходное изображение, вот подумал отправить через shell , но почему то файл не попадает в очередь печати

Код
  printer = Application.ActivePrinter
  img = Label1 ' Полный путь к файлу!
  Shell "print /d:" & printer & " " & img, vbNormalFocus
 
не подскажите в чем может быт проблема, может есть интересней решение?
Если очень захотеть - можно в космос полететь ;)
Зависание при открытии word'a
 
Доброго дня,вот суть проблемки
На некоторых ПК все работает корректно, но на некоторых даже код
Код
  Set objWord = CreateObject("Word.Application")
With objWord
.Application.Visible = True
.Application.Documents.Add 'Зависает "Ошибка ожидание завершения Ole........
End With
не срабатывает, возможно ли подобное в разницах разрядности фиса x86 и x64? или может кто то сталкивался с подобной ошибкой? помогите советом!
Спасибо!
Изменено: lexey_fan - 29.07.2014 09:01:28
Если очень захотеть - можно в космос полететь ;)
Отправка SMS
 
Форумчане, протестируйте пожалуйста отправку смс (у кого дойдёт сообщение отпишитесь)
Если очень захотеть - можно в космос полететь ;)
Что такое предупрежденя?
 


Вот такое увидел, расскажите пожалуйста, что это  и с чем едят)
Если очень захотеть - можно в космос полететь ;)
Excel и фискальный регистратор
 
Люди добрые,  поделитесь или направьте в нужную сторону, возникла потребность задружить фискальный регистратор и excel,  т.е. есть в excel реализована программа для учёта продаж услуг, сейчас захотели прикрутить  к этой программе принтер чеков для ЕНВД вот не знаю с какой стороны подойти, спасибо
Если очень захотеть - можно в космос полететь ;)
одна и таже формула считает не корректно
 
Картинка подскажите как так-то?=)
Если очень захотеть - можно в космос полететь ;)
Exce + google API
 
Уже много времени терзает вопрос как автоматизировать работу с Гугл календарем (только добавление события), на данный момент для себя нашёл временное решение: через Горячие клавиши (т.е. через sendkeys отправляю сочетание клавиш в браузер) и соответственно добавляю событие, но периодически срабатывает не корректно(да и признаюсб это не совсем корректно и удобно)!  Тут (на форуме) мне посоветовали копать в сторону Google Api, посмотрел материал на сайте Googl, но не смог разобраться что к чему, серфинг по интернету также не привел к положительным результатам(((  Может кто копал в эту сторону, и подскажет, или поделится примером использования Api? заранее спасибо!
Если очень захотеть - можно в космос полететь ;)
Из нестандартного формата даты получить "DD,MM,YYYY"
 
Задался вопросом получения даты из интернета, использую что то вот такое:

Код
Dim RetVal As Variant
Dim MyURL As String
Dim dat As String
Dim timStart As Integer
Dim datStart As Integer
Dim datEnd As Integer
Dim oHttpTest As Object
Set oHttpTest = CreateObject("Microsoft.XMLHTTP")
MyURL = "http://www.time.gov/timezone.cgi?Central/d/-6"
oHttpTest.Open "POST", MyURL, False
oHttpTest.Send
If CLng(oHttpTest.Status) < 300 Then 'Response is OK
datStart = InStr(oHttpTest.responseText, "<td align=" & Chr(34) & _
"center" & Chr(34) & "><font size=" & Chr(34) & "7" & Chr(34) & " color=" & _
Chr(34) & "white" & Chr(34) & "><b>") + 116
datEnd = InStr(datStart, oHttpTest.responseText, "<br>")
timStart = InStr(oHttpTest.responseText, "<td align=" & Chr(34) & _
"center" & Chr(34) & "><font size=" & Chr(34) & "7" & Chr(34) & " color=" & _
Chr(34) & "white" & Chr(34) & "><b>") + 51
dat = Mid(oHttpTest.responseText, datStart, datEnd - datStart)
MsgBox dat
Else
dat = Date
MsgBox dat
End If
Set oHttpTest = Nothing
 
В итоге получаю
"Friday, January 24, 2014"
А перевести это добро в формат "dd,mm,yyyy" что то не получается.
Посоветуйте пожалуйста как изменить формат.
Если очень захотеть - можно в космос полететь ;)
Печать нескольких таблиц
 
Доброго дня, помогите советом, существует книга где 10 листов с одинаковыми по форме таблицам: номер телефона, тариф, сумма и комментарий, но есть таблицы с 5 строками, а есть 30... . Подскажите как организовать сбор данных на 1 лист, но при этом, если таблица выходит за границы листа, её переносить на следующий лист при печати? Или посоветуйте как проверить входит ли таблица в область печати листа?
Изменено: lexey_fan - 20.09.2013 10:43:50
Если очень захотеть - можно в космос полететь ;)
Google Календарь и Excel, Добавление задачи в Google календарь из Excel
 
Доброго дня форумчане, сталкивались ли с такой "штукой", как добавление записи в Google календарь из Excel, в ручную это возможно, т.е. промежуточное сохранение таблицы с нужным расширением, и потом из календаря импортировать эту таблицу, а вот возможно ли как то это реализовать без дополнительных шагов, т.е. нажали, грубо, кнопочку задача попала в календарь! Прошу совета, если был у кого то опыт.
Если очень захотеть - можно в космос полететь ;)
C Днём программиста)), c 256 днём в году))
 
Грозный жрец машинных кодов,
До заоблачных высот
Он достанет, и по ходу
В цифру всё переведет.
В этом деле он неистов,
Даже сдерживать пора…
В общем, так: с Днем программиста!
Enter! То есть, тьфу, ура!
Если очень захотеть - можно в космос полететь ;)
Userform свернуть в трей
 
Доброго вечера многоуважаемые форумчане!
Задался идеей:(предыстория) Использую файл эксель для подготовки запросов поставщикам, т.е. заполняется форма, и по нажатию кнопки происходит отправка письма на электронную почту с сформированным запросом! За день запросов бывает и 1, и 50! Так же при открытии книги, книга скрывается, остаётся только форма, а вот отсюда вопрос, возможно ли каким то образом сворачивать форму в трей и потом разворачивать оттуда, при этом работать с другими документами? и также вопросик, возможно ли использовать
Код
Application.Visible = False

только для текущей книги?
Если очень захотеть - можно в космос полететь ;)
Использовать не установленный по умолчанию принтер
 
Доброго дня, столкнулся с проблеммой, раньше не нужно было сейчас остро встала необходимость выводить содиржимое текстбоксов на печать не на принтер по умолчанию, а выбирать принтер!
подскажите пожалуйста, как подсказать вот этому:
Код
shellexecute 0, "Print"

печатать не напринтер по умолчаню а печать на принтер полученный через диалог
Код
Application.Dialogs(xlDialogPrinterSetup).Show
?
Спасибо
Если очень захотеть - можно в космос полететь ;)
Пересчёт данных в столбце
 
Многоуважемые форумчане помогите пожалуйста разобраться в ситуации :
есть столбец из 5 строк в 6 строке итого( столбец заполнен единицами), т.е. в сумме 5, при изменении допустим первой строки и нажатии на кнопочку остальные 4 строки пересчитываются так чтоб в сумме было 5 (на одинарный запуск не составляет труда реализовать), но при дальнейшем изменении допустим 2 строки, первая и вторая  не должны меняться, а пересчитаться только последние 3, и так далее, как то можно это реализовать без доп столбцов и формул.
Спасибо!
Если очень захотеть - можно в космос полететь ;)
Странное округление
 
Совсем запутался, помогите пожалуйста
к примеру
Код
Sub test)
g = InputBox("")
d = InputBox("")
bb = g \ d
MsgBox bb
End Sub

при значениях допустим 1,2 и 2 выдаёт в решении 1 пробовал присваивать переменным числовые типы данных не помогло"
Если очень захотеть - можно в космос полететь ;)
Некорректно переносится текст из Excel в Outlook
 
Увжаемые форумчане, сделал формочку в excel, небольшое количество Textbox (форма используется для отправки письма ч/з Outlook
но при формирование тела письма, если выводить MsgBox то текст пишется как надо по разным строкам, но при формировании письма всё собирается в одну строку вот кусочек кода

Код
For I = 1 To 9
i2 = I + 9
i3 = i2 + 8
If IsNumeric(Me.Controls("TextBox" & I).Text) Then
q = q & Me.Controls("TextBox" & I).Text & "." & " " & (Me.Controls("TextBox" & i2).Text) & vbNewLine & "Колличесво: " & (Me.Controls("TextBox" & i3).Text) & vbNewLine
End If
Next
message_text = "Подскажите, пожалуйста, сможете ли вы нам поставить данное оборудование:" & vbNewLine & q & vbNewLine & "Коментарий: Предварительно интерисует цена, товар не заказывать"
MsgBox message_text
    ActiveWorkbook.FollowHyperlink Address:="mailto:" & Register_address & "?subject=" & subject_text & "&body=" & message_text

Подскажите в каком направлении думать  :)
Если очень захотеть - можно в космос полететь ;)
Обработка ошибки в цикле
 
Уважаемые форумчане помогите пожалуйста Не работет обработка ошибок в цикле
вот кусочек на котором ошибка, ошибка обрабатывается 1 раз, при повторном возникновении выдает ошибку
Код
On Err GoTo dsa
If Sheets(1).Cells(i, 15) < 0 Then Sheets(1).Cells(i, 15) = 0
dsa:


Err.clear - не помогло(((
Если очень захотеть - можно в космос полететь ;)
Ввод данных в текст бокс
 
Подскажите пожалуйста, можно ли реализовать процесс воода в таком стиле, т.е. изначально в текст боксе допустим "00000000" это видно, при вводе "1" получалось бы: "00000001", при вводе ещё единицы получим "11", но в текст боксе "00000011" и так далее? буду рад любым советам
Если очень захотеть - можно в космос полететь ;)
Печать из формы
 
Собрал на просторах интернета, по форумам вот такой вот кодик

Private Sub CommandButton8_Click()
Dim sFile $, FreeFile%
sFile = ActiveWorkbook.Path & "\Kontakt.txt"
MsgBox sFile
Open sFile For Output As #FreeFile
Print #FreeFile, TextBox9.Text
Close #FreeFile
ShellExecute 0, "print", sFile, 0, vbNullString, 0
Kill sFile
End Sub

При нажатии кнопочки на форме он выводит сообщения что нет файла, с вопросом создать, жму ок, и молчание, если в макросе просчёлкат кнопкой F8, все работает и печатает, в чём может быть загвостка?
Если очень захотеть - можно в космос полететь ;)
Не формируется listbox в цикле
 
Попробовал заполнить listbox через цикл, вот код:
For i = 1 To 1000
   If InStr(1, Cells(i, "h"), "ОК", vbTextCompare) > 0 Then
Cells(i, "H").Select
  n = ActiveCell.Row
Aa= Cells(i, 3)
ss = Cells(i, 4)
bb = Cells(i, 2)
xx = Cells(i, 6)
cc = Cells(i, 5)
vv= Cells(i, 6)
    For x = 1 To 1000
   With ListBox1
.ColumnCount = 6
.List(x, 1) = Aa
.List(x, 2) = bb
.List(x, 3) = xx
.List(x, 4) = cc
.List(x, 5) = vv
.List(x, 6) = ss
End With
Next x
End If
Next i

Вываливается ошибка когда доходит до  .List(x, 1) = Aa , может кто что то посоветовать?
Если очень захотеть - можно в космос полететь ;)
дата отгрузки
 
If Not Intersect(Target, Range("A1:A1050")) Is Nothing Then  
With Target(1, 2)  
If WeekdayName(Weekday(Date, vbMonday)) = "понедельник" Then d_1 = Date + 5  
If WeekdayName(Weekday(Date, vbMonday)) = "вторник" Then d_1 = Date + 4  
If WeekdayName(Weekday(Date, vbMonday)) = "среда" Then d_1 = Date + 3  
 
If WeekdayName(Weekday(Date, vbMonday)) = "четверг" Then d_1 = Date + 9  
If WeekdayName(Weekday(Date, vbMonday)) = "пятница" Then d_1 = Date + 8  
If WeekdayName(Weekday(Date, vbMonday)) = "суббота" Then d_1 = Date + 7  
If WeekdayName(Weekday(Date, vbMonday)) = "вскресенье" Then d_1 = Date + 6  
.Value = d_1  
 
вот часть кода, которая при изменении ячеек в стобце А в соседнюю ячейку прописывет дату ближайшей поставки товара : суббота, но мы обычно до 12.00 среды формируем заказы на текущую субботу, а после 12.00 через субботу, возможно ли как то это реализовать в выше преведённом макросе?
Если очень захотеть - можно в космос полететь ;)
Макрос. Поиск по 2 критериям
 
Добрый день имеется вот такой макрос:  
Он находит дату ближайшей субботы и по ней формирует отчёт(1 критерий) не знаяю как реализовать поиск по второму критерю, т.е эттот макрос находит все данные по 2-м менеджерам,(в 2 столбце таблице указана фамилии менеджеров), а в ячейке A1 фамилия текущего менеджера (по которому и надо сформировать отчёт) подскажите пожалуйста, фаил прилагаю.
Если очень захотеть - можно в космос полететь ;)
Форма и результат вычислений
 
подскажите как можно реализовать такой момент:  
При открытии определённого листа, запускается форма с выбором пользователя, хотелось бы чтоб в этой форме было окошечко, которое показывало сумму из столбца "P"!
Если очень захотеть - можно в космос полететь ;)
Страницы: 1 2 След.
Наверх