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

Страницы: 1
Разность между датами
 
#
12.02.2015 13:09:15
Здравствуйте! Я считываю поле из бд Access формат дата и время за определенный промежуток времени. Мне нужно находить разность дат между каждой из записей,умножать их на определенное значение и суммировать. Помогите пожалуйста.
Код
 Set rs3 = dbs.OpenRecordset("Select DT From Таблица1 WHERE DT BETWEEN Dateadd('h', -1, Now()) AND Now()") 
vCount = 0: sum = 0#
   Do Until  rs3.EOF
        sum = sum + (rs3(0).Value - rs3.MoveNext)*k
        vCount = vCount + 1
        rs3.MoveNext 
    Loop
MsgBox Cstr(sum)
 
Перейти    
Среднее значение массива из Access
 
#
10.02.2015 08:13:04
Здравствуйте! Прошу помочь. Я считываю(пытаюсь) данные(числовые) из Access в массив , к каждому элементу этого массива применяю функцию(просто вычисление),а затем нужно найти среднее арифметическое получившегося массива. НО, у меня ничего не получается ;( Скидываю, что есть.
Код
a = ActiveWorkbook.Path
Set dbs = DAO.OpenDatabase(a + "/test.mdb")
Set rs = dbs.OpenRecordset("Select TOP 7000 density   FROM Таблица1 ORDER BY density Desc")
   
  If Not rs.EOF Then
rs.MoveLast
h = rs.RecordCount
MsgBox h 
End if
rs.MoveFirst
        Dim arr As Variant
        Dim v As Integer
       arr = GetR(rs, rs.RecordCount)
For i = 1 To h
arr(i) = Method(arr(i))'''''''''''функция вычисления
Next i
sum = 0
For v= 1 To h
sum = sum + arr(v)
Next v
MsgBox sum
mA = sum / h

Sheets("Лист1").Cells(1, 4).Value = mA
 
Перейти    
изменить разделитель DTPicker
 
#
30.01.2015 13:41:29
Здравствуйте! Подскажите пожалуйста как изменить разделитель при вызове DTPicker1.Value вместо точки на нижнее подчеркивание.
 
Перейти    
Запуск Excel без GUI
 
#
23.01.2015 07:39:28
Здравствуйте!  Возникла необходимость запускать Excel без графической составляющей, чтобы пользователь не был в курсе. Искала на форуме, может плохо, но не нашла.Подскажите пожалуйста.
 
Перейти    
Ориентация листа при печати
 
#
16.01.2015 08:33:50
Здравствуйте! Подскажите, как можно реализовать изменение ориентации страницы в зависимости от размера документа. Есть 2 книги, в одной хранятся отчеты, в другую они копируются и при нажатии кнопки распечатываются. Отчеты различного размера, поэтому нужно изменять ориентацию страницы. Как это прописать в  макросе? Есть идея, что нужно передавать некий параметр при копировании и в зависимости от этого значения изменять ориентацию.
Код
Sheets("Лист1").Range("A8:P42").PrintOut Copies:=1, Collate:=True
 
Перейти    
Перемещение кнопок в зависимости от диапазона
 
#
14.01.2015 12:26:10
Всех со старым новым годом! Я копирую диапазон ячеек из одной книги в другую, но в книге, в которую копирую, есть кнопки. Как после вставки переместить кнопки?
Изменено: olyam - 14.01.2015 12:26:30
 
Перейти    
ListBox как OleObject Type mismatch
 
#
14.01.2015 07:42:26
Вот код, при нажатии кнопки на определенном значении ListBox нужно, чтобы происходило событие, но почему ListBox не хочет объявляться как  OleObject? Ошибка "Type mismatch". Помогите плиз)

Код
Dim b As Worksheet
Dim cb As ListBox
Set b = Sheets("Лист1")
Set cb = b.OLEObjects("ListBox21").Object
 
Select Case cb.Value
 
Case "Журнал блабла1" 
Макрос1
 
Case "Журнал блабла2"
Макрос2
End Select
Ошибка именно на строке
Код
Set cb = b.OLEObjects("ListBox21").Object
Изменено: olyam - 14.01.2015 07:45:53
 
Перейти    
Ошибка 429: не работает выборка из бд access
 
#
13.01.2015 07:27:24
Здравствуйте! На определенном пк не работает  выборка из бд access. Этот же файл работает на других пк. Error 429, в реестре в путях всё норм, один и тот же офис, одни и те же обновления и одна и та же система установлены на компьютерах. В чем проблема?Заранее спасибо!)
Изменено: olyam - 13.01.2015 13:52:25
 
Перейти    
Запрет доступа к диалоговому окну
 
#
30.12.2014 08:32:53
Здравствуйте! Нужно ограничить возможность пользователя доступа к диалоговому окну, чтобы он не мог воспользоваться кнопочкой "Открыть".Функции Сохранение и Печать(чтобы не получить доступ к проводнику через выбор принтера) ограничены. Подскажите пожалуйста.

Сохраняется в определенную директорию, воспользовавшись формой, пользователь не получает доступа к рабочему столу.
Код
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
        Cancel As Boolean)
        Frm_Save.Show
 Exit Sub
End Sub  
Ограничивается доступ к просмотру принтеров через проводник.
Код
Private Sub workbook_BeforePrint(Cancel As Boolean)
    Cancel = True
    MsgBox "К сожалению, вы не можете печатать этот файл", vbInformation
End Sub
 
Перейти    
Предлагаемый текст в TextBox
 
#
29.12.2014 12:22:29
Всем доброго времени суток! Прошу помощи! У меня есть файлик, при сохранении которого появляется формочка сTextBox, куда пользователь должен ввести название файла. Как вывести в TextBox, предлагаемое имя файла, так, чтобы пользователь мог его изменять? Файлик прилагаю.
Изменено: olyam - 30.12.2014 06:12:33
 
Перейти    
Кнопка на листе в очередной раз не реагирует на нажатие
 
#
26.12.2014 13:19:13
Здравствуйте! На листе есть Combobox и кнопка,выбираем из списка нужный отчет нажимаем кнопочку и  отчет открывается.Но, почему-то Combobox срабатывает кнопка на 5-й, 6-й раз отказывается реагировать. Подскажите пожалуйста в чем проблема?

Код
Sub макрос0()
Dim a As Integer
Dim b As Worksheet
Dim cb As ComboBox
Set b = Sheets("Лист1")
Set cb = b.OLEObjects("ComboBox21").Object
a = cb.ListIndex
Select Case a
Case 0
макрос1
Case 1
макрос2
Case 2
MsgBox "в разработке"
Case 3
MsgBox "в разработке"
Case 4
MsgBox "в разработке"
Case 5
MsgBox "в разработке"
Case 6
MsgBox "в разработке"
Case 7
MsgBox "в разработке"
End Select
End Sub
 
Перейти    
Error 1004: в чем ошибка
 
#
26.12.2014 09:28:20
Здравствуйте! При попытке сохранения книги появляется форма с TextBox и кнопкой "Сохранить", я записываю название в TextBox и при нажатии кнопки копия книги должна сохраняться в новый файл с введенным названием, но появляется ошибка 1004 "vba приложению MS Excel не удается получить доступ к файлу
..." Помогите пожалуйста понять в чем дело.
Код
Private Sub CommandButton1_Click()
Const REPORTS_FOLDER = "Отчеты\"
 ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER
ActiveWorkbook.SaveCopyAs ThisWorkbook.Path & " \ " & REPORTS_FOLDER & TextBox1.Value & ".xls"
ActiveWorkbook.Close False
End Sub
 
Перейти    
Страницы: 1
Наверх