Вопрос : Помощь VBA

Hi,

I am using Кодий прикрепленное для того чтобы фильтровать 2 listboxes внутри первенствует.  Оно работал для меня перед, но теперь, оно не фильтрует и не покажет результаты в рабочий лист «анализа».  Оно только покажет вполне dataset.  Что изменения мне нужно сделать так как Кодий фильтрует мой dataset? class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
>Private Sub CommandButton3_Click " class= " id= " codeSnippet763134 
 1 после этого ws2.UsedRange.Clear
ws1. [A1: AX1]. Назначение экземпляра: =ws2. [A16]

Установите rng = ws1.Range (ws1. [A17], ws1.Cells (ws1.Rows.Count, «a»). Конец (xlUp))

Для каждого cel в rng
  Если UCase (sList1) = "" или InStr, то (sList1, «|» & cel. Значение & «|") <> 0 после этого
     Если UCase (sList2) = "" или InStr, то (sList2, «|» & cel. Смещение (0, 1).Value & «|") <> 0 после этого
  cel. Измените размеры (1, 50). Назначение экземпляра: =ws2.Cells (ws2.Rows.Count, «a»). Конец (xlUp). Смещение (1)
     Закончитесь если
  Закончитесь если
Следующий cel

Расгрузите меня

Application.ScreenUpdating = True

Подводная лодка конца

Приватная подводная лодка CommandButton4_Click ()
Расгрузите меня
Закончите подводную лодку

Приватная подводная лодка UserForm1_Initialize ()
ListBox1.Selected (0) = True
ListBox2.Selected (0) = True

Подводная лодка конца
class=

Ответ : Помощь VBA

Я думаю ваше Кодий копирует все рядки из-за структуры th «если» клаузулы ниже:, то

Для каждого cel в rng
  Если UCase (sList1) = "" или InStr, то (sList1, «|» & cel. Значение & «|") <> 0 после этого
     Если UCase (sList2) = "" или InStr, то (sList2, «|» & cel. Смещение (0, 1).Value & «|") <> 0 после этого
  cel. Измените размеры (1, 50). Назначение экземпляра: =ws2.Cells (ws2.Rows.Count, «a»). Конец (xlUp). Смещение (1)
     Закончитесь если
  Закончитесь если
Следующий cel

В влиянии первое «если» выборы рядок для того чтобы скопировать ЛЮБОЕ, то если slist1 пусто, или если будет спичка. Секунда «если» делает эти же для slist2.

Моя догадка вы предназначили были что-то как Кодий под:
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

Для каждого cel в rng
  'если slist1 пусто, то проверка slist2:
  Если UCase (sList1) = "" после этого
     Если InStr, то (sList2, «|» & cel. Смещение (0, 1).Value & «|") <> 0 после этого
     cel. Измените размеры (1, 50). Назначение экземпляра: =ws2.Cells (ws2.Rows.Count, «a»). Конец (xlUp). Смещение (1)
     закончитесь если
  еще
  'если slist1 не будет незаполненным чек для спички в slist1
     если InStr, то (sList1, «|» & cel. Значение & «|") <> 0 после этого
     cel. Измените размеры (1, 50). Назначение экземпляра: =ws2.Cells (ws2.Rows.Count, «a»). Конец (xlUp). Смещение (1)
     закончитесь если
закончитесь если

Следующий cel
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us