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

Страницы: 1
Размещение итогов по видам товаров в трех строках листа (VBA)
 
#
28.05.2016 06:42:29
Доброго времени!
Прошу помощи в написании пользовательской функции SumTypeProduct, суммирующей стоимость по видам товаров.
Условие:
1. Дана таблица с фиксированным количеством строк и столбцов.
2. Видов товаров может быть от 0 до 10. То есть таблица может быть пустой.
3. SumTypeProduct должна иметь вид "Код_Товара" & " - " & Сумма_По_Товару" (1 - 150).
4. SumTypeProduct следует разместить в трех строках итогового столбца, при необходимости используя разделитель и пробел "; ". Например, если количество "Кодов_Товара" равно пяти, то SumTypeProduct принимает вид:
1 строка: 1 - 150; 2 - 40
2 строка: 3 - 80; 4 - 50
3 строка: 5 - 70
Я использовал функцию СУМЕСЛИМН и сумел получить итоговую строку, но дальше ума не приложу, как разместить ее в трех строках итогового столбца.
Пример во вложении, а вот сама функция:
Код
Public Function SumTypeProduct(myRng As Range)
    Dim i As Integer
    Dim mySum As Integer, myStr As String
    For i = 1 To 10
        mySum = WorksheetFunction.SumIfs(myRng.Offset(0, 2), myRng, i) + _
            WorksheetFunction.SumIfs(myRng.Offset(0, 5), myRng.Offset(0, 3), i) + _
            WorksheetFunction.SumIfs(myRng.Offset(0, 8, myRng.Offset(0, 6), i)
        If mySum > 0 Then: myStr = myStr & i & " - " & mySum & "; "
    Next
    MsgBox myStr
End Function
Изменено: KlerKK KlerKK - 28.05.2016 13:54:25
 
Перейти    
VBA Excel - Access 2010: проверка существования записи в Recordset
 
#
14.05.2016 06:09:35
Доброго времени!
Как можно проверить существование записи в Recordset, соответствующей запросу, чтобы в зависимости от результата проверки добавить или изменить запись?
Код
Set rs = New ADODB.Recordset
With rs
    .LockType = adLockOptimistic: .CursorType = adOpenKeyset
    .Source = "SELECT * FROM Товары WHERE Код_Товара=" & myCod
    Set .ActiveConnection = cn: .Open
    If (запись существует) Then: GoTo a:
        .AddNew
a:
        .Fields("Цена_Товара").Value = 3
        .Update
        .Close
End With
 
Перейти    
SQL запросы к книгам Excell
 
#
02.09.2010 18:38:11
Доброго времени суток, форумчане! Небольшой вопрос. Существует таблица, из которой нужно сделать выборку по многим (ну очень многим) критериям. Критерии задаются с помощью OptionButton на UserForm. Пробовал переносить таблицу в массив и прописывать условия с помощью If и Select Case, и все это прогонять через итерации. Получается очень громоздкая и долгодумающая конструкция. Наверняка существует более простое решение (с помощью SQL запросов, как в Access,например). Не подскажете строку подключения к книге Excel как к базе данных через ADO? Результат выборки достаточно прописать в Debug.Print в виде количества отобранных по заданному условию записей. Например "Условию соответствует N записей". Заранее спасибо! Примерчик прилагаю, условия по минимуму, взято из Борея (жмем на кнопочку).
 
Перейти    
Ширины столбцов ListBox
 
#
15.08.2010 09:20:59
Привет жителям планеты Excel. Как обратиться к столбцу элемента ListBox, чтобы установить ширину его столбцов равной ширине столбцов на листе. Вот мой вариант, скорее всего существует способ попроще.
 
Перейти    
Открыть файл PDF с помощью макроса
 
#
21.01.2010 20:16:34
Доброго времени!  
Можно ли открыть файл PDF с помощью макроса? Наверное надо подключить в Preferences Adobe Acrobat...Library. А вот дальше не пойму как.  
Спасибо!
 
Перейти    
Отбор уникальных значений ListBox
 
#
19.12.2009 17:41:25
Доброго времени!  
Прошу совета.  
Даны:  
- таблица с Кодом товара, Датой, Операцией и Номером склада;  
- форма, содержащая сListBox1 и CheckBox1.  
 
При открытии формы данные таблицы переносятся в ListBox1.  
 
Как добиться отображения в ListBox1 уникальных значений Кода товара, соответствующих Операции - вывоз при включении CheckBox1(true).При этом из двух повторяющихся кодов товара, остаться должен товар (и все,соответствующие ему данные) с более поздней датой. В примере выделено цветом.  
 
Спасибо!
 
Перейти    
Проблема при экспорте из других программ
 
#
25.11.2009 16:37:01
Здравствуйте!  
Может быть кто-то уже сталкивался, прошу поделиться.  
При экспорте в Excel из других программ (например, из SAP/R3)формат всех ячеек на листе становится текстовым. Но это еще полбеды. Допустим, имею экспортированную в ячейку A1 запись "123". Изменяю формат на числовой. Но и после этого Excel не видит значение 123 как число. Находясь в ячейке нажимаю F2, затем Enter. Все. Получилось! Но что делать, если записей несколько тыщ?  
Существует ли более простой способ подобного преобразования? И что эт за волшебная клавиша F2?  
Спасибо заранее, простите за косноязычие, старался объяснить как можно проще.
 
Перейти    
Подсчет годового баланса
 
#
17.11.2009 11:13:13
Добрый день!  
Составляю графики выходов персонала на год.  
Количество часов, отработанных каждым человеком, независимо от вида графика, должно быть одинаковым. За эталон принят 40-часовой график с пятидневной рабочей неделей. В 2010 году это 1987 часов. Баланс нарушается, когда человек уходит в отпуск. Часы отпуска рассчитываются следующим образом: к количеству дней отпуска прибавляются праздничные дни (1 мая, 9 мая, 4 ноября и т.д.), если отпуск их захватывает. Затем определяют количество часов по эталонному графику, отработанных в этот период.    
Возможно ли создать функцию, которая автоматически подсчитывала бы часы отпуска? Пример прилагаю.
 
Перейти    
Страницы: 1
Наверх