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

Вход

Регистрация

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

 

= Мир MS Excel/Комментарии к коду - Мир MS Excel

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

Excel 2013
Дилентант в VBA вернулся, больше всего вопросов по сортировке, непонятна ориентация и сорт метод
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

With ActiveWorkbook.Worksheets("операция").Sort
.SetRange Range(Cells(2, 1), Cells(S2LR + 1, 6))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
[moder]Тема создана с нарушением Правил форума[/moder]
К сообщению приложен файл: thest1.xlsm(38Kb)


Сообщение отредактировал Pelena - Четверг, 06.10.2016, 09:06
 
Ответить
СообщениеДилентант в VBA вернулся, больше всего вопросов по сортировке, непонятна ориентация и сорт метод
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

With ActiveWorkbook.Worksheets("операция").Sort
.SetRange Range(Cells(2, 1), Cells(S2LR + 1, 6))
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
[moder]Тема создана с нарушением Правил форума[/moder]

Автор - Reska
Дата добавления - 06.10.2016 в 08:43
Mayseven Дата: Суббота, 08.10.2016, 12:28 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 12
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Чувак, запихай ВБА код
Код
вот сюда

это решётка на панели инструментов
а то вырвиглазное восприятие.
 
Ответить
СообщениеЧувак, запихай ВБА код
Код
вот сюда

это решётка на панели инструментов
а то вырвиглазное восприятие.

Автор - Mayseven
Дата добавления - 08.10.2016 в 12:28
Pelena Дата: Суббота, 08.10.2016, 13:57 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 9842
Репутация: 2252 ±
Замечаний: 0% ±

Excel 2010 & Mac Excel 2011
Mayseven, что за фамильярность?


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеMayseven, что за фамильярность?

Автор - Pelena
Дата добавления - 08.10.2016 в 13:57
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Комментарии к коду (Макросы/Sub)
Страница 1 из 11
Поиск:

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