Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/расчет зарплаты за месяц - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » расчет зарплаты за месяц (Макросы/Sub)
расчет зарплаты за месяц
kera Дата: Четверг, 30.05.2019, 23:01 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Я сделал немного лабораторной и остановился на кнопке расчет. мне надо чтоб при вбивании названия цеха и нажатии кнопки сумма появлялось сообщение с суммой зарплаты по данному цеху за месяц. у меня не считает сумму. подскажите что не так с программой?
К сообщению приложен файл: 9185198.xlsm(23.1 Kb)
 
Ответить
СообщениеЯ сделал немного лабораторной и остановился на кнопке расчет. мне надо чтоб при вбивании названия цеха и нажатии кнопки сумма появлялось сообщение с суммой зарплаты по данному цеху за месяц. у меня не считает сумму. подскажите что не так с программой?

Автор - kera
Дата добавления - 30.05.2019 в 23:01
boa Дата: Пятница, 31.05.2019, 10:29 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 407
Репутация: 115 ±
Замечаний: 0% ±

2013, 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,
[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]

Автор - boa
Дата добавления - 31.05.2019 в 10:29
kera Дата: Пятница, 31.05.2019, 18:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

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

Автор - kera
Дата добавления - 31.05.2019 в 18:29
_Boroda_ Дата: Суббота, 01.06.2019, 00:26 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 15576
Репутация: 6077 ±
Замечаний: 0% ±

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
 
Ответить
СообщениеПочему на 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_
Дата добавления - 01.06.2019 в 00:26
kera Дата: Суббота, 01.06.2019, 01:21 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 5
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
а. все понял. спасибо!!
 
Ответить
Сообщениеа. все понял. спасибо!!

Автор - kera
Дата добавления - 01.06.2019 в 01:21
Мир MS Excel » Вопросы и решения » Вопросы по VBA » расчет зарплаты за месяц (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!