Модифицировать макрос для нахождения нужного значения

@Erolim · Регистрация: 26.09.2014

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

Здравствуйте форумчане. Нужна помощь в модификации(изменении макроса.) Решил создать новую тему. Т.к. в старой ветке(теме) автор данного макроса не отвечает.
Мне понадобилось модифицировать макрос, для нахождения нужного мне значения. Раньше мы находили:

Visual Basic

1	sS / sU * 100

а теперь нужно: sS * (sS / sU * 100)
Но тут появилась загвоздка!: Во многих случаях значения sS и получаемое Число X (sS / sU * 100) отрицательные/ А когда "-" умножается на "-", то получается "+"! Что портит всю картину. Мне нужно чтобы, при условии, если sS <0 и (sS / sU * 100) <0, то при их умножении получался отрицательный результат, а не переходил в плюс.
Нужно что то вроде условия:

Visual Basic

1	(ЕСЛИ(И(sS <0; (sS / sU * 100) <0);-(sS(sS / sU 100));(sS(sS / sU 100)))

А как это сделать в VBA я не знаю.
прикрепил файл. Там жёлтые ячейки указал где отрицательное значение в итоге после переумножения даёт положительно. Там же и изменённый ваш макрос.
Ссылка на файл с примером: https://www.cyberforum.ru/atta... 1443276646
Сам макрос внутри этого файла.

@~~Апострофф~~ · 03.10.2015, 21:24

ABS(sS) * (sS / sU * 100), если я правильно понял проблему?

@Erolim · 03.10.2015, 21:40 **[ТС]**

Апострофф, прошу прощения. что то замудрил.
Нужно вот примерно так, только чтоб в VBA макросе это делалось

ЕСЛИ(И(sS<0; sU<0);-(sS*(sS / sU * 100));(sS*(sS / sU * 100)))

Добавлено через 7 минут
Апострофф, вы смотрели макрос? сообразили, что он и как делает? что такое ABS я не знаю. Я написал только то что было в макросе
Изначальный макрос был такой:

Visual Basic

Sub Viborkaaa()
Dim lR, k, R, R1, sS, sU, Цифр As Integer, M()
'Цифр = InputBox("Скока цифр", "", 7)
Цифр = 7
With ActiveSheet
lR = .Cells(.Rows.Count, 19).End(xlUp).Row
.Range("AA15:AA" & lR).ClearContents
ReDim M(1 To lR - 14, 0)
    For R1 = lR To 15 Step -1
        k = 0: sS = 0: sU = 0
        For R = R1 - 1 To 15 Step -1
            sS = sS + .Cells(R, 19)
            If .Cells(R, 19) <> 0 Then sU = sU + .Cells(R, 21): k = k + 1
            If k = Цифр Then Exit For
        Next R
        Select Case sS
        Case 0
            M(R1 - 14, 0) = "0"
        Case Else
            M(R1 - 14, 0) =  sS / sU * 100
        End Select
    Next R1
 .Range("AA15:AA" & lR) = M
End With
 
End Sub

А мне нужно теперь за место sS / sU * 100, что было sS * (sS / sU * 100).
но по причине того что значение sS и полученное значение (sS / sU * 100) могут быть оба отрицательными, то минус на минус получается плюс. А мне нужно чтоб так и оставался минус!(при условии что "sS" и значение получаемое формулой (sS / sU * 100) отрицательные)
Я в макросах не очень соображаю и в написании кода тоже.
То что я сообразил это только то, что значения sS берутся из столбца S, а sU из столбца U (для нахождения нужно числа икс из первого задания).

@~~Апострофф~~ · 03.10.2015, 21:41

Erolim, Вы попробовали предложенный вариант?

@Erolim · 03.10.2015, 21:42 **[ТС]**

Апострофф, какой? где? я что то упустил? этот :ABS(sS) * (sS / sU * 100) ?

@~~Апострофф~~ · 03.10.2015, 21:49

Да

, вставьте это вместо вашего.
ABS - это модуль, можно было бы и догадаться...

@Erolim · 04.10.2015, 21:53 **[ТС]**

Апострофф, Благодарю. работает!
Подскажите пожалуйста. где исправить в макросе, чтобы значение которое определяется по формуле:ABS(sS) * (sS / sU * 100) было на одной строке, и не было сдвига на 1 строчку вниз.

Добавлено через 23 часа 31 минуту
Апострофф, Вы где?

@~~Апострофф~~ · 05.10.2015, 06:53

Не по теме:

Сообщение от Erolim

Апострофф, Вы где...

Я думаююю...

@~~Апострофф~~ Заблокирован
	03.10.2015, 21:24	2
	Сообщение было отмечено Erolim как решение Решение ABS(sS) * (sS / sU * 100), если я правильно понял проблему? 1

@~~Апострофф~~ Заблокирован
	03.10.2015, 21:41	4
	Erolim, Вы попробовали предложенный вариант? 0

@Erolim -6 / 2 / 0 Регистрация: 26.09.2014 Сообщений: 274
	03.10.2015, 21:42 [ТС]	5
	Апострофф, какой? где? я что то упустил? этот :ABS(sS) * (sS / sU * 100) ? 0

@~~Апострофф~~ Заблокирован
	03.10.2015, 21:49	6
	Да, вставьте это вместо вашего. ABS - это модуль, можно было бы и догадаться... 1

@Erolim -6 / 2 / 0 Регистрация: 26.09.2014 Сообщений: 274
	04.10.2015, 21:53 [ТС]	7
	Апострофф, Благодарю. работает! Подскажите пожалуйста. где исправить в макросе, чтобы значение которое определяется по формуле:ABS(sS) * (sS / sU * 100) было на одной строке, и не было сдвига на 1 строчку вниз. Добавлено через 23 часа 31 минуту Апострофф, Вы где? 0

@~~Апострофф~~ Заблокирован
	05.10.2015, 06:53	8
	Не по теме: Сообщение от Erolim Апострофф, Вы где... Я думаююю... Миниатюры 1

Опции темы

Модифицировать макрос для нахождения нужного значения

Решение