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

Цитата:
Сообщение от Сергей Иванов Посмотреть сообщение
Пример:
1 4 6 6 13 19(A1:F1) 19 13 6 4 1 6(H1:M1) ??????(O1:T1)=вместо вопросов должно быть 6 5 3 2 1 4
Именно эту задачу и решает мой код.

Если же взять файл, то

3,4,9,12,13,27
27,12,4,3,9,13

6,4,2,1,3,5

возникает резонный вопрос, как может позиция первого элемента массива - 3 быть не 4, а 6
Ответить с цитированием
  (#32 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 02.05.2018, 09:57

Предположим в колонке А 100 линий заполненных номерами (3,6,21 и т.д..Значит им всем присвоен номер 1.Номерам в колонке В присвоен номер 2. И так до колонки F.
Номер 3 превратился в номер 1 номер 4 в 2 номер 9 в 3 номер 12 в 4 номер 13 в 5
и номер 27 в 6
Теперь посмотрим как они расположились в колонках H1:M1. Номер 27 стоит первым но ведь ему присвоен номер 6. Поэтому я и хочу увидеть это в колонке О1 и так с другими номерами. Номер 3 стоит в четвертой позиции в К1( номеру 3 присвоен номер или позиция 1 как хотите назовите это) поэтому в колонке R1 я и хочу увидеть номер или позицию 1. И так со всеми номерами во всех линиях
Ответить с цитированием
  (#33 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 02.05.2018, 10:03

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

Хочу но не знаю как это сделать
Ответить с цитированием
  (#35 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 02.05.2018, 10:38

Кто хочет, тот ищет возможности, кто не хочет - ищет причины (c) Сократ

Код:
Private Sub Test()
    Dim a1, a2, a3, i&, r1&, c1&, c2&, t
    
    a1 = [H1:M14].Value
    a2 = [A1:F14].Value
    ReDim a3(1 To UBound(a1), 1 To 6)
    
    For r1 = 1 To UBound(a1)
        For c1 = 1 To 6 'UBound(a2, 2)
            t = a1(r1, c1)
            For c2 = 1 To c1
                If t = a1(r1, c2) Then i = i + 1
            Next
            a3(r1, c1) = mat_ch(t, a2, r1, i): i = 0
        Next
    Next
    
    [V1:AA14].Value = a3
End Sub

Function mat_ch(t, a2, r1, i&)
    Dim c1&, r2&
    
    For c1 = 1 To 6 'UBound(a1, 2)
        If a2(r1, c1) = t Then
           r2 = r2 + 1
           If r2 = i Then mat_ch = c1: Exit For
        End If
    Next
End Function
Ответить с цитированием
Ads.
  (#36 (permalink)) Старый
Сергей Иванов Сергей Иванов вне форума
Member
 
Сообщений: 32
Сказал(а) спасибо: 3
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 29.04.2018
По умолчанию 02.05.2018, 10:59

Разве функция не должна быть перед End Sub?
Любите Вы себя причислять к великим. Мне это незачем
Ответить с цитированием
Ads
  (#37 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 02.05.2018, 11:08

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

Ну ну умный человечек. Простую задачку решаешь слишком долго
Ответить с цитированием
  (#39 (permalink)) Старый
pashulka pashulka вне форума
Member
 
Сообщений: 1,872
Сказал(а) спасибо: 2
Поблагодарили 57 раз(а) в 53 сообщениях
Регистрация: 11.03.2005
По умолчанию 02.05.2018, 11:32

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

Цитата:
Сообщение от pashulka Посмотреть сообщение
Я её решил сразу, как получил от вас внятное об'яснение, дальше начался флуд, что якобы ничего не работает и т.д.
А делать за вас работу я не нанимался, просто я понял, что любые попытки помочь вам - обречены (ибо для вас помощь, это не подсказки, а готовое решение) поэтому, пользуйтесь готовым, а мне читать ваши вбросы .овна на вентилятор неинтересно, поэтому, для себя я эту тему закрываю.
Мальчишка. Я и просил готовое решение. Период. Единица за исполнение
Ответить с цитированием
Ads
Ответ

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

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

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 - компьютерный форум и программирование, форум программистов