مكتبة الموقع - ترحيل من شيت الاكسيل الي يوزفورم

[checles]

اعرض الملف

ترحيل من شيت الاكسيل الي يوزفورم

---

برجاء المساعده في ترحيل من خانه معينه في  شيت الاكسيل الي texbox معين 

 

وشكرا 

---

• صاحب الملف
  checles
• تمت الاضافه
  22 فبر, 2023
• الاقسام
  قسم الإكسيل

 

[عبدالفتاح في بي اكسيل]

فقط ضع هذه في موديول  اليوزرفورم

Private Sub UserForm_Initialize()
TextBox1.Value = .Range("g3").Value
End With

مع ملاحظة  يجب  ان تكون  الورقة  نشطة  للخلية  المعنية  عند تشغيل  اليوزرفورم  او عليك  الاشارة  الى اسم  الورقة مثل  هذا 

Private Sub UserForm_Initialize()
With Sheets("Sheet1")
TextBox1.Value = .Range("g3").Value
End With
End Sub