Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Сортировка в алфавитном порядке по двум столбцам сверху вниз ?
 
#1
29.01.2012 18:49:59
Здравствуйте , уважаемые форумчане . Подскажите пожалуйста , как произвести сортирровку в алфавитном порядке с верху вниз, учитывая два столбца с Данными (текст). Не важно в каком столбце находится команда по алфавиту B или D . Переносить вместе с ячейкой счёта и ячейкой время матча .
 
 
 
#2
29.01.2012 19:14:28
по-моему, меню Данные - Сортировка с этим справятся. Выделите нужные ячейки вместе с датой и счётом, меню Данные - Сортировка и там укажите по какому столбцу сортировать (В, D) и всё будет ОК
 
 
 
#3
29.01.2012 19:17:02
Выделите диапазон, например А4:Е13, Данные - Сортировка, выберите столбец - ОК.
 
 
 
#4
29.01.2012 19:19:03
Вариант - лист ZXC... ;)  
-43141-
 
 
 
#5
29.01.2012 22:02:19
Извините ,что долго не отвечал . Спасибо , что подсказали путь действия . Z спасибо , Вы особенно мне помогли . Хотел-бы поинтересоваться , а такую сортировку возможно сделать для каждого тура , что-бы данные не перемешивались в турах между собой , а потом записать макрорекордером и использовать как макрос ?
 
 
 
#6
30.01.2012 09:24:28
{quote}{login=Саша11Е}{date=29.01.2012 10:02}{thema=}{post}... а такую сортировку возможно сделать для каждого тура?.. {/post}{/quote}  
Саша11Е! Сверху листа было пояснение - читали?.. Там по трем полям, т.е. как поддерживает XL-2003, можно и по 10, если 2007/2010?.. Принцип - слева направо: тур, дата, команда - понимать так: сортирует по турам, затем внутри тура по датам, а внутри дат - по командам... См. скрин.  
-13831-
 
 
 
#7
30.01.2012 14:50:11
Z Спасибо за помощь ,внезапно у меня возникло другое решение этого вопроса .
 
 
 
#8
30.01.2012 14:52:43
Какое? Вам пытались помочь, теперь Вы можете выступить в роли помощника.
 
 
 
#9
30.01.2012 15:25:38
Вы это и сами  знаете ! Меня больше устраивает, эти диапазоны включить в таблицы , потом в цикле по таблицам форматировать цветом  (использовать макрос).
 
 
 
#10
30.01.2012 18:15:15
Здравствуйте ,хотел-бы у Вас поинтересоваться , как в этом макросе указать цикл по строкам (только для таблицы в цикле ), а то в этом макросе опять возращается на строку 3 и почему-то при совпадении условия строка не окрашивается ?  
Вот макрос    
 
Sub Макрос7777н()  
Dim i As Long  
Dim e As Long  
Dim a As Long  
Dim x As ListObject  
For Each x In ActiveSheet.ListObjects  
For i = 3 To 13  
 For e = 2 To 2  
   For a = 4 To 4  
If Cells(i, e) Like ("*Арсенал*") Or Cells(i, a) Like ("*Арсенал*") Then  
Cells(i, Columns.Count).Interior.ColorIndex = 3  
 
End If  
Next  
Next  
Next i  
Next x  
 
End Sub
 
 
 
#11
31.01.2012 09:51:02
Извините и так почему-то нет цикла по строкам таблиц ?  
 
Sub Макрос7777()  
Dim i As Long  
Dim e As Long  
Dim a As Long  
Dim x As ListObject  
For Each x In ActiveSheet.ListObjects  
Arr = x.Range  
For i = 1 To UBound(Arr)  
 For e = 2 To 2  
If Cells(i, e) Like ("*Арсенал*") Or Cells(i, e + 2) Like ("*Арсенал*") Then  
End If  
Next  
Next i  
Next x  
MsgBox "Все сделано!"  
End Sub
 
 
 
#12
31.01.2012 12:24:55
Dim x As ListObject -- что за объекты Вы перебираете?  
For e = 2 To 2 -- что это за цикл - что Вы хотели ЗДЕСЬ перебрать?
 
 
 
#13
31.01.2012 16:05:09
Dim x As ListObject - это стандартная таблица excel  
For e = 2 To 2 - это столбец  
Не получается указать цикл по строкам строго в границах переменной х.
 
 
 
#14
31.01.2012 16:36:51
Да все там бегает.  
Решил поглядеть, что за зверь - таблица. Получилось  
Sub qqq()  
Dim x As ListObject, cell As Range  
For Each x In ActiveSheet.ListObjects  
For Each cell In x.Range  
If cell.Column = 2 Or cell.Column = 4 Then  
If cell Like ("*Арсенал*") Then  
MsgBox "Арсенал"  
cell.Interior.Color = vbRed  
End If  
End If  
Next: Next  
End Sub
 
 
 
#15
31.01.2012 17:02:24
{quote}{login=Саша11Е}{date=31.01.2012 04:05}{thema=}{post}For e = 2 To 2 - это столбец{/post}{/quote}Неправильно это - где тут перебор? Сколько итераций? :-)
 
 
 
#16
31.01.2012 17:35:03
У меня есть ещё такой вариант , только надо использовать много вариаций cut(в подготовленную отдельную таблицу и обратно).  
Sub Макрос777777()  
Dim i As Long  
Dim e As Long  
For i = 3 To 12  
For e = 2 To 4 Step 2  
If Cells(i, e) Like ("*Арсенал*") Then  
Range(Cells(i, "F"), Cells(i, "J")).Interior.ColorIndex = 3  
End If  
Next  
Next i  
End Sub  
 
А в этом макросе я не знаю как указать , что-бы закрасить как указать ,что-бы закрасить первых пять столбцов (А:Е) в той строке в которой совпало условие  
 
Sub qqq()  
Dim x As ListObject, cell As Range  
For Each x In ActiveSheet.ListObjects  
For Each cell In x.Range  
If cell.Column = 2 Or cell.Column = 4 Then  
If cell Like ("*Арсенал*") Then  
MsgBox "Арсенал"  
cell.Interior.Color = vbRed  
End If  
End If  
Next: Next  
End Sub
 
 
 
#17
31.01.2012 19:34:43
http://www.planetaexcel.ru/forum.php?thread_id=37038
 
 
 
Страницы: 1
Читают тему
Наверх