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

Вход

Регистрация

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

 

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

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин  
Мир 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
Группа: Админы
Ранг: Местный житель
Сообщений: 17625
Репутация: 3925 ±
Замечаний: ±

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


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

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

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