Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Программирование под Windows > Visual Basic
Перезагрузить страницу Нужна помощь с Макрос
Ответ
 
Опции темы Опции просмотра
  (#16 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 30.04.2018, 13:43

Всё в Ваших руках, ибо запись макроса(макрорекордер) никто не отменял.

А если нужен готовый код, то :

Код:
[A2:F2] = Application.Index([H1:M1], [O1:T1])
Ответить с цитированием
  (#17 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 30.04.2018, 15:22

Цитата:
Сообщение от pashulka Посмотреть сообщение
Всё в Ваших руках, ибо запись макроса(макрорекордер) никто не отменял.

А если нужен готовый код, то :

Код:
[A2:F2] = Application.Index([H1:M1], [O1:T1])
Но ведь можно же так

Private Sub Test()
Dim iSource As Range, iRow&
Set iSource = ActiveSheet.UsedRange.Rows

With Application
.ScreenUpdating = False
iRow& = Cells.SpecialCells(xlLastCell).Row
For iRow& = iRow& To 1 Step -1
If .Max(.CountIf(iSource(iRow), iSource(iRow))) > 1 Then iSource(iRow).Delete
Next
.ScreenUpdating = True
End With
End Sub
Все остальное для меня темный лес
Ответить с цитированием
  (#18 (permalink)) Старый
Majesty Majesty вне форума
Member
 
Сообщений: 208
Сказал(а) спасибо: 0
Поблагодарили 10 раз(а) в 9 сообщениях
Регистрация: 10.03.2012
По умолчанию 30.04.2018, 16:48

Цитата:
Сообщение от Сергей Иванов Посмотреть сообщение
Кому надо тот и так быстро догадается
А Вы на каких форумах еще спрашивали?
Ответить с цитированием
  (#19 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 30.04.2018, 17:24

Цитата:
Сообщение от Majesty Посмотреть сообщение
А Вы на каких форумах еще спрашивали?
Вааще не в тему
Ответить с цитированием
  (#20 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 30.04.2018, 17:25

Цитата:
Сообщение от pashulka Посмотреть сообщение
Всё в Ваших руках, ибо запись макроса(макрорекордер) никто не отменял.

А если нужен готовый код, то :

Код:
[A2:F2] = Application.Index([H1:M1], [O1:T1])
Не работает
Ответить с цитированием
Ads.
  (#21 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 30.04.2018, 17:48

А у меня работает.
Вложения
Тип файла: zip Sample_for_AT.zip (7.0 Кб, 2 просмотров)
Ответить с цитированием
Пользователь сказал cпасибо:
Сергей Иванов (30.04.2018)
  (#22 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 30.04.2018, 18:49

Вижу что работает но я то хотел другое. У меня 20000 линий с номерами и в порядке выпадания(A:F) и в порядке от меньшего к наибольшему(H:M). Мне надо только эти 6 цифр 123456 (O1:T1) и вниз к конечной линии (O20000:T20000) так как выпадали номера в H:M(потому что они не по порядку) для этого я придумал 1 2 3 4 5 6 для( H:T) .Прошу меня простить если я не правильно объяснил свою цель.
Итак у меня есть дата в A:F и в H:M но нет даты в O:T
Пример:
1 4 6 6 13 19(A1:F1) 19 13 6 4 1 6(H1:M1) ??????(O1:T1)=вместо вопросов должно быть 6 5 3 2 1 4 потому что они в таком порядке выпали в (H1:M1)
Ответить с цитированием
  (#23 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 30.04.2018, 19:33

Если все данные уникальны, т.е. нет повторяющихся, то :

Код:
=ПОИСКПОЗ(H1;$A$1:$F$1;0)
Но в Вашем случае - эта формула работать не будет, т.к. есть две 6
Ответить с цитированием
  (#24 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 30.04.2018, 19:44

Цитата:
Сообщение от pashulka Посмотреть сообщение
Если все данные уникальны, т.е. нет повторяющихся, то :

Код:
=ПОИСКПОЗ(H1;$A$1:$F$1;0)
Но в Вашем случае - эта формула работать не будет, т.к. есть две 6
У меня в отдельных линиях по 3 или 4 одинаковых номера в этом то и проблем. Как написать код в макрос чтобы начинал считать первый( слева) одинаковый номер как первый среди одинаковых
Ответить с цитированием
Ads
  (#25 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 30.04.2018, 20:23

Решение, без изысков :

Код:
Private Sub Test()
    Dim a1, a2, i&, r1&, r2&, t
    
    a1 = Array(1, 4, 6, 6, 13, 19)
    a2 = Array(19, 13, 6, 4, 1, 6)
    
    For r1 = 0 To UBound(a2)
        t = a2(r1)
        For r2 = 0 To r1
            If t = a2(r2) Then i = i + 1
        Next
        MsgBox mat_ch(t, a1, i): i = 0
    Next
End Sub

Public Function mat_ch(t, a1, i&)
    Dim r1&, r2&
    
    For r1 = 0 To UBound(a1)
        If a1(r1) = t Then
           r2 = r2 + 1
           If r2 = i Then mat_ch = r1 + 1: Exit For
        End If
    Next
End Function
P.S. И не нужно бессмысленных цитирований(оверквотинга) и так, все понимают о чём идёт речь.
Ответить с цитированием
  (#26 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 01.05.2018, 07:11

Не работает. Столбцы O:T не заполняются. Появляется только мбокс
Вложения
Тип файла: zip Книга1.zip (15.4 Кб, 0 просмотров)
Ответить с цитированием
  (#27 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 01.05.2018, 08:12

А должно работать вот так
Вложения
Тип файла: zip Книга2.zip (15.9 Кб, 5 просмотров)
Ответить с цитированием
  (#28 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 01.05.2018, 08:39

Совершенно очевидно, что позиция определяется правильно, в т.ч. и с учётом повторов. Значит моё решение - рабочее. А если Вы не можете адаптировать его для вывода в ячейки, то это сугубо Ваши проблемы.
Ответить с цитированием
  (#29 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 02.05.2018, 08:06

Именно Ваше решение не работает. Мбокс выдает какую то ерунду но не номера по позициям. Проверял и не один раз
Ответить с цитированием
  (#30 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 02.05.2018, 08:13

Помощничек
Ответить с цитированием
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
нужна помощь Denis Khudyakov Любые вопросы от новичков 31 18.01.2015 15:26
нужна помощь по HDD / помощь по работе с HDAT2 ruslanlook Накопители 1 20.11.2013 15:18
Нужна помощь в программе паскаль. нужна до субботы. Snake95 Pascal 3 18.10.2013 00:36
Нужна помощь! jeka45rus Техническая поддержка 1 21.06.2013 19:24
Нужна помощь Александр28 Разное 4 16.11.2012 17:20
нужна помощь uvajuha Любые вопросы от новичков 12 02.11.2012 02:54
Нужна помощь Wtf?!Joker Память 8 18.07.2011 18:27
Нужна помощь!!! (Anton) Windows XP 1 25.06.2011 11:56
нужна помощь! очень нужна! ulana999i999 Prolog 0 17.04.2010 14:13
Нужна помощь Odin-online Prolog 2 22.09.2009 22:26
Очень нужна нужна помощь в решении задачи NecroDevil Prolog 18 16.01.2009 14:22



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов