вычислить количество товаров и скидочную цену

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » вычислить количество товаров и скидочную цену (Макросы/Sub)

Hovo

Дата: Вторник, 17.02.2015, 02:15 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

добры день всем у меня такая задача, ест макрос в котором нужно ввести изменение,макрос копирует данные все хорошо и теперь нужно чтобы в листе фактура Е18:Е33 ввести только количество то ист. 48+10=48,в F18:F33 текущие скидочный цену(значение)+10=скидку на 10 процент,в G18:G33 сумму(Е*G),G34=сумму заранее благодарю.

К сообщению приложен файл: 5073870.xlsm (51.4 Kb)

Hov

Ответить

Leanna

Дата: Вторник, 17.02.2015, 02:48 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 78 ±

Замечаний: 0% ±

excel 2010

Здравствуйте,
[vba]

Код

Sub Leanna()
     For i = 18 To 33
     txt = Trim(Cells(i, "E").Value)
     tzena = Cells(i, "F").Value
         If txt <> "" Then
             stxt = Split(txt, "+")
             q = stxt(0) * 1
             If UBound(stxt) = 0 Then skidka = 0 Else skidka = stxt(1) * 0.01
             tzena2 = tzena * (1 - skidka)
             total2 = tzena2 * q
             Cells(i, "E") = q
             Cells(i, "F") = tzena2
             Cells(i, "G") = total2
         End If
     Next
End Sub

[/vba]

К сообщению приложен файл: faktura1.xlsm (45.2 Kb)

Лучше день потерять, потом за пять минут долететь!

Ответить

Hovo

Дата: Среда, 18.02.2015, 01:42 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

все точно работает но вот только медленно, оно сначала вставляет формулу а патом дает значение а можно без формул?

Hov

Ответить

Hovo

Дата: Четверг, 19.02.2015, 00:37 | Сообщение № 4

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

добавьте к этому макросу

К сообщению приложен файл: faktura1-1-.xlsm (45.2 Kb)

Hov

Сообщение отредактировал Hovo - Четверг, 19.02.2015, 00:40

Ответить

Hovo

Дата: Четверг, 19.02.2015, 06:58 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

нужно менять код vba ("faktura!F18:F33")= СУММЕСЛИМН(понедельник!$E$5:$T$5,понедельник!$E$3:$T$3,A18)
,A33)

Hov

Ответить

Hovo

Дата: Вторник, 03.03.2015, 00:46 | Сообщение № 6

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 189

Репутация: 0 ±

Замечаний: 60% ±

у меня проблема с макросом может поможете все работал отлично и когда я менял места ячеек тогда началось неразбериха в кодах понедельник (2) работает правильно а понедельник (3) нет заранее благодарю

К сообщению приложен файл: 8736208.zip (34.2 Kb)

Hov

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » вычислить количество товаров и скидочную цену (Макросы/Sub)

Страница 1 из 1
1