Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
[ Закрыто ] Поиск в массиве на вба
 
#1
10.04.2013 14:39:15
Как с помощью вба по условию найти в массиве элементы и вынести в другую строку их номера строк.
вот код только он пишет почему то только № последнего числа. Где ошибка?
Dim a As Integer
a = 4
For j = 1 To 20 Step 1
For i = 2 To 10
If Range("B" & i) = a Then Range("K" & j) = i
Else: Range("K" & j) = ""
Next i
Next j
 
 
 
#2
10.04.2013 14:49:10
Готовая функция, возвращающая список номеров строк, соответствующих условиям:
http://excelvba.ru/code/arrautofilter

Из вашего макроса и файла я не понял, что надо получить в результате.
Вы покажите на примере своего файла, что должно получиться, - а мы поможем с макросом или формулой
Надстройки для Excel  Парсинг сайтов  Мониторинг цен конкурентов
 
 
 
#3
10.04.2013 14:53:28
А как насчет моей функции что она не работает
 
 
 
#4
10.04.2013 15:04:05
Может так Вам надо?
Код
Sub Кнопка1_Щелчок()
Dim a As Integer
a = 4
j = 1
For i = 2 To 10
If Cells(i, 2) = a Then
    Cells(j, 11) = i
Else
    Cells(j, 11) = ""
End If
j = j + 1
Next i
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#5
10.04.2013 15:07:06
j=j+1 переместите в строку перед Else
Согласие есть продукт при полном непротивлении сторон
 
 
 
#6
10.04.2013 15:10:31
Вот спасибо большое уже 1/3 дела сделано.
 
 
 
#7
10.04.2013 15:14:02
А теперь как можно из этого надо просто копировать строку и вставить на другой лист.
If Cells(i, 2) = a Then
   Cells(j, 11) = i
 
 
 
#8
10.04.2013 15:20:28
Private Sub CommandButton2_Click()
Dim a As Integer
a = 4
j = 1
For i = 2 To 10
If Cells(i, 2) = a Then
 Worksheets("Ëèñò2" ;) .Range("A" & j, "M" & j).Value = Worksheets("Ëèñò1" ;) .Range("A" & i, "M" & i)
 j = j + 1
Else
   Cells(j, 11) = ""
End If
Next i
End Sub


что то похожее на это только эт тож чет не работает?
 
 
 
#9
10.04.2013 15:26:38
А так
Код
Sub Кнопка1_Щелчок()
Dim a As Integer
a = 4
For i = 2 To 10
If Cells(i, 2) = a Then
    j = j + 1
    Rows(i).Copy Worksheets("Лист2").Range("A" & j)
End If
Next i
End Sub
Согласие есть продукт при полном непротивлении сторон
 
 
 
#10
10.04.2013 15:26:59
Вот сделал
Private Sub CommandButton2_Click()
Dim a As Integer
a = 4
j = 1
For i = 2 To 10
If Cells(i, 2) = a Then
       Worksheets("Ëèñò2").Range("A" & j, "M" & j).Value = Worksheets("Ëèñò1").Range("A" & i, "M" & i).Value
       j = j + 1
Else
   Cells(j, 11) = ""
End If
Next i
End Sub
 
 
 
#11
10.04.2013 15:28:38
А теперь надо вместо условия а=4 надо создать массив с датами который каждый день меняеться и чтобы он искал в массиве .
 
 
 
#12
10.04.2013 15:28:40
В Вашем примере
Согласие есть продукт при полном непротивлении сторон
 
 
 
#13
10.04.2013 15:30:09
Ну надо так создайте!
Согласие есть продукт при полном непротивлении сторон
 
 
 
#14
10.04.2013 15:32:16
А поможешь мне в этом я с массивами не разу не сталкивался мне только надо узнать как проверить в массиве есть текущее значение или нет.
 
 
 
#15
10.04.2013 15:36:27
А ТЫ раньше не Fireman-ом случайно был?
Согласие есть продукт при полном непротивлении сторон
 
 
 
#16
10.04.2013 15:37:32
Да какая разница помогите уж если знаете и отстану.
 
 
 
#17
10.04.2013 15:40:08
Цитата
colddd пишет:
А теперь надо вместо условия а=4 надо создать массив с датами который каждый день меняеться и чтобы он искал в массиве .
А теперь.. Вы что тут меня тренируете что-ли? Файл-пример в студию со своими попытками что-то сделать и с конкретным вопросом что непонятно
Согласие есть продукт при полном непротивлении сторон
 
 
 
#18
10.04.2013 15:43:32
Без базара сразу бы так.
 
 
 
#19
10.04.2013 15:51:16
Мне кажется Вам все таки в этот раздел форума
Согласие есть продукт при полном непротивлении сторон
 
 
 
#20
10.04.2013 15:52:26
да нет здесь надо как то вроде задать массив
 
 
 
#21
10.04.2013 17:40:39
Ну вот с массивом
Согласие есть продукт при полном непротивлении сторон
 
 
 
#22
10.04.2013 19:10:46
Цитата
Sanja пишет:
А ТЫ раньше не Fireman-ом случайно был?
Всё верно - это Fireman!
 
 
 
Страницы: 1
Читают тему
Наверх