Заполнение табеля, свод информации по листам.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Заполнение табеля, свод информации по листам. (Макросы Sub)

DZiMMi

Дата: Понедельник, 19.08.2013, 16:24 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Доброе время суток.
Файл: http://plint.ucoz.ru/Tabel1.rar
Расчеты произведены при помощи функций... Лист Т-О - рассчитан для 1 человека, а необходимо рассчитать 300.
Из этих расчетов необходимо составить сводный табель. При этом на отдельном листе выбить суммарную информацию информацию по подразделениям (S,L,K,Z)
Спасибо огромное...

Ответить

M73568

Дата: Понедельник, 19.08.2013, 16:57 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 197

Репутация: 46 ±

Замечаний: 0% ±

2007-2013

Заведите отдельный лист(таблицу) с заполненными полями: месяц, подразделение, ФИО (или номер) работника, отметка о явке/неявке, время, и уже оттуда заполняйте табеля и считайте сводный табель. Вам будет намного легче, да и формулы будут не такие массивные.

Сообщение отредактировал M73568 - Понедельник, 19.08.2013, 16:58

Ответить

DZiMMi

Дата: Вторник, 20.08.2013, 12:51 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Цитата (M73568, 19.08.2013 в 16:57, в сообщении №2)

ми:

Так вот в этом то и проблема, т.к. табель заполняют 20 подразделений, в ручную считать долго, а автоматизировать при помощи формул - документ тормозит... да и на моем компе долго открывается...

Ответить

DZiMMi

Дата: Вторник, 20.08.2013, 13:01 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

может подскажет как код написать чтобы при контроле на листе табель (там где проставляются по подразделениям неявка) проводить данные. пробовал:
[vba]

Код

Sub Пересчет()
Application.ScreenUpdating = False
а = 1
Range("A8").Select
For а = 1 To 300 Step 1
If a = 300 Then Exit For
ActiveCell.FormulaR1C1 = а
Sheets("Операционный").Select
Range("E8:AI307").Select
Application.CutCopyMode = False
Selection.Copy
Range("AY8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E8").Select
Sheets("Т-О").Select
Range("A8").Select
а = а + 1
Next
Application.ScreenUpdating = True
End Sub

[/vba]

Но .... тут идет затирание старой информации? и не сохраняет неявку...

Поэтому нужно сделать что то на подобее только чтобы информация находилась в таблице и в нее можно было бы внести изменение

Ответить

DZiMMi

Дата: Вторник, 20.08.2013, 13:23 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

а лучше в процедуре копирования - сделать цикл - и проверку по заполненному значению ячейки отработанного времени в табеле операционный равняется ли она 0 если да тогда далее если нет тогда скопировать в ту же строку

Ответить

DZiMMi

Дата: Вторник, 20.08.2013, 13:27 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

просто я не знаю как это сделать на языке программирования, только начал разбираться в этом.....

Ответить

DZiMMi

Дата: Четверг, 22.08.2013, 09:23 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

[vba]

Код

Sub Провести()
Application.ScreenUpdating = False
a = 8
c = 51
d = 5
i = 1
f = 20
g = 5
While Worksheets("Îïåðàöèîííûé").Cells(a, 45).Value = 0
a = a + 1
Wend
For i = 1 To 45 Step 1
Worksheets("Операционный").Cells(a, c).Value = Worksheets("Операционный").Cells(a, d).Value
Worksheets("S").Cells(a, f).Value = Worksheets("S").Cells(a, d).Value
c = c + 1
d = d + 1
Next
For i = 1 To 15 Step 1
Worksheets("S").Cells(a, f).Value = Worksheets("S").Cells(a, g).Value
Worksheets("Z").Cells(a, f).Value = Worksheets("Z").Cells(a, g).Value
Worksheets("K").Cells(a, f).Value = Worksheets("K").Cells(a, g).Value
Worksheets("L").Cells(a, f).Value = Worksheets("L").Cells(a, g).Value
f = f + 1
g = g + 1
Next
Sheets("Т-О").Select
Range("E10:AI10,E12:AI12,E16:AI16,A3").Select
Range("E16").Activate
Selection.ClearContents
Worksheets("Т-О").Cells(8, 1).Value = Worksheets("Т-О").Cells(8, 1).Value + 1

Range("E10").Select
Application.ScreenUpdating = True
End Sub

[/vba]

Сам допетрил... Спасибо за тишину... Думал спецы тут консультируют... а на самом деле нужно делать все самому... Хотя так и становятся программерами...