Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Create A GUID
I wish to create a GUID in a cell. I could put it on a macro button on the
toolbar. Does Excel have anything built in to do this, or do I need VBA code. I would appreciate a sample. Derek |
#2
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Create A GUID
Private Declare Function CoCreateGuid Lib "ole32" (Id As Any) As Long
Function CreateGUID() As String Dim btID(0 To 15) As Byte Dim i As Long If CoCreateGuid(btID(0)) = 0 Then For i = 0 To 15 CreateGUID = CreateGUID + IIf(btID(i) < 16, "0", "") + Hex$(btID(i)) Next i CreateGUID = Left$(CreateGUID, 8) & "-" & _ Mid$(CreateGUID, 9, 4) & "-" & _ Mid$(CreateGUID, 13, 4) & "-" & _ Mid$(CreateGUID, 17, 4) & "-" & _ Right$(CreateGUID, 12) Else MsgBox "Error while creating GUID!" End If End Function Sub test() Cells(1) = CreateGUID() End Sub RBS "Derek Hart" wrote in message ... I wish to create a GUID in a cell. I could put it on a macro button on the toolbar. Does Excel have anything built in to do this, or do I need VBA code. I would appreciate a sample. Derek |
#3
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
Create A GUID
Here is an option.
________________________ Sub GenerateGUID() Dim strGUID As String Set TypeLib = CreateObject("Scriptlet.TypeLib") strGUID = Left(TypeLib.GUID, 38) Cells(1, 1).Value = strGUID Set TypeLib = Nothing End Sub _________________________ Steve Yandl "Derek Hart" wrote in message ... I wish to create a GUID in a cell. I could put it on a macro button on the toolbar. Does Excel have anything built in to do this, or do I need VBA code. I would appreciate a sample. Derek |
#4
Posted to microsoft.public.excel.programming,microsoft.public.excel.worksheet.functions
|
|||
|
|||
RB, Can I ask A ? About Lib OLE32
I see helpful geniuses often refer to windows libs in the forums, where do I
find documentation on these libs, like how did you know ole32 had the guid feature? Thx "RB Smissaert" wrote: Private Declare Function CoCreateGuid Lib "ole32" (Id As Any) As Long Function CreateGUID() As String Dim btID(0 To 15) As Byte Dim i As Long If CoCreateGuid(btID(0)) = 0 Then For i = 0 To 15 CreateGUID = CreateGUID + IIf(btID(i) < 16, "0", "") + Hex$(btID(i)) Next i CreateGUID = Left$(CreateGUID, 8) & "-" & _ Mid$(CreateGUID, 9, 4) & "-" & _ Mid$(CreateGUID, 13, 4) & "-" & _ Mid$(CreateGUID, 17, 4) & "-" & _ Right$(CreateGUID, 12) Else MsgBox "Error while creating GUID!" End If End Function Sub test() Cells(1) = CreateGUID() End Sub RBS "Derek Hart" wrote in message ... I wish to create a GUID in a cell. I could put it on a macro button on the toolbar. Does Excel have anything built in to do this, or do I need VBA code. I would appreciate a sample. Derek |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to create adress list so can mail merge and create labels? | Excel Discussion (Misc queries) | |||
how to create a combo box in excel - how to create the drop down . | Excel Discussion (Misc queries) | |||
How to create a form to insert a hyerlink.VBA code to create a for | Excel Discussion (Misc queries) | |||
Create dictionary of terms, create first time user site | New Users to Excel | |||
need to create a formula to create a timesheet but haven't a clue | Excel Discussion (Misc queries) |