[حل شده] اختصاص کد به لیبل

[bahman_220]

دوستان اکسلی و اساتید روز بخیر
اگر بخواهیم به یک لیبل در یوزرفرم کدی اختصاص دهیم که هر زمان که کاربری فایل مورد نظر رو باز کرد ، نام کامپیوتر و سیستم مربوطه به لیبل اختصاص یابد و سپس اطلاعات قابل ذخیره در H1 و با ورود مجدد در h2 و .... باشد.
ممنون از راهنمایی دوستان خوب اکسلی

[iranweld]

اگر در شبکه منظور شماست تغییرات قابل ردیابی میباشد فیلم پیوست را ملاحظه بفرمایید

[bahman_220]

با تقدیر و تشکر از شما استاد گرامی
منظور من در یوزر فرم هست یک یوزرفرم دارم میخواهم یک لیبل ایجاد کنم و کدی بنویسم که مشخصات سیستم و کاربر به اون لیبل اختصاص بگیره و در نهایت در سلول h1 من قابل ذخیره باشد.
ممنون

[Ali Parsaei]

سلام،
با کد زير مي توانيد موقع اکتيو شدن يوزرفرم نام سيستم و کاربر را در ليبل يک لود کنيد:

Private Sub 
UserForm_Activate()
Dim SYSTEM As String
Dim KARBAR As String
SYSTEM = Environ$("computername")
KARBAR = Environ$("username")
Label1.Caption = KARBAR & "   -   " & SYSTEM
End Sub 

بعد هم مي توانيد کدي بنويسيد که موقع بسته شدن فرم همين مشخصات مندرج در ليبل را به شيت انتقال داده و ثبت کند.

[bahman_220]

خیلی ممنون از لطف جنابعالی