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

Страницы: 1
"Мертвые стоки" - количество дней без движения у остатков товара
 
МатросНаЗебре,этот явно похуже.
Вообще не считает случай, когда остатки весь месяц не менялись.
И нюансы всплывают - пустая ячейка и ячейка с нулем не идентичны.

Считаю, что задача закрыта - мне первого варианта с лихвой, под себя доделаю.
Спасибо еще раз!
"Мертвые стоки" - количество дней без движения у остатков товара
 
МатросНаЗебре,Благодарю!
Единственное, если весь месяц без движения, выдает на один больше (32).
"Мертвые стоки" - количество дней без движения у остатков товара
 
Добрый день!
Честно искал и пытался сам.

Дано: Отчет по остаткам товара по дням (без пропусков, если важно).
Надо: Вычислить для каждого товара с ненулевым остатком количество дней без движения, считая с последнего дня.

Желательно формулами.

В оригинале таблица сводная.
Подсчет среднего значения послених 6 ячеек в таблице
 
Хорошая задачка, так как в формулах я не силен.
Сделал через костыль:
В ячейке C5 формула массива =МАКС(СТОЛБЕЦ(D5:M5)*(D5:M5<>"")-2) для определения последнего заполненного значения.
А саму формулу даже стыдно показывать.
Суммирование, общие количество часов
 
В первой неделе формулу поменял. Правильно считает?
Проверка только одна - если заполнена "von", иначе пустые дни тоже суммируются по той формуле.
Соединить несколько строк цифр упорядочив их, совмещение в одну
 
Распарсить строки, преобразовав диапазоны в списки ячеек; "слить" две строки, проверяя дубли; отсортировать; найти диапазоны смежных ячеек для n>2, вывести строку.
Проще простого.
Автоматический перенос данных с файла в другие файлы по признаку
 
Цитата
spectrumos написал: объединить несколько пустых ячеек
Код
Range("B1:B5").Merge
, например.
Автоматический перенос данных с файла в другие файлы по признаку
 
Цитата
spectrumos написал:
добавить ещё одну ячейку (одинаковую на каждом листе) - нужен отдельный макрос или же можно в этот запихать?
Добавить в макрос после
Код
Cells(9, 2).Value = "Ключевые слова:"
похожую строку (заменив строку - "9" /столбец - "2" /содержание - "Ключевые слова:").
Цитата
первые три листа получаются пустыми
А это тема для домашнего задания!
Автоматический перенос данных с файла в другие файлы по признаку
 
Код
Sub Разбивка()
Dim lastrow As Long, i As Long, j As Long, counter As Long
Dim OldBook As Workbook, NewBook As Workbook

Set OldBook = ActiveWorkbook
Set NewBook = Workbooks.Add
For counter = 1 To OldBook.Worksheets.Count
lastrow = OldBook.Sheets(counter).UsedRange.Row - 1 + OldBook.Sheets(counter).UsedRange.Rows.Count
For i = 1 To lastrow
    If (OldBook.Worksheets(counter).Cells(i, 2).Value) = "" Then
        If j <> 1 Then
        NewBook.Sheets.Add After:=Worksheets(Worksheets.Count)
        Cells(9, 2).Value = "Ключевые слова:"
        End If
        j = 1
    Else
        Cells(j + 9, 2).Value = OldBook.Worksheets(counter).Cells(i, 2).Value
        j = j + 1
    End If
Next i
Next counter
End Sub
В качестве черновика.
Макрос для переноса строк на новый лист при соответствии с условием
 
1. Строка кода 22. Определение последней строки с данными происходит после создания нового листа (и копирования шапки в две строки) - поэтому возвращает 2.
2. Строки 27-38. Кажется, никогда не найдет одновременно все три совпадения при такой организации IF-ELSEIF.
3. Строка 36. Найденная строка всегда будет переноситься в третью на новом листе, а не дописывать в конец.
Трансляция данных из листа в форму по выборке combobox с фиксированными полями textbox
 
По второму пункту:
Код
Private Sub ComboBox1_Change()
TextBox3.Value = Cells(ComboBox1.ListIndex + 3, 3).Value
TextBox4.Value = Cells(ComboBox1.ListIndex + 3, 4).Value
TextBox2.Value = Cells(ComboBox1.ListIndex + 3, 5).Value
End Sub
Сохранить картинки из recordset в файлы
 
Цитата
Андрей VG написал: Возможно, VBA записал и данные типа Variant
Да, именно так.
Сделал, как у вас - объявил массивом байт, и все получилось!
Спасибо огромное.
Сохранить картинки из recordset в файлы
 
Спасибо за ответ.

Поменял на Binary (у меня уже был такой закомментированный вариант, оказывается) - результат тот же: проводник не показывает превьюшки, в содержимом сначала идут лишние символы. FastStone просматривает, но это он такой молодец.
С номерами полей не ошибся - сначала из запроса возвращаются два строковых значения, картинка третьей.
Картинки в базе хранятся именно jpeg'ами, из интерактива выгружаются (call xp_write_file('c:\путь\' || id_cert || '.jpg', doc_image);) нормально и без бубнов.

Какие еще могут быть варианты? Переводить в массив байт? Искать какую-то альтернативу put? ADODB.Stream  не сработает?
Сохранить картинки из recordset в файлы
 
Доброе время суток.

Подключением к базе через ADODB.Connection получаю запросом recordset: строковое поле и картинку (jpeg).
Надо выгрузить их по файлам.
Делаю через:
Код
            Open strPath For Output Access Write As #1
            Put #1, 1, ObjRecordset.Fields(2).Value
            Close #1
Выгружаются, но размер у каждой +12 байт.
О причине нагуглил, да.
Не могу найти вариант записать картинки в файл as is.
Подскажете?
Страницы: 1
Наверх