فرمول یا دستوری هست که بشه سریال هارد و cpu رو تو دوتا سلول مجزا وارد کرد؟
با سلام
دوست عزیز سوال شما با موضوع اصلی مطرح شده همخوانی نداره لطفا" از مدیران درخواست جابه جایی موضوع رو پیگیری کنید تا هم به قوانین انجمن احترام بزاریم و هم کمکی کنیم برای راحت تر پیدا کردن موضوع مطرح شده برای دیگران عزیزانی که ممکنه همین سوال براشون پیش بیاد.
کد های زیر رو امتحان کنید.
کد:
Sub ProcessorInfo()
Dim cimv2, PInfo, PItem As Variant
Dim PubStrComputer As String
PubStrComputer = "."
Set cimv2 = GetObject("winmgmts:\\" & PubStrComputer & "\root\cimv2")
Set PInfo = cimv2.ExecQuery("Select * From Win32_Processor")
For Each PItem In PInfo
Range("a1").Value = PItem.ProcessorId
MsgBox ("Processor: " & PItem.Name & vbCrLf & "Id: " & PItem.ProcessorId)
Next PItem
End Sub
کد:
Sub HDSerialNumber()
Dim fsObj As Object
Dim drv As Object
Dim HDSerialNum As Variant
Set fsObj = CreateObject("Scripting.FileSystemObject")
Set drv = fsObj.Drives("C")
HDSerialNum = Left(Hex(drv.SerialNumber), 4) _
& "-" & Right(Hex(drv.SerialNumber), 4)
Range("b1").Value = HDSerialNum
MsgBox ("HDSerialNumber: " & HDSerialNum)
End Sub
علاقه مندی ها (Bookmarks)