Ответить на сообщение
Вернуться к теме
Вы отвечаете на сообщение:
ник: АлаяЗаря продолжение кода
with xlsheet .Range("A1:Q109").Select .Application.Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:= _ xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ DataOption1:=xlSortNormal end with
Ваше имя:
Пароль:
Сообщение:
Прикрепить:
Для вставки смайлов в текст щелкните по значку.