Подсчитать плату услуг телефонной связи для каждого клиента

@Mufasa12 · Регистрация: 17.05.2019

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

На листе Excel записаны фамилии жильцов и продолжительность разговора по телефону за текущий месяц в минутах. Подсчитать плату услуг телефонной связи для каждого клиента, если телефонная компания взимает плату по следующему тарифу: 370 мин в месяц оплачиваются как абонентская плата, которая составляет 280 рублей в месяц. За каждую минуту сверх нормы необходимо платить по 0,25 рублей. Подсчитать сумму оплаты и записать в следующий столбец рабочего листа.
Приложите, пожалуйста, скрины таблицы и, если не сложно, укажите комментарии к коду.

@Kate_27 · 17.05.2019, 11:49

Mufasa12, Жаль тратить время на заполнение таблицы. Так что приложите таблицу, заполненную. А с кодом помогу, если уж совсем никак без помощи.

@Mufasa12 · 17.05.2019, 14:45 **[ТС]**

файл xlsm не отправляется, потому только так:

@Kate_27 · 17.05.2019, 16:02

Mufasa12,
Ну вот так например:

Visual Basic

Sub kjkbbib()
    Dim n As Integer
    Dim i As Integer
    n = Cells(Rows.Count, 1).End(xlUp).Row 'количество заполненных строк
    For i = 2 To n
         If Cells(i, 2).Value <= 370 Then
             Cells(i, 3) = 280 & " рублей"
         Else
            Cells(i, 3) = 280 + (Cells(i, 2) - 370) * 0.25 & " рублей"
        End If
    Next i
End Sub

Раз уж обещала помочь

@Mufasa12 0 / 0 / 0 Регистрация: 17.05.2019 Сообщений: 37
		1
	Excel Подсчитать плату услуг телефонной связи для каждого клиента 17.05.2019, 11:11. Показов 2656. Ответов 3 Метки нет (Все метки) На листе Excel записаны фамилии жильцов и продолжительность разговора по телефону за текущий месяц в минутах. Подсчитать плату услуг телефонной связи для каждого клиента, если телефонная компания взимает плату по следующему тарифу: 370 мин в месяц оплачиваются как абонентская плата, которая составляет 280 рублей в месяц. За каждую минуту сверх нормы необходимо платить по 0,25 рублей. Подсчитать сумму оплаты и записать в следующий столбец рабочего листа. Приложите, пожалуйста, скрины таблицы и, если не сложно, укажите комментарии к коду. 0

@Kate_27 198 / 132 / 67 Регистрация: 27.03.2019 Сообщений: 288
	17.05.2019, 11:49	2
	Mufasa12, Жаль тратить время на заполнение таблицы. Так что приложите таблицу, заполненную. А с кодом помогу, если уж совсем никак без помощи. 1

	17.05.2019, 16:02

Подсчитать плату услуг телефонной связи для каждого клиента

Решение