Доработать. 1С: Розница, 1С: Торговля и склад. Версия: 7.7. Есть файл XLSM (к сожалению, его сюда нельзя прикрепить), с макросом который рассчитывает (подбирает) розничную цену по указанному мною значению в процентах (чтобы от закупки у меня чистыми оставался указанный мною процент). Цена подбирается макросом потому, что от итоговой цены (которая и подбирается) удерживаются минусуются комиссии и проценты, чтобы в итоге получить желаемый процент от закупочной цены. Нужно написать внешнюю обработку для 1с7, которая будет рассчитывать нужную мне цену аналогичным образом. Вот как написан макрос: Option Explicit Sub Макрос1() ' ' Макрос1 Макрос ' Dim i As Integer, lastrow As Integer, ws As Worksheet, x As Integer, str As String ' Range(“AA5“).GoalSeek Goal:=0.2, ChangingCell:=Range(“U5“) ' Range(“AA6“).Select ' Range(“AA6“).GoalSeek Goal:=0.2, ChangingCell:=Range(“U6“) 1: str = InputBox(“Введите желаемую прибыль в процентах“) If StrComp(str, vbNullString, vbTextCompare) = 0 Then GoTo exit_door If Not IsNumeric(str) Then MsgBox “Вы ввели нечисловое значение. Попробуйте еще раз“ GoTo 1 Else x = CInt(str) End If Set ws = ActiveSheet lastrow = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1 For i = 4 To lastrow If Len(ws.Cells(i, 27)) > 0 Then ws.Cells(i, 27).GoalSeek Goal:=x / 100, ChangingCell:=ws.Cells(i, 21) Next i MsgBox (“Готово!“) exit_door: End Sub.