| История развития программирования, программирование, языки программирования, книги программирование | На сайте представлена информация про программирование в Интернете и работу |
|
Как настроить принтер, какой ActiveX обьект нужен? Список устройств и их файловая система, нужно получить Копирование папок, вместе со всем содержимым Лабы по Visual Basic, Лабы по Visual Basic Помогите разобраться в скриптах Как проиграть avi файл прямо из ресурса, Как проиграть avi файл прямо из ресурса FoxPro(Ado) + VB = problem Как Вы относитесь к курящим девушкам? Киньте ссылки на сайты по макросов на VB6 В ехcеlе Проблема с интерфейсом Возможности VB Как заблокировать клавиатуру? Трабл в MySQL, Не пинайте в БД, я думаю что мне сюда :) Сетевое окружение в DirListBox строки в VB6, строки размером больше 1024 символа Форматирование отчета из DataReport Где хранить изображения? получение объекта из строки, (для VBA) Зарегестрированный тип файлов, запуск приложения с одновременным открыт Квест на VB, Я тут решил сделать квест на VB... Форма поиска..., Hellp Me макрос, EXEL, Макрос для совпадающих значений Компиляция в VB 6.0, Как подхватить библиотеки и их зарегить Упражнения Максимальная длина String Как перехватить нажатие кнопки в MsgBox? Перевод . в , Разукраска, функции для покраски ФОРМЫ Вывод данных на форму из связанных таблиц Создание инсталляции VB-6 - уменьшение обьема, Стандартная инсталляция-уменьшить размер VB6 и Access 2003 Выбор директории в БД Access (не BrowseForFolder), там не хватает кой-чего Организация поиска данных в oracle, Организация поиска данных в oracle Анимация формы., Выезд формы на экране. как открыть файл и получить его содержания в 0,1 Есть ли в Java что-то типа foreach ? BMP в RichText, вставить BMP в RichText без вызова меню Какой OCX, Какой OCX подключить к VB? Blitz Basic ListBox Почему не работает Split? Сохранение, Сохранение переменных в текстовый файл Перетаскивание окна, Как перетаскивать окно за Picture? Цикл, Обясните как написать проблема с функцие 3D Движок iRender3D, Развею заблуждения :) Окно неправильной формы, Как создать окно неправильной формы? Calendar to Date суммирование повторяющихся значений, l,VBA Глюк при установке приложения, SOS, срочно помогите, плиз Работа с HTML, как можно организовать.... Настройка Adodc Как избавиться от всплывающих подсказок?, Компонет: Microsoft Windows Media Player Почему пишет, что плохой адресс Как Вы относитесь к курящим девушкам? Проблема с паузой и событием., Компонет: Microsoft Windows Media Player ComboBox в VB, Открытие списка по нажатию клдавиши Системное время Доступ к объекту класса Как сделать, что бы функция не тормозила? Какие ActiveX востребованны?, Какие ActiveX контролы вам нужны? Перемещение формы Как определить группу пользователей? функция проигрывания mp3 Как получить список файлов?, Microsoft Common Dialog Control 6.0 Всегда сверху Работа с портами и системным временем в VB, Помогите!!!! работа с RichText, как использовать коды FileListbBox Можно ли скопировать массив в другой массив?, ламерский вопрос... Шифровка, Шифровка |
Платные хостинги Раскрутка сайта Книги по программированию суммирование повторяющихся значений, l,VBA
- На первый лист мастер цеха записывает Фамилию рабочего и код выполненной им операции.Автоматически проставляетчя затраченное время.На втором листе Табель (Список работающих и в названии столбцов -числа месяца). При заполнении первого листа автоматически проставляется "8" в табеле.Хотелось бы что бы вместо "8" проставлялась сумма выполненной работы рабочим за день. Так скажем суммировать повторяющиеся записи.Private Sub CommandButton1_Click()Код Dim k As IntegerDim d As IntegerDim c As IntegerDim r As IntegerDim v As Integerd = Лист1.UsedRange.Rows.Count 'заполняющийся списокFor rwIndex = 2 To dc = Лист2.UsedRange.Rows.Count 'Список работников в табелеFor rwIn = 2 To cIf Лист1.Range("A" & rwIndex).Value = Лист2.Range("A" & rwIn).Value Then'Если фамилия совпадаетv = Лист2.UsedRange.Columns.Count 'Названия столбцов -датаFor r = 1 To vk = k + 1If Range("B" & rwIndex).Value = Лист2.Cells(1, k).Value Then' то по дате в столбце"B"лист1Лист2.Cells(rwIn, k).Value = 8 'Ставим восьмерку в совпадающем по дате столбце на Лист2End IfNext rEnd Ifk = 0Next rwInNext rwIndexEnd SubhighlightSyntax('vbOGFkY2','vb'); - Куда проставляется, столбик какой?А тут я вообще не понял зачем нужна переменная k.Код For r = 1 To vk = k + 1If Range("B" & rwIndex).Value = Лист2.Cells(1, k).Value Then' то по дате в столбце"B"лист1Лист2.Cells(rwIn, k).Value = 8 'Ставим восьмерку в совпадающем по дате столбце на Лист2End IfNext rhighlightSyntax('vb2MjNjN','vb');Помоему если написать такКод For r = 1 To vIf Range("B" & rwIndex).Value = Лист2.Cells(1, r).Value Then' то по дате в столбце"B"лист1Лист2.Cells(rwIn, k).Value = 8 'Ставим восьмерку в совпадающем по дате столбце на Лист2End IfNext rhighlightSyntax('vbGRlZjc','vb');то ничего не изменится... Или я опять недоспал? - здесь ты прав. Но меня обрадовало то ,что меня поняли Цитата Куда проставляется, столбик какой?Ну скажем Столбец А - фамилия Столбец В-код операции С - затраченное время на операцию D - дата Ну вот ,если Фамилия и дата совпадают ,надо суммировать.Меня вобще-то просили просто цветом закрасить ,ноя думаю сумма была бы лучше .Сразу видно кто сколько заработал за день. - А так не пойдет?Код Dim d As IntegerDim c As IntegerDim r As IntegerDim v As Integerd = Лист1.UsedRange.Rows.Count 'заполняющийся списокFor rwIndex = 2 To dc = Лист2.UsedRange.Rows.Count 'Список работников в табелеFor rwIn = 2 To cIf Лист1.Range("A" & rwIndex).Value = Лист2.Range("A" & rwIn).Value Then'Если фамилия совпадаетv = Лист2.UsedRange.Columns.Count 'Названия столбцов -датаFor r = 1 To vIf Range("B" & rwIndex).Value = Лист2.Cells(1, к).Value Then' то по дате в столбце"B"лист1 'Ставим восьмерку в совпадающем по дате столбце на Лист2Лист2.Cells(rwIn, k).Value = Лист2.Cells(rwIn, k).Value + Лист1.Range("C" & rwIndex).ValueEnd IfNext rEnd IfNext rwInNext rwIndexEnd SubhighlightSyntax('vbYTg2ZD','vb'); Добавлено @ 00:51 Или что-нибудь похожее... - Все получилоь.Только k на r надо исправить,если кому интересно!Классная выборка получилась без всяких запросов. Эх смалики не вставляются.Ну тогда пойду спою,а может даже и станцую.С П А С И Б О ! Там в офисе есть тема (5у),теперь я знаю ответ,но сначало у себя попробую. - Уже было поздно и я не заметил как я нажал на "r", а прописал русское "к" Вот прикол... А все потому, что сплю по 5-6 часов в последние дни  |