Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Помогите с сортировкой в Vba Добавлено: 08.06.09 21:11  

Автор вопроса:  Tolik-ezhik
У меня кнопка на форме удаляет выбраные даные(выбор через комбобокс). Помогите чтобы даные сортировались после удаления по алфавиту рускому.

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 машинист



Вопросов: 6
Ответов: 26
  Профиль | | #1 Добавлено: 19.06.09 17:54
Сортировка реализуется процедурой Sort на ячейках диапазона листа Excel. Для этого Вам сначала нужно 1)выгрузить данные с ComboBox1 на конкретные ячейки (диапазон) конкретного листа, потом 2)отстртировать этот диапазон процедурой Sort, 3)очистить ComboBox1.Claer и, наконец 4)перегрузить нужные отсортированные данные из диапазона в ComboBox1 (например, методом AddItem() в цикле). Пример кода сортировки

  2. With Application.ThisWorkbook.Worksheets.Item(1)  ' сортировку ведем на листе 1
  3.   .Activate
  4.  
  5.       .Range(Cells(r1,c1), Cells(r2,c2)).Sort _ ' r1,c1 и r2,c2 -леавя верхн. и прав. нижн. ячейки диапазона, куда предварительно Вами выгружены данные с ComboBox1
  6.       Key1:=.Range(Cells(r,c), Cells(r,c)), _  ' r,c -верхняя яч. колонки, по которой сортируется весь диапазон
  7.       Orientation:=xlSortColumns  ' направление сортировки
  8.  
  9.  End With

В частном случае, если колонка только одна, то c2=c1, r=r1 и c=c1.
Удачи.

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам