Không biết có hàm nào trả về tên máy tính hay tên người dùng (1 người xem)

[MinhKhai]

Các anh chị cho hỏi, trong Excel có hàm nào trả về tên PC hay tên người dùng PC không nhỉ?

Nếu không có hàm build-in nào thì xin cho 1 cái code để dùng trong VBA

Cảm ơn các anh chị

 

[Hong.Van]

Các anh chị cho hỏi, trong Excel có hàm nào trả về tên PC hay tên người dùng PC không nhỉ?

Nếu không có hàm build-in nào thì xin cho 1 cái code để dùng trong VBA

Cảm ơn các anh chị

cái màu đo đỏ kg có , có cái này kg biết fù hợp kg?

Function GetDriveSerialNumber(Optional ByVal DriveLetter As String) As Long    Dim fso As Object, Drv As Object    Set fso = CreateObject("Scripting.FileSystemObject")    If DriveLetter <> "" Then        Set Drv = fso.GetDrive(DriveLetter)    Else        Set Drv = fso.GetDrive(fso.GetDriveName(Application.Path))    End If    With Drv        If .IsReady Then            DriveSerial = Abs(.SerialNumber)        Else            DriveSerial = -1        End If    End With    Set Drv = Nothing    Set fso = Nothing    GetDriveSerialNumber = DriveSerialEnd Function

 

[ndu96081631]

Các anh chị cho hỏi, trong Excel có hàm nào trả về tên PC hay tên người dùng PC không nhỉ?

Nếu không có hàm build-in nào thì xin cho 1 cái code để dùng trong VBA

Cảm ơn các anh chị

Chắc bạn muốn cái này:

Function GetComputername()
  Application.Volatile
  GetComputername = Environ("COMPUTERNAME")
End Function
Function GetUserName()
  Application.Volatile
  GetUserName = Environ("USERNAME")
End Function

 

[Lê Duy Thương]

Chắc bạn muốn cái này:

Function GetComputername()
  Application.Volatile
  GetComputername = Environ("COMPUTERNAME")
End Function
Function GetUserName()
  Application.Volatile
  GetUserName = Environ("USERNAME")
End Function

lấy được tên máy tính và user rồi sẽ hỏi lấy IP
vậy thêm luôn cho rồi anh tuấn nhỉ

Sub getip()
Set objWMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then Sheet1.Range("A1").Value = IPConfig.IPAddress(0)
Next
End Sub