Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Igor-K65
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Подбор цены с учетом скидки
 
#
30.11.2017 16:10:17
Да верно нужно раскидать скидку, но в вашем примере как раз и не бьются копейки, я и сам с помощью формул рассчитываю так а потом нужно подбирать используя кучу расчетных таблиц, не прикладываю их, так как они не универсальны и каждый раз пишутся под конкретную задачу.

Раскидать скидку нужно в любом случаи, задача номер 2 выбрать наиболее подходящий вариант.
 
Перейти    
Подбор цены с учетом скидки
 
#
30.11.2017 14:58:06
Подбор цены с учетом скидки с ограничением что цена должна иметь 2 знака после запятой,

Проблема в том что после пропорционального распределения и сокращения цены до двух знаков после запятой, остаются копейки и их нужно добавить к существующим ценам (где то добавить, где то убавить), что бы выйти на нужную итоговую сумму
и найти еще наименее искажающий вариант пропорционального распределения скидки по товарам.

Подскажите кто знает можно ли в Excle решить такую задачу автоматически.
Первая таблица исходная, кво менять нельзя, можно менять только цену товара с точность до двух знаков после запятой, желательно с наименьшим изменением цены.
Вторая подобрали в ручную
 
Перейти    
Найти и заменить часть формулы в активной ячейке
 
#
16.11.2016 16:45:20
Цитата
Karataev написал:
Karataev
Спасибо за ответы, да я заметил что нет изменений с 2 на 3, вот только было непонятно почему сам эксель записывает некорректно код.  
 
Перейти    
Найти и заменить часть формулы в активной ячейке
 
#
16.11.2016 16:24:43
Хочу в VBA найти и заменить часть формулы в активной ячейке

С помощью автоматической записи макроса сгенерирован код, но при запуске выдает ошибку
                 "Run-time error '91':"
"Object variable or With block variable not set"      

подскажите что не так?          
Код
Sub Макрос()

' Найти и заменить част формулы в активной ячейке

    Range("I7").Select
    ActiveCell.Replace What:="Справочник!$AC:$AE;2;0", Replacement:= _
        "Справочник!$AC:$AE;3;0", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase _
        :=False, SearchFormat:=False, ReplaceFormat:=False
    Cells.Find(What:="Справочник!$AC:$AE;3;0", After:=ActiveCell, LookIn:= _
        xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
        xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
Изменено: Igor-K65 - 16.11.2016 16:25:22
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
04.12.2015 15:25:35
Разобрался, спасибо за помощь выкладываю рабочий пример.
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
04.12.2015 12:27:27
Добавил поле для внесения количества и кнопку "Внести кво" по нажатию добавляю товар в закладку "Заказ товара" и заполняю количество, но в переменной не перезаписывается число если не выходить из формы.
Подскажите пожалуйста, что подправить нужно?
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
03.12.2015 23:26:18
Спасибо за помощь, как раз то что нужно!!!
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
03.12.2015 18:22:26
Описание файла - в закладке "Прайс - лист1"после двойного клика по цене появлялась список с запросом "Выбрать цвет и доп характеристики"
в ней:
выпадающий список Товар с полным наименованием (по умолчанию пустое) из закладки "Справочник
товаров" (выводим только те товары по которым совпадает артикул)
кнопки Да и Нет
если нажимаем да (Enter) то копируем в закладку "Заказ товара"данные из закладки
"Справочник товаров" с привязкой к Коду товара (предварительно выбрав из
списка товар )
если нажимаем нет (Esc) то копируем в закладку "Заказ"данные из закладки
"Справочник" с привязкой к Артикулу
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
03.12.2015 16:55:32
я так понимаю ошибка в использовании ListIndex пробую переписать неполучается
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
03.12.2015 16:53:26
этот код позволяет выбрать в списке 1 значение и сохранить его на листе, я хочу его переделать что бы можно было выбрать несколько значений в списке и сохранить их.
Вот например при таком коде выводит только последний выбранные элемент, но столько раз сколько элементов в списке я выбрал.
Код
Private Sub CommandButton1_Click()
    Dim iRow&: iRow = ListBox1.ListIndex
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then
    If iRow = -1 Then Exit Sub
    With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
        .Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

        .Cells(2, -3) = wsSheet1.Name
        .CurrentRegion.Borders.LineStyle = xlContinuous
    End With
    End If
    Next i
' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
    Unload Me 'Me.Hide
End Sub
 
Перейти    
Как в списке ListBox выбирать несколько значений
 
#
03.12.2015 16:19:30
свойство MultiSelect изменил но вот переделать не получается что бы обрабатывались все выбранные элементы

Код
Private Sub CommandButton1_Click()
Dim iRow&: iRow = ListBox1.ListIndex
If iRow = -1 Then Exit Sub

With wsSheet5.Cells(wsSheet5.Rows.Count, "E").End(xlUp)
.Cells(2, -2).Resize(, 4) = Application.Index(ListBox1.List, iRow + 1, 0)

.Cells(2, -3) = wsSheet1.Name
.CurrentRegion.Borders.LineStyle = xlContinuous
End With

' MsgBox ListBox1.List(iRow, 2), , "Добавлено :"
Unload Me 'Me.Hide
End Sub
Изменено: Igor-K65 - 03.12.2015 16:33:14
 
Перейти    
Копирование данных с нескольких листов по двойному клику мыши с выбором из формы нужного значения
 
#
03.12.2015 09:31:09
Вопрос закрыт, уже решение найдено.
 
Перейти    
Копирование данных с нескольких листов по двойному клику мыши с выбором из формы нужного значения
 
#
02.12.2015 16:56:01
Есть решение (Описание файла:
есть закладка "Прайс - лист1" в ней прайсовые цены, при двойном клике по цене
строка из закладки "Справочник" копируется в закладку "Заказ")

нужно доделать, необходимость выбирать доп. характеристики (добавил закладки "Справочник товаров" и "Заказ
товара")
Сам попробовал переделать не получается - можно ли доработать
что бы после двойного клика по цене появлялась форма с запросом "Выбрать цвет и доп характеристики"
в ней:
выпадающий список Товар с полным наименованием (по умолчанию пустое) из закладки "Справочник
товаров" (выводим только те товары по которым совпадает артикул)
кнопки Да и Нет
если нажимаем да (Enter) то копируем в закладку "Заказ товара"данные из закладки
"Справочник товаров" с привязкой к Коду товара (предварительно выбрав из выпадающего
списка товар )
если нажимаем нет (Esc) то копируем в закладку "Заказ"данные из закладки
"Справочник" с привязкой к Артикулу
 
Перейти    
Страницы: 1
Наверх