|
|
|
Autofilter в EXCEL, как вынести значения в таблицу
|
|||
|---|---|---|---|
|
#18+
Здравствуйте. У меня есть таблица в EXCEL'e ~4800 записей. Таблица является списком медикаментов. Есть следующие поля: название, форма(таблетки, капсулы...) , доза(кол-во активного вещества), фармокологическая группа . Всего имеется приблизительно 40 различных форм. 40 видов форм на 4800 медикаментов, соответственно одни медикаменты в одной форме(таблетки), другиев другой(порошки). Применяя автофильтр получаю список из форм. Необходимо каким-то образом получить список из автофильтра, т.е. вынести этот список в отдельный ЛИСТ в ЭКСЭЛе. Пожалуйста объясните как это сделать.. код на ВБА или любое другое решение. Заранее спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.09.2003, 10:10 |
|
||
|
Autofilter в EXCEL, как вынести значения в таблицу
|
|||
|---|---|---|---|
|
#18+
вот было ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.09.2003, 10:39 |
|
||
|
Autofilter в EXCEL, как вынести значения в таблицу
|
|||
|---|---|---|---|
|
#18+
http://forum.codenet.ru/showthread.php?s=74a4484257892f15ece071d478a151dd&threadid=11677 hodi suda, razbereshsja ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.09.2003, 12:15 |
|
||
|
Autofilter в EXCEL, как вынести значения в таблицу
|
|||
|---|---|---|---|
|
#18+
Большое спасибо. Ещё просьба.... Sub AutoF() Dim w As Worksheet, NumCol As Integer, wn As Worksheet Dim i As Long, j As Long NumCol = 3 Application.ScreenUpdating = False Set w = ActiveSheet Set wn = ThisWorkbook.Worksheets.Add i = 2 '1-ya stroka - zagolovki j = 1 While w.Cells(i, NumCol).Value <> "" If Application.WorksheetFunction.CountIf( _ wn.Range(wn.Cells(1, 1), wn.Cells(j, 1)), _ w.Cells(i, NumCol).Value) = 0 Then 'Novoe znachenie wn.Cells(j, 1).Value = w.Cells(i, NumCol).Value j = j + 1 End If i = i + 1 Wend Application.ScreenUpdating = True End Sub Что означают следующие строки- If Application.WorksheetFunction.CountIf( _ wn.Range(wn.Cells(1, 1), wn.Cells(j, 1)), _ w.Cells(i, NumCol).Value) = 0 Then ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.09.2003, 12:45 |
|
||
|
Autofilter в EXCEL, как вынести значения в таблицу
|
|||
|---|---|---|---|
|
#18+
ЭТО HELP СЧЁТЕСЛИ См. также Подсчитывает количество ячеек внутри диапазона, удовлетворяющих заданному критерию. Синтаксис СЧЁТЕСЛИ(диапазон;критерий) Диапазон — это диапазон, в котором нужно подсчитать ячейки. Критерий — это критерий в форме числа, выражения или текста, который определяет, какие ячейки надо подсчитывать. Например, критерий может быть выражен следующим образом: 32, "32", ">32", "яблоки". Замечания Microsoft Excel предлагает дополнительные функции, которые можно применять для анализа данных с использованием условий. Например, для вычисления суммы значений, попадающих в интервал, заданный текстовой строкой или числами, используйте функцию СУММЕСЛИ. Для получения формулы, возвращающей в зависимости от выполнения условия одно из двух значений, например вознаграждение по указанному объему продаж, используйте функцию ЕСЛИ. Вычисление значений с использованием условия. Примеры Пусть ячейки A3:A6 содержат "яблоки", "апельсины", "персики", "яблоки" соответственно: СЧЁТЕСЛИ(A3:A6;"яблоки") равняется 2 Пусть ячейки B3:B6 содержат 32, 54, 75 и 86 соответственно ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.09.2003, 18:04 |
|
||
|
Autofilter в EXCEL, как вынести значения в таблицу
|
|||
|---|---|---|---|
|
#18+
Большое спасибо. Походу надо побольше ХЭЛП читать. Новый вопрос. Если я делаю небольшое приложени в ЭКСЭЛе. Форма с полями в которые будут вводиться данные для фильтрации всего списка. Нельзя ли в данном случае на форму выложить стандартный ЭКСЭЛовский афтофильтр? Или же придётся вручную набирать код самому? Уж очень удобным в моем случае оказывается автофильтр. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 26.09.2003, 09:09 |
|
||
|
|
start [/forum/topic.php?fid=60&msg=32274597&tid=2170689]: |
0ms |
get settings: |
8ms |
get forum list: |
13ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
79ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
39ms |
get tp. blocked users: |
1ms |
| others: | 13ms |
| total: | 169ms |
| 0 / 0 |
