The okk
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору aks_sv Код: Application.ScreenUpdating = False With Worksheets(номер_листа) .Range(.Cells(первая_строка,первый столбец), _ .Cells(последняя_строка,послений_столбец)) = _ Me.ListBox1.List End With Application.ScreenUpdating = True | Где: номер_листа - номер листа (или его название в кавычках), куда ты будешь выгружать данные из ListBox. первая_строка,первый столбец - координаты верхней левой ячейки диапазона на этом листе, куда будет выгружен ListBox. последняя_строка,послений_столбец - координаты нижней правой ячейки диапазона на этом листе, куда будет выгружен ListBox. Если координаты диапазона постоянные (например, A1:D3) и никогда не меняются (т.е. количество строк и столбцов не меняется), то вместо: Код: .Range(.Cells(первая_строка,первый столбец), _ .Cells(последняя_строка,послений_столбец)) | Можно сразу подставить координаты диапазона. Например: Код: В общем, все также, как при загрузке, только левая и правая часть равенства меняются местами. Ты же как-то загрузил данные в форму . Если я непонятно объясняю, могу пример выложить. ZORRO2005 Столбец "F" отсортирован? Т.е. может ли возникнуть ситуация, когда после: Декабрь Декабрь Декабрь Март могут встретиться еще записи с декабрем? И если такая ситуация возможна, допустима ли сортировка по столбцу "F"? | Всего записей: 327 | Зарегистр. 16-11-2006 | Отправлено: 08:13 10-01-2007 | Исправлено: The okk, 09:05 10-01-2007 |
|