Ребят помогите пожалуйста, облегчить монотонную, рутинную работу. Нужен простенький калькулятор, подробно описал в файле на Листе1. Вкратце, вводится в две ячейки, две группы чисел формата 26,29,45 и 68,22,10 нужно посчитать разницу между ними и сумму чисел в группе. Пример: 26,29,45 сумма 100 68,22,10 сумма 100 разница: 42 7 35
Юрий М, Пришлось многое удалить чтоб вписаться в 100кб .Для удобства, хотелось бы разместить калькулятор на листе "Результаты", поэтому сразу выложил рабочий файл.
Sub Calc()
Dim Diff(2) As Integer
Dim Des1(2) As Integer
Dim Des2(2) As Integer
Dim Des3(2) As Integer
Application.ScreenUpdating = False
On Error Resume Next
For I = 0 To 2
Fr = Val(Split(Sheets("Результаты").Range("J3").Value, ",")(I))
Sc = Val(Split(Sheets("Результаты").Range("J4").Value, ",")(I))
Sum1 = Sum1 + Fr 'Сумма первой тройки чисел
Sum2 = Sum2 + Sc 'Сумма второй тройки чисел
'Расчет разностей чисел
If Fr >= Sc Then
Diff(I) = Fr - Sc
Else
Diff(I) = Sc - Fr
End If
strDiff = strDiff & "," & Diff(I)
'Двузначные в однозначные
If Fr <= 10 Then
Des1(I) = 0
Else
Des1(I) = Left(Fr, 1)
End If
strDes1 = strDes1 & Des1(I)
If Sc <= 10 Then
Des2(I) = 0
Else
Des2(I) = Left(Sc, 1)
End If
strDes2 = strDes2 & Des2(I)
If Diff(I) <= 10 Then
Des3(I) = 0
Else
Des3(I) = Left(Diff(I), 1)
End If
strDes3 = strDes3 & Des3(I)
Next
'Вывод результатаов на лист
With Sheets("Результаты")
.Range("I5") = Sum1 & "-" & Sum2
.Range("J5") = Right(strDiff, Len(strDiff) - 1)
.Range("K3") = strDes1
.Range("K4") = strDes2
.Range("K5") = strDes3
End With
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
Возможно ли технически научить калькулятор, преобразовывать тройку чисел в символы? по принципу: наибольшее число в тройке это + среднее число это = наименьшее число - пример: 21,8,13 +-= ещё пример: 123 -=+
Если числа равны друг другу то равные числа это = пример: 223 ==+ или 133 -== или 33,33,33 ===
Необязательно использовать формат +=-, можно заменить + на Б, = на Р, - на М пример 57,25,18 это БРМ, ещё 332 это РРМ
Юрий М,стыдно признаваться, но я не "бум бум" в формулах и макросах, потом не смогу самостоятельно всё перенести в рабочий файл, поэтому выкладываю сразу, под всё готовенькое )