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

Вход

Регистрация

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

 

= Мир MS Excel/Создание списка сгенерированных кодов на отдельном листе - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание списка сгенерированных кодов на отдельном листе (Макросы/Sub)
Создание списка сгенерированных кодов на отдельном листе
ИгорьВтанке Дата: Четверг, 20.05.2021, 10:50 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 13
Репутация: 0 ±
Замечаний: 20% ±

Добрый день!
Есть макрос, который производит поиск по базе данных и если не найдет код изделия то пишет " Отсутствует в базе данных, необходимо обратиться к менеджеру по продукту ". Есть второй макрос "ReCeken", который, если не найден код в базе, то генерирует новый код (точнее генерирует три последних символа случайным образом). Как создать список сгенерированных кодов на листе "DataBase" и что бы к коду подтягивались параметры в соответствующие столбцы.
Спасибо!
[vba]
Код
Sub Cheken()
    Dim ReCheken
    Dim RX As Variant
    Dim i As Long, alph As String
    alph = "ABCDEFGHIJKLMNPQRSTUVWXYZ0123456789"
    Randomize
    With Sheets("Конфигуратор")
        i = .UsedRange.Row + .UsedRange.Rows.Count - 1
        ReCheken = .Range(.Cells(1, 19), .Cells(i, 19)).Value
        For i = 2 To UBound(ReCheken, 1)
            If ReCheken(i, 1) = "<<<< Отсутствует в базе данных, необходимо обратиться к менеджеру по продукту >>>>" Then
                ' замена трех последних значений на случайный код из ячейки V1
                RX = Mid(alph, Int((35 * Rnd) + 1), 1) & Mid(alph, Int((35 * Rnd) + 1), 1) & Mid(alph, Int((35 * Rnd) + 1), 1)
                Cells(i, 18) = Replace(Cells(i, 1), "000", RX)
            End If
        Next i
    End With
End Sub
[/vba]
К сообщению приложен файл: -250K-2.xlsm (41.0 Kb)
 
Ответить
СообщениеДобрый день!
Есть макрос, который производит поиск по базе данных и если не найдет код изделия то пишет " Отсутствует в базе данных, необходимо обратиться к менеджеру по продукту ". Есть второй макрос "ReCeken", который, если не найден код в базе, то генерирует новый код (точнее генерирует три последних символа случайным образом). Как создать список сгенерированных кодов на листе "DataBase" и что бы к коду подтягивались параметры в соответствующие столбцы.
Спасибо!
[vba]
Код
Sub Cheken()
    Dim ReCheken
    Dim RX As Variant
    Dim i As Long, alph As String
    alph = "ABCDEFGHIJKLMNPQRSTUVWXYZ0123456789"
    Randomize
    With Sheets("Конфигуратор")
        i = .UsedRange.Row + .UsedRange.Rows.Count - 1
        ReCheken = .Range(.Cells(1, 19), .Cells(i, 19)).Value
        For i = 2 To UBound(ReCheken, 1)
            If ReCheken(i, 1) = "<<<< Отсутствует в базе данных, необходимо обратиться к менеджеру по продукту >>>>" Then
                ' замена трех последних значений на случайный код из ячейки V1
                RX = Mid(alph, Int((35 * Rnd) + 1), 1) & Mid(alph, Int((35 * Rnd) + 1), 1) & Mid(alph, Int((35 * Rnd) + 1), 1)
                Cells(i, 18) = Replace(Cells(i, 1), "000", RX)
            End If
        Next i
    End With
End Sub
[/vba]

Автор - ИгорьВтанке
Дата добавления - 20.05.2021 в 10:50
Pelena Дата: Пятница, 21.05.2021, 10:08 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19167
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Не совсем понятно (судя по количеству ответов, не только мне), откуда что подтягивать. Опишите алгоритм более подробно


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Не совсем понятно (судя по количеству ответов, не только мне), откуда что подтягивать. Опишите алгоритм более подробно

Автор - Pelena
Дата добавления - 21.05.2021 в 10:08
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Создание списка сгенерированных кодов на отдельном листе (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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