Рассчитать время смены исходя из количества часов и количество рабочих

@kirja23 · Регистрация: 17.10.2012

Author24 — интернет-сервис помощи студентам

я здесь "новичек", похожую тему я уже выставлял, но её не могу найти....

описание задания: есть 5 команд в колонке "А"

в колонке "Б" находятся рабочии часы

в колонке "С" находятся необходимое количество рабочих, значит 21,25/8,5 = 2,50, рабочий день длится 8,5 часов

в колонке находятся "Д" данные рабочии

колонки "Е и Ф" для нас не интересны

рабочий день длится 8,5 часов (перерыв с 09:00 до 09:30 и 13:00 до 13:20), раб.день начинается с 07:30 до 17:00. сейчас линии ориентируются на колонку Б.

моё задание:

пример1: если скажем в колонке Б стоит 10 часов и данное количество работников 2, то эти 2 работника работают по 5 часов каждый.

пример2: если в колонке "Б" стоит 20 часов то данное количество рабочих работает полный раб. день, т.е. 8,5 часов

был бы благодарен идеям и если возможно их реализации!!!!!!!!!

@kirja23 · 14.11.2012, 19:28 **[ТС]**

что ни у кого нет идей? может я описал свою проблему, не так конкретно, как нужно???

Скрипт · 14.11.2012, 20:13

Сообщение от kirja23

то эти 2 работника работают по 5 часов каждый.

а какой столбец должен содержать число 5?

@kirja23 · 14.11.2012, 22:27 **[ТС]**

я вот и не знаю как дальше действовать, идеи закончились, может вы подскажете!!!!

Скрипт · 14.11.2012, 22:34

Сообщение от kirja23

я вот и не знаю как дальше действовать, идеи закончились, может вы подскажете!!!!

если вы не знаете, как это делается без VBA, то с VBA нельзя сделать.

@kirja23 · 14.11.2012, 22:53 **[ТС]**

я не пойму как это в vba сделать, так то я это понимаю!

если там меньше 8,5 часов, то они делятся на количество рабочих и у всех рабочих одинаковое количество часов, а если там больше чем 8,5 часов на каждого данного работника, то данные работники работают максимум 8,5 часов!

Скрипт · 14.11.2012, 22:55

kirja23, куда результат записывать?

@kirja23 · 14.11.2012, 22:59 **[ТС]**

в колонку "G"

Скрипт · 15.11.2012, 08:35

Сообщение от kirja23

пример1: если скажем в колонке Б стоит 10 часов и данное количество работников 2, то эти 2 работника работают по 5 часов каждый.
пример2: если в колонке "Б" стоит 20 часов то данное количество рабочих работает полный раб. день, т.е. 8,5 часов

Visual Basic

Sub Procedure_1()
 
    Dim i As Long
    
    'Двигаемcя по столбцу B пока не встретим пустую ячейку.
    i = 2
    Do While IsEmpty(Cells(i, "B")) = False
    
        'Смотрим, что в текущей ячейке.
        Select Case Cells(i, "B").Value
        
            'Если в ячейке число 10.
            Case 10
                'Если в столбце D число 2.
                If Cells(i, "D").Value = 2 Then
                    'Заносим данные в столбец G.
                    Cells(i, "G").Value = 5
                End If
                
            'Если в ячейке число 20.
            Case 20
                If Cells(i, "D").Value = 2 Then
                    Cells(i, "G").Value = 8.5
                End If
                
        End Select
        
        'Переход к следующей ячейке
        i = i + 1
    Loop
 
End Sub

@kirja23 · 15.11.2012, 12:22 **[ТС]**

СКРИПТ, спасибо большое, код работает.

была бы еще одна просьба: код написан сейчас только для 10 и для 20, можно сделать так что бы код работал для всех чисел???

заранее огромное спасибо!!!

Скрипт · 15.11.2012, 12:26

Сообщение от kirja23

можно сделать так что бы код работал для всех чисел???

в сообщении #1 только про два числа говорится. Где остальные варианты взять?

@kirja23 · 15.11.2012, 12:30 **[ТС]**

в таблице которая находится в первом сообшении.

но эти числа в таблице меняются!

Скрипт · 15.11.2012, 12:32

kirja23, а что делать, если в столбце B число 21,25?

@kirja23 · 15.11.2012, 18:45 **[ТС]**

тут следующая логика: есть столбец с рабочими часами, необходимое количество рабочих и данное количество рабочих. Так как необходимое кол. рабочих больше чем данное кол. рабочих, тогда данные рабочии работают максимум 8,5 часов, если данное количество больше чем необходимое, тогда рабочии часы делятся на рабочии часы!

Добавлено через 5 часов 50 минут
люди, на самом деле, здесь речь идет только о стрелках которые появляются после того как нажмешь на кнопку (на sheet2)!!!

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	14.11.2012, 19:28 [ТС]	2
	что ни у кого нет идей? может я описал свою проблему, не так конкретно, как нужно??? 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	14.11.2012, 20:13	3
	Сообщение от kirja23 то эти 2 работника работают по 5 часов каждый. а какой столбец должен содержать число 5? 0

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	14.11.2012, 22:27 [ТС]	4
	я вот и не знаю как дальше действовать, идеи закончились, может вы подскажете!!!! 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	14.11.2012, 22:34	5
	Сообщение от kirja23 я вот и не знаю как дальше действовать, идеи закончились, может вы подскажете!!!! если вы не знаете, как это делается без VBA, то с VBA нельзя сделать. 0

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	14.11.2012, 22:53 [ТС]	6
	я не пойму как это в vba сделать, так то я это понимаю! если там меньше 8,5 часов, то они делятся на количество рабочих и у всех рабочих одинаковое количество часов, а если там больше чем 8,5 часов на каждого данного работника, то данные работники работают максимум 8,5 часов! 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	14.11.2012, 22:55	7
	kirja23, куда результат записывать? 0

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	14.11.2012, 22:59 [ТС]	8
	в колонку "G" 0

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	15.11.2012, 12:22 [ТС]	10
	СКРИПТ, спасибо большое, код работает. была бы еще одна просьба: код написан сейчас только для 10 и для 20, можно сделать так что бы код работал для всех чисел??? заранее огромное спасибо!!! 0

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	15.11.2012, 12:26	11
	Сообщение от kirja23 можно сделать так что бы код работал для всех чисел??? в сообщении #1 только про два числа говорится. Где остальные варианты взять? 0

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	15.11.2012, 12:30 [ТС]	12
	в таблице которая находится в первом сообшении. но эти числа в таблице меняются! 0

	15.11.2012, 18:45

Скрипт 5472 / 1150 / 50 Регистрация: 15.09.2012 Сообщений: 3,518
	15.11.2012, 12:32	13
	kirja23, а что делать, если в столбце B число 21,25? 0

@kirja23 0 / 0 / 0 Регистрация: 17.10.2012 Сообщений: 8
	15.11.2012, 18:45 [ТС]	14
	тут следующая логика: есть столбец с рабочими часами, необходимое количество рабочих и данное количество рабочих. Так как необходимое кол. рабочих больше чем данное кол. рабочих, тогда данные рабочии работают максимум 8,5 часов, если данное количество больше чем необходимое, тогда рабочии часы делятся на рабочии часы! Добавлено через 5 часов 50 минут люди, на самом деле, здесь речь идет только о стрелках которые появляются после того как нажмешь на кнопку (на sheet2)!!! 0