В Excel как можно текст заменить на уникальный номер или на хэш значения - VB
Формулировка задачи:
Доброго времени суток! В Excel как можно изменить поле Ф.И.О и ИНН на хэш - значения, либо на другие уникальные значения с помощью макроса ?
Решение задачи: «В Excel как можно текст заменить на уникальный номер или на хэш значения»
textual
Листинг программы
Sub Test_HashVal()
Dim s$, h$, clS As New Collection, clH As New Collection, i&, j&
Dim di As Object: Set di = CreateObject("scripting.Dictionary")
On Error Resume Next
Do
1 s = ""
For i = 3 To 3 + Int(Rnd * 8)
s = s & Chr$(65 + Int(Rnd * 26))
Next
clS.Add 0, s
If Err Then Err.Clear: GoTo 1
h = di.HashVal(s)
clH.Add s, h
If Err Then
Err.Clear
Debug.Print "Одинаковый хеш: "; h, "для строк "; s; " и "; clH(h)
j = j + 1
End If
Loop Until j = 10
End Sub