想在Excel2003中随机生成一个Guid码,不知道可不可以,如果可以,求指教,详细些好,多谢,在线等!

解决方案 »

  1.   

    用VB宏,自己没做过,找了个:
    Private Declare Function CoCreateGuid Lib "ole32" (id As Any) As LongPrivate Function CreateGUID() As String
       
        Dim id(0 To 15) As Byte
       
        Dim Cnt As Long, GUID As String
       
        If CoCreateGuid(id(0)) = 0 Then
           
            For Cnt = 0 To 15
                CreateGUID = CreateGUID + IIf(id(Cnt) < 16, "0", "") + Hex$(id(Cnt))
            Next Cnt
           
            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
      

  2.   

    嗯   这个宏我也见过 ,不过 在Excel里怎么用呀?以前从没有用过这个功能
      

  3.   

    呃  这句能在Excel里用不!?