Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Отслеживание диапазона чисел и присвоение ранга при изменени - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отслеживание диапазона чисел и присвоение ранга при изменени (Формулы/Formulas)
Отслеживание диапазона чисел и присвоение ранга при изменени
FINT09 Дата: Пятница, 24.11.2017, 19:34 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте! Обращаюсь к Вам за помощью, т.к. самостоятельное решение и поиски не увенчались успехом. В файле-примере имеется простая таблица с наименование Товар( столбец А) и Приоритетом их покупки (столбец В) .Приоритеты выставляются в ручную и также в ручную могут изменяться. Либо какой то номер может быть удален полностью и все приоритеты должны меняться по рангу (например на Листе2: удаляем 1й приоритет и следующие за ним числа меняют ранг, 2й становится первым, 3й - вторым и т.д.), либо приоритеты меняются местами, пример Лист3: поставив в ячейку B11 приоритет 2 в этой ячейке становится 2, а в ячейке В7 становиться приоритет 3, который был в ячейке B11. Помогите пожалуйста с макросом, отслеживающим диапазон и присваивающий ранг при изменении чисел!
К сообщению приложен файл: 7032640.xlsm(11Kb)


Сообщение отредактировал FINT09 - Суббота, 25.11.2017, 12:39
 
Ответить
СообщениеЗдравствуйте! Обращаюсь к Вам за помощью, т.к. самостоятельное решение и поиски не увенчались успехом. В файле-примере имеется простая таблица с наименование Товар( столбец А) и Приоритетом их покупки (столбец В) .Приоритеты выставляются в ручную и также в ручную могут изменяться. Либо какой то номер может быть удален полностью и все приоритеты должны меняться по рангу (например на Листе2: удаляем 1й приоритет и следующие за ним числа меняют ранг, 2й становится первым, 3й - вторым и т.д.), либо приоритеты меняются местами, пример Лист3: поставив в ячейку B11 приоритет 2 в этой ячейке становится 2, а в ячейке В7 становиться приоритет 3, который был в ячейке B11. Помогите пожалуйста с макросом, отслеживающим диапазон и присваивающий ранг при изменении чисел!

Автор - FINT09
Дата добавления - 24.11.2017 в 19:34
InExSu Дата: Пятница, 24.11.2017, 19:52 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
Написал в личку
 
Ответить
СообщениеНаписал в личку

Автор - InExSu
Дата добавления - 24.11.2017 в 19:52
FINT09 Дата: Пятница, 24.11.2017, 19:57 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
InExSu, Здравствуйте, но я не получил ничего, 0 сообщений
 
Ответить
СообщениеInExSu, Здравствуйте, но я не получил ничего, 0 сообщений

Автор - FINT09
Дата добавления - 24.11.2017 в 19:57
InExSu Дата: Пятница, 24.11.2017, 19:59 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
FINT09, Привет!
а сейчас?
 
Ответить
СообщениеFINT09, Привет!
а сейчас?

Автор - InExSu
Дата добавления - 24.11.2017 в 19:59
FINT09 Дата: Пятница, 24.11.2017, 20:02 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
InExSu, получил, но нет money)
 
Ответить
СообщениеInExSu, получил, но нет money)

Автор - FINT09
Дата добавления - 24.11.2017 в 20:02
FINT09 Дата: Пятница, 24.11.2017, 20:04 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
InExSu, а формулой ЕСЛИ и РАНГ неужели только с помощью допстолбца? Без дополнительного невозможно?
 
Ответить
СообщениеInExSu, а формулой ЕСЛИ и РАНГ неужели только с помощью допстолбца? Без дополнительного невозможно?

Автор - FINT09
Дата добавления - 24.11.2017 в 20:04
InExSu Дата: Пятница, 24.11.2017, 20:11 | Сообщение № 7
Группа: Проверенные
Ранг: Обитатель
Сообщений: 260
Репутация: 29 ±
Замечаний: 80% ±

Excel 2010
а формулой ЕСЛИ и РАНГ неужели только с помощью допстолбца?

Вы так пишите, будто я что-то утверждал :-)
Может Вы веткой форума ошиблись?
 
Ответить
Сообщение
а формулой ЕСЛИ и РАНГ неужели только с помощью допстолбца?

Вы так пишите, будто я что-то утверждал :-)
Может Вы веткой форума ошиблись?

Автор - InExSu
Дата добавления - 24.11.2017 в 20:11
FINT09 Дата: Пятница, 24.11.2017, 20:14 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
InExSu, Да, походу) А как перенести тему в другую ветку?
 
Ответить
СообщениеInExSu, Да, походу) А как перенести тему в другую ветку?

Автор - FINT09
Дата добавления - 24.11.2017 в 20:14
Pelena Дата: Пятница, 24.11.2017, 20:16 | Сообщение № 9
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11842
Репутация: 2609 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Перенесла


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеПеренесла

Автор - Pelena
Дата добавления - 24.11.2017 в 20:16
FINT09 Дата: Пятница, 24.11.2017, 20:17 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Спасибо Вам!)
 
Ответить
СообщениеPelena, Спасибо Вам!)

Автор - FINT09
Дата добавления - 24.11.2017 в 20:17
Pelena Дата: Пятница, 24.11.2017, 21:59 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11842
Репутация: 2609 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
Честно говоря, не совсем понятно как должен меняться ранг при изменении/удалении чисел. Вы хотите менять числа в столбце В и там же ранжировать по-новому? Тогда только макросом.
Но в каком порядке ранжировать, всё равно не понятно


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеЧестно говоря, не совсем понятно как должен меняться ранг при изменении/удалении чисел. Вы хотите менять числа в столбце В и там же ранжировать по-новому? Тогда только макросом.
Но в каком порядке ранжировать, всё равно не понятно

Автор - Pelena
Дата добавления - 24.11.2017 в 21:59
FINT09 Дата: Пятница, 24.11.2017, 22:15 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Pelena, Да, я тоже понял, что это решить только макросом, к сожалению это не в моих силах пока. А порядок ранжирования таков, удалив 1 в столбце, следом за ним число 2 становиться 1 и все числа в диапазоне по такому же примеру. Или если нужно поменять приоритеты 2 и 5 местами, то к примеру поставив в ячейку с 2 цифру 5 в этой ячейке становится 5, а в ячейке где была 5 становиться 2. Как то так
 
Ответить
СообщениеPelena, Да, я тоже понял, что это решить только макросом, к сожалению это не в моих силах пока. А порядок ранжирования таков, удалив 1 в столбце, следом за ним число 2 становиться 1 и все числа в диапазоне по такому же примеру. Или если нужно поменять приоритеты 2 и 5 местами, то к примеру поставив в ячейку с 2 цифру 5 в этой ячейке становится 5, а в ячейке где была 5 становиться 2. Как то так

Автор - FINT09
Дата добавления - 24.11.2017 в 22:15
FINT09 Дата: Воскресенье, 26.11.2017, 13:10 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Скорее всего наваял бред. но все же посмотрите кто нибудь код:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&, j&, Test As Range, Uslovie As Boolean
    Set Test = Range("B2:B12")
    Const Nrow& = 11 'кол-во строк в запоминаемом и тестируемом диапазоне
    Const Ncol& = 1 'кол-во столбцов
    Static Oldvalue(Nrow, Ncol) As Variant
    For i = 1 To Nrow
        For j = 1 To Ncol
            With Test.Cells(i, j)
                If .Value <> Oldvalue(i, j) Then
                    Uslovie = True
                    Oldvalue(i, j) = .Value
                End If
            End With
        Next j
    Next i
    If Uslovie Then Formula = "=RANG(B2;$B$2:$B$12;1))"
    
End Sub
[/vba]
 
Ответить
СообщениеСкорее всего наваял бред. но все же посмотрите кто нибудь код:
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&, j&, Test As Range, Uslovie As Boolean
    Set Test = Range("B2:B12")
    Const Nrow& = 11 'кол-во строк в запоминаемом и тестируемом диапазоне
    Const Ncol& = 1 'кол-во столбцов
    Static Oldvalue(Nrow, Ncol) As Variant
    For i = 1 To Nrow
        For j = 1 To Ncol
            With Test.Cells(i, j)
                If .Value <> Oldvalue(i, j) Then
                    Uslovie = True
                    Oldvalue(i, j) = .Value
                End If
            End With
        Next j
    Next i
    If Uslovie Then Formula = "=RANG(B2;$B$2:$B$12;1))"
    
End Sub
[/vba]

Автор - FINT09
Дата добавления - 26.11.2017 в 13:10
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Отслеживание диапазона чисел и присвоение ранга при изменени (Формулы/Formulas)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!