Получение уникального кода для товара

OlegO Пользователь Сообщений: 814 Регистрация: 28.03.2014	#31 16.10.2018 14:47:19 Строки совершенно разные, а код получается одинаковый Прикрепленные файлы совпадения.xlsm (19.89 КБ)

OlegO

Пользователь

Сообщений: 814 Регистрация: 28.03.2014

#32

16.10.2018 14:50:53

Цитата
Nordheim написал: У меня в посте 6 всего две строки

Приношу извинения, этот вопрос адресовался Jack Famous из поста 26

Nordheim

Пользователь

Сообщений: 3154 Регистрация: 18.04.2017

#33

16.10.2018 15:25:11

Проверьте так есть совпадения

Код

Private Sub CommandButton1_Click()
    Dim x&, i&, j&, ind&,temp$
    With ActiveCell
        temp = .Offset(, -1)
        For j = 1 To Len(temp)
            x = Asc(Mid(UCase(temp), j, 1))
            ind = ind + x * j + Val(Mid(UCase(temp), j, 1)) * x
        Next j
        ind = ind + Len(.Offset(, -1))
        .Value = ind
    End With
End Sub

Изменено: Nordheim - 16.10.2018 15:27:12

"Все гениальное просто, а все простое гениально!!!"

OlegO Пользователь Сообщений: 814 Регистрация: 28.03.2014	#34 16.10.2018 20:06:24 Спасибо, Nordheim такой вариант по крайней мере в файле для сравнения, не дает повторов, завтра буду проверять на рабочем файле, сейчас уже голова совсем не соображает

Jungl

Пользователь

Сообщений: 830 Регистрация: 18.01.2016

#35

16.10.2018 21:09:56

OlegO, используйте простейшую функцию перевода строки в base64 формат.
С вашего же сообщения #25
И рандомить не нужно, и без циклов - уникальность будет зависеть от переданного текста в пользовательскую функцию

Код

Function EncodeBase64(text As String) As String
    Dim arr() As Byte
    arr = StrConv(text, vbFromUnicode)
    With CreateObject("MSXML2.DOMDocument").CreateElement("b64")
        .DataType = "bin.Base64"
        .nodeTypedValue = arr
        EncodeBase64 = .text
    End With
End Function

Можете превратить в hex, заменив "bin.Base64" на "bin.Hex"