Перемножение полей минуты/секунды в Excel - VB
Формулировка задачи:
Есть, например значение в формате 'минуты:секунды', допустим - 315:99. Так?
И есть стоимость 1-ой минуты - 0,42 коп.
Можно ли умножить первое на второе и как ?
Второй вопрос: в таблице Exel есть две колонки:
первая - Ф.И.О., вторая - Сумма.
На другом листе есть тоже две колонки, например, Ф.И.О. и Сумма_Итого.
В первой таблице, как понимаете, значения Ф.И.О. могут повторяться немеренно раз, изменяться могут только суммы.
А на втором листе по каждой из Ф.И.О. должна заноситься сумма всех сумм по одной фамилии.
Чё-то путанно объяснил, ну может кто поймёт.
На VFP 6.0 обэяснил бы, да незачем - сам знаю.
Это ведь я придуряюсь Ламером, так-то я вообще-то программер на VFP 6.0 b Delfi 5.0+немножко администратор узла Интернет.
Хотя в VB&VBA действительно ламер. Куда деваться? Хочу и его узнать.
Спасибо.
ZandR
P.S. Кому если вдруг что надо по Delfi или по VFP, а может даже и просто по FoxPro 2.* - звоните.
№ одиги (аськи не имею, потомук как одига больше нравиться) - 3387787; Nik - Zavi©
Жду. И ещё раз спасибо.
Решение задачи: «Перемножение полей минуты/секунды в Excel»
textual
Листинг программы
Private Sub Obrabotka () Dim i1, i2, max1, max2 As Integer Dim FlagFIO As Boolean max1 = 'макс номер записи в FIO1, SUM1 For i1 = 0 to max1 FlagFIO = True If max2 <> 0 Then For i2 = 0 to max2 If FIO1(i1) = FIO2(i2) Then 'добавляем только сумму SUM2 (i2) = SUM2 (i2) + SUM1 (i1) FlagFIO = False End If Next End If If FlagFIO Then 'добавляем новую запись целиком max2 = max2 + 1 FIO2(max2) = FIO1(i1) SUM2(max2) = SUM1(i1) End If Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д