Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вычитание строк макросом - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вычитание строк макросом (Макросы/Sub)
Вычитание строк макросом
Reska Дата: Среда, 26.10.2016, 20:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
количество товара на странице прайс должно уменьшаться при заказе товара на странице заказ,
order редактируемый макрос
К сообщению приложен файл: thestvi.xlsm(39Kb)
 
Ответить
Сообщениеколичество товара на странице прайс должно уменьшаться при заказе товара на странице заказ,
order редактируемый макрос

Автор - Reska
Дата добавления - 26.10.2016 в 20:20
KuklP Дата: Среда, 26.10.2016, 21:09 | Сообщение № 2
Группа: Проверенные
Ранг: Старожил
Сообщений: 2006
Репутация: 436 ±
Замечаний: 20% ±

Это жалоба, хвастовство, или приказ?


Ну, с НДС и мы чего-то стoим! kuklp@mail.ru
WM Z206653985942, R334086032478, U238399322728
 
Ответить
СообщениеЭто жалоба, хвастовство, или приказ?

Автор - KuklP
Дата добавления - 26.10.2016 в 21:09
Reska Дата: Четверг, 27.10.2016, 06:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
Это жалоба, хвастовство, или приказ?

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


Сообщение отредактировал Reska - Четверг, 27.10.2016, 06:46
 
Ответить
Сообщение
Это жалоба, хвастовство, или приказ?

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

Автор - Reska
Дата добавления - 27.10.2016 в 06:46
Reska Дата: Четверг, 27.10.2016, 08:10 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 20% ±

Excel 2013
[vba]
Код
Sub Order()
Dim S1LR As Long
With Sheets(2)
S1LR = Cells(5, 2)
If Cells(3, 2).Value = 0 Then
MsgBox ("Введите дату")
Cells(3, 2).Select
Exit Sub
End If
If Sheets(1).Cells(S1LR, 4) >= Cells(5, 2) Then
            Sheets(1).Cells(S1LR, 4) = Sheets(1).Cells(S1LR, 4) - Cells(5, 2)
        Else
            MsgBox "Такого количества в наличии нет"
            Cells(5, 2).Select

Exit Sub
End If
If Cells(4, 2).Value = 0 Then
MsgBox ("Введите товар из выпадающего списка")
Cells(4, 2).Select
Exit Sub
End If
If Cells(5, 2).Value = 0 Then
MsgBox ("Введите количество товара   ")
Cells(5, 2).Select
Exit Sub
End If
End With


S2LR = Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To S2LR
  If Sheets(2).Cells(1, 2).Value = Sheets(3).Cells(i, 1).Value _
  And Sheets(2).Cells(2, 2).Value = Sheets(3).Cells(i, 2).Value _
  And Sheets(2).Cells(3, 2).Value = Sheets(3).Cells(i, 3).Value _
  And Sheets(2).Cells(5, 2).Value = Sheets(3).Cells(i, 5).Value _
  Then
  
  MsgBox ("Такой заказ уже существует Операция отменена")
  Exit Sub

  End If
  Next

Sheets(3).Cells(S2LR + 1, 1).Value = Sheets(2).Cells(1, 2).Value
Sheets(3).Cells(S2LR + 1, 2).Value = Sheets(2).Cells(2, 2).Value
Sheets(3).Cells(S2LR + 1, 3).Value = Sheets(2).Cells(3, 2).Value
Sheets(3).Cells(S2LR + 1, 4).Value = Sheets(2).Cells(4, 2).Value
Sheets(3).Cells(S2LR + 1, 5).Value = Sheets(2).Cells(5, 2).Value
Sheets(3).Cells(S2LR + 1, 6).Value = Sheets(2).Cells(8, 2).Value

End Sub
[/vba]
teh end


Сообщение отредактировал Reska - Четверг, 27.10.2016, 08:47
 
Ответить
Сообщение[vba]
Код
Sub Order()
Dim S1LR As Long
With Sheets(2)
S1LR = Cells(5, 2)
If Cells(3, 2).Value = 0 Then
MsgBox ("Введите дату")
Cells(3, 2).Select
Exit Sub
End If
If Sheets(1).Cells(S1LR, 4) >= Cells(5, 2) Then
            Sheets(1).Cells(S1LR, 4) = Sheets(1).Cells(S1LR, 4) - Cells(5, 2)
        Else
            MsgBox "Такого количества в наличии нет"
            Cells(5, 2).Select

Exit Sub
End If
If Cells(4, 2).Value = 0 Then
MsgBox ("Введите товар из выпадающего списка")
Cells(4, 2).Select
Exit Sub
End If
If Cells(5, 2).Value = 0 Then
MsgBox ("Введите количество товара   ")
Cells(5, 2).Select
Exit Sub
End If
End With


S2LR = Sheets(3).Cells(Rows.Count, 1).End(xlUp).Row
  For i = 2 To S2LR
  If Sheets(2).Cells(1, 2).Value = Sheets(3).Cells(i, 1).Value _
  And Sheets(2).Cells(2, 2).Value = Sheets(3).Cells(i, 2).Value _
  And Sheets(2).Cells(3, 2).Value = Sheets(3).Cells(i, 3).Value _
  And Sheets(2).Cells(5, 2).Value = Sheets(3).Cells(i, 5).Value _
  Then
  
  MsgBox ("Такой заказ уже существует Операция отменена")
  Exit Sub

  End If
  Next

Sheets(3).Cells(S2LR + 1, 1).Value = Sheets(2).Cells(1, 2).Value
Sheets(3).Cells(S2LR + 1, 2).Value = Sheets(2).Cells(2, 2).Value
Sheets(3).Cells(S2LR + 1, 3).Value = Sheets(2).Cells(3, 2).Value
Sheets(3).Cells(S2LR + 1, 4).Value = Sheets(2).Cells(4, 2).Value
Sheets(3).Cells(S2LR + 1, 5).Value = Sheets(2).Cells(5, 2).Value
Sheets(3).Cells(S2LR + 1, 6).Value = Sheets(2).Cells(8, 2).Value

End Sub
[/vba]
teh end

Автор - Reska
Дата добавления - 27.10.2016 в 08:10
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вычитание строк макросом (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!