оно должно получиться например таким:  
E7A0F98BC3E64201B1C2D594A0EF380F  
32 знака не больше и не меньше.  
id генерю

Sub Макрсо1()  
  MsgBox BigNumber, , ""  
End Sub  
 
Function BigNumber() As String  
Const HexDigits As String = "0123456789ABCDEF"  
Dim Temp As String  
   Randomize  
   Do While Len(Temp) < 32  
       Temp = Mid(HexDigits, Int(16 * Rnd) + 1, 1) & Temp  
   Loop  
   BigNumber = Temp  
End Function

Давайте сделаю без Temp )  
 
 
Sub Макрсо1()  
   MsgBox BigHexNumber, , ""  
End Sub  
 
Function BigHexNumber() As String  
Const HexDigits As String = "0123456789ABCDEF"  
   Randomize  
   Do While Len(BigHexNumber) < 32  
       BigHexNumber = Mid(HexDigits, Int(16 * Rnd) + 1, 1) & BigHexNumber  
   Loop  
End Function

Слэн,  
 
1) так придётся заводить ещё одну переменную i.    
Но что будет эффективнее/быстрее переменная i или Len < 32 - большой вопрос  
Возможно вы и правы, я не знаю.    
 
Но мне кажется тут не такая большая/громоздкая функция, чтобы думать о скорости    
 
2) ваша предложенная конструкция вычисления случайного Int(Rnd() * 16) не даёт числа 16, т.е. никогда не будет задействована буква F, т.к до неё никогда мы не дойдём.  
 
Для проверки вы можете вставить формулу =ЦЕЛОЕ(СЛЧИС()*16) ячейку Excel и растянуть до конца листа и посмотреть максимальное значение. Максимальное значение всегда будет 15  
 
P.S. У тебя всегда будут замечания по моему коду ? ))

)))

ах, ну да, всё правильно, прошу прощения )  
 
Ну, вот Лузеру на выбор 2 функции )

ну а вот так одной строкой:  
 
Function hexrandid() As String  
hexrandid = Left( _  
Hex((Rnd() + 1) * 1000000000#) & _  
Hex((Rnd() + 1) * 1000000000#) & _  
Hex((Rnd() + 1) * 1000000000#) & _  
Hex((Rnd() + 1) * 1000000000#), 32)  
End Function  
 
без лишних переменных и циклов, да и количество операций поменьше..

Ну вот и утро :)  
Про скорость: не важна абсолютно. Файлик с id  генерю один раз в месяц. Вообще файлов с id много, но их генерит спец ПО. Только с одним файлом оно не справляется, так как приходится в автоматически сгенеренные файлы вносить руками мелкие правки (крупные через ПО вносятся).  
В этом месяце, правда, пришлось два генерить - ПО упало вместе с ораклом. Решил не ждать пока поднимут, потому как в субботу могли сдаться и сказать, что смогут поднять только в понедельник.  
А "ворота закрылись" в субботу. Я отличился: закрылся последним в всей стране :)  
Про случайность: фиг его знает. Я раньше брал id из лишнего файлика сгенеренного ПО и вставлял руками в ячейку, которую потом макросом считывал. Надоело, решил сам создавать.  
Требования к id такие:  
Значение атрибута id корневого элемента < message > содержит уникальный идентификатор электронного документа (globally unique identifier (GUID)  
Что хотели сказать фиг его знает.  
Сколько я их видел - выглядят случайными.  
В следующем месяце попробую последний вариант слэна, он вроде самый короткий. Особенно если заменить 1000000000 на 1Е10  
Так и перенос строк не понадобится.  
Еще раз спасибо за участие.

слэн, в чем смысл решетки на конце 1000000000#?  
и без нее результат тот же вроде.

{quote}{login=:)}{date=08.02.2009 03:00}{thema=}{post}Интересно, а Лузера™ не смутит, что полученное число во всех предложенных методах не очень-то и случайное? Так, один и тот же символ может повториться раз 5, а какой и вообще не попадется. Для случайного при 32 всего из 16 возможных должно быть как при потопе: каждого по паре{/post}{/quote}  
 
не вижу логики?  
 
вы же не требуете от rnd, чтобы цифры не повторялись?  
 
как раз наоборот, такое ограничение даст более предсказуемый результат(или, другими словами, менее случайный) - посчитайти сами количество возможных комбинаций тут и там..

вот три варианта:  
Sub Макрос3()  
Dim i&, t As Single, hexrandid As String  
t = Timer  
For i = 1 To 9 '99999  
'hexrandid = Left( _  
'Hex((Rnd() + 1) * 1000000000#) & _  
'Hex((Rnd() + 1) * 1000000000#) & _  
'Hex((Rnd() + 1) * 1000000000#) & _  
'Hex((Rnd() + 1) * 1000000000#), 32)  
'hexrandid = Left( _  
'Mid(Hex((Rnd() + 1) * 1000000000#), 2, 99) & _  
'Mid(Hex((Rnd() + 1) * 1000000000#), 2, 99) & _  
'Mid(Hex((Rnd() + 1) * 1000000000#), 2, 99) & _  
'Mid(Hex((Rnd() + 1) * 1000000000#), 2, 99), 32)  
hexrandid = Left( _  
Hex((Rnd() + Rnd() * 9 + 1) * 1E+07!) & _  
Hex((Rnd() + Rnd() * 9 + 1) * 1E+07!) & _  
Hex((Rnd() + Rnd() * 9 + 1) * 1E+07!) & _  
Hex((Rnd() + Rnd() * 9 + 1) * 1E+07!) & _  
Hex((Rnd() + Rnd() * 9 + 1) * 1E+07!), 32)  
Next  
Debug.Print Timer - t, hexrandid  
End Sub  
 
последние два "более случайны", первый быстрее.  
еще было бы быстрее использовать в первом варианте ! вместо #, но точность не позволяет, тогда все id будут заканчиваться на ноль(или несколько)  
 
кто не догадался - эти значки определяют тип данных. В формулах постоянно используются неявные преобразования данных.. так вот - без преобразований быстрее.  
rnd возвращает single. нам надо получить 32 знака. 4х8 не годится, так как числа могут получаться и короче, надо брать с запасом(и все равно гарантии нет, но вероятность большая)  
берем 4х9(или 5х7 - но дольше) - больше не получается - переполнение.  
в принципе, можно было бы работать с decimal, но в ячейках все равно отбражается только 15знаков, так что преобразования в string не избежать..  
 
теперь будем ждать ZVI - что он скажет, если заинтересуется, конечно :)

Справедливости ради отмечу, что если речь шла о генерации одного числа, записанного Hex-кодом, тогда здесь все не правы, и я тоже, так как в таком случае нужен более честный алгоритм генерации случайных чисел, коих в общем-то немало описано.

мне просто любопытно.  
а можно создать приличный массив из случайных данных и потом из него в случайном порядке выдергивать сивмолы.

{quote}{login=}{date=08.02.2009 01:39}{thema=}{post}мне просто любопытно.  
а можно создать приличный массив из случайных данных и потом из него в случайном порядке выдергивать сивмолы.{/post}{/quote}  
Конечно можно, например, записать в 2 мерный массив:  
в 1-ю размерность символы: 0123456789ABCDEF0123456789ABCDEF  
во 2-ю размерность - числа Rnd.  
Затем отсортировать по 2-й размерности и выдать то, что получилось в 1-й.  
но это как раз и будет вариант, на который я и намекал.