расчет зарплаты за месяц

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

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

расчет зарплаты за месяц (Макросы/Sub)

kera

Дата: Четверг, 30.05.2019, 23:01 | Сообщение № 1

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

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

Сообщений: 5

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

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

Excel 2007

Я сделал немного лабораторной и остановился на кнопке расчет. мне надо чтоб при вбивании названия цеха и нажатии кнопки сумма появлялось сообщение с суммой зарплаты по данному цеху за месяц. у меня не считает сумму. подскажите что не так с программой?

К сообщению приложен файл: 9185198.xlsm (23.1 Kb)

Ответить

boa

Дата: Пятница, 31.05.2019, 10:29 | Сообщение № 2

Группа: Друзья

Ранг: Ветеран

Сообщений: 559

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

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

365

kera,
[vba]

Код

Private Sub CommandButton1_Click()
    With ActiveSheet
        For i = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
            If Cells(i, 3) = TextBox1 Then Sum = Sum + Cells(i, 4)
        Next
    End With

    MsgBox "сумма по цеху """ & TextBox1 & """ - " & CStr(Sum) & " рублей!", , "Сумма"
    TextBox1 = ""
End Sub

[/vba]

Ответить

kera

Дата: Пятница, 31.05.2019, 18:29 | Сообщение № 3

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

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

Сообщений: 5

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

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

Excel 2007

спасибо. выручил. а если мне надо еще среднюю зп по цеху найти. код тот же будет только в этой строке " Sum = Sum + Cells(i, 4)" добавиться деление на i?

Ответить

_Boroda_

Дата: Суббота, 01.06.2019, 00:26 | Сообщение № 4

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Почему на i? Вы попробуйте и поймете, что непонятность какая-то получится. Вам нужно узнать общую сумму по условию и общее количество по условию. А потом поделить одно на другое
[vba]

Код

For i...
   If cells(i,3) = TextBox1 then
      S=S+cells(i,4)
      n=n+1
   end if
Next i
if n =0 then
   sred=0
else
   sred=S/n
end if

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

kera

Дата: Суббота, 01.06.2019, 01:21 | Сообщение № 5

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

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

Сообщений: 5

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

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

Excel 2007

а. все понял. спасибо!!

Ответить

расчет зарплаты за месяц (Макросы/Sub)

Страница 1 из 1
1