تحديث عنوان أداة الـ Label على الفورم وربطها بخلية محددة

[محمد على ابو على]

كيفيه جعل اسم اداه العنوان على الفورم  يتغير تلقائيا بتغير محتوى خليه ما  يعنى لو فى خليه مكتوب فيها "محمد " يبقى اسم الليبول محمد وعند التغيير فى الخليه يتغير اسم الليبول

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

جرّب هكذا أخي الكريم ..على أساس الليبل1 و الخلية A3

Private Sub UserForm_Initialize()
Label1.Caption = Range("a3")
End Sub

 

[ياسر خليل أبو البراء]

بارك الله فيك أخي العزيز عبد العزيز البسكري

أخي السائل يرجى وضع عنوان مناسب للموضوع مستقبلاً إن شاء الله ..راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى

 

جرب التالي

ضع الكود التالي في حدث الفورم

Private Sub UserForm_Initialize()
    Label1.Caption = Range("A1").Value
End Sub

ثم قم بوضع الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
        If Intersect(Range("A1"), Target) Is Nothing Then
            Exit Sub
        Else
            UserForm1.Label1.Caption = Range("A1").Value
        End If
    On Error GoTo 0
End Sub

لتجربة الملف قم بإظهار الفورم ...ستظهر أداة العنوان بها قيمة الخلية A1 .. اترك الفورم مفتوح وانقر في الخلية A1 وعدل القيمة لتجد أن الأداة يتم تحديثها

تقبل تحياتي

Update Label Automatically By Cell Change YasserKhalil.rar

[محمد على ابو على]

9 minutes ago, عبد العزيز البسكري said:

السّلام عليكم و رحمة الله و بركاته

جرّب هكذا أخي الكريم ..على أساس الليبل1 و الخلية A3

Private Sub UserForm_Initialize()
Label1.Caption = Range("a3")
End Sub

شكرا جزيلا استاذنا جزاك الله عنا خيرا

 

3 minutes ago, ياسر خليل أبو البراء said:

بارك الله فيك أخي العزيز عبد العزيز البسكري

أخي السائل يرجى وضع عنوان مناسب للموضوع مستقبلاً إن شاء الله ..راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى

 

جرب التالي

ضع الكود التالي في حدث الفورم

Private Sub UserForm_Initialize()
    Label1.Caption = Range("A1").Value
End Sub

ثم قم بوضع الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
        If Intersect(Range("A1"), Target) Is Nothing Then
            Exit Sub
        Else
            UserForm1.Label1.Caption = Range("A1").Value
        End If
    On Error GoTo 0
End Sub

لتجربة الملف قم بإظهار الفورم ...ستظهر أداة العنوان بها قيمة الخلية A1 .. اترك الفورم مفتوح وانقر في الخلية A1 وعدل القيمة لتجد أن الأداة يتم تحديثها

تقبل تحياتي

Update Label Automatically By Cell Change YasserKhalil.rar

بارك الله فيك استاذ ياسر  واعتذر على عدم علمى بالتوجيهات

 

[Guest محمد ابو صهيب]

اقتباس

Private Sub UserForm_Initialize()
If Label1.Caption <> "" Then
Label1.Caption = Sheets(1).Range("a1").Value
End If
End Sub

 

[محمد على ابو على]

6 minutes ago, محمد ابو صهيب said:

جزاك الله عنا خيرا


 

 

[محمود أبوالدهب]

في ١٨‏/٢‏/٢٠١٦ at 00:06, ياسر خليل أبو البراء said:

بارك الله فيك أخي العزيز عبد العزيز البسكري

أخي السائل يرجى وضع عنوان مناسب للموضوع مستقبلاً إن شاء الله ..راجع التوجيهات في الموضوعات المثبتة في صدر المنتدى

 

جرب التالي

ضع الكود التالي في حدث الفورم

Private Sub UserForm_Initialize()
    Label1.Caption = Range("A1").Value
End Sub

ثم قم بوضع الكود التالي في حدث ورقة العمل

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
        If Intersect(Range("A1"), Target) Is Nothing Then
            Exit Sub
        Else
            UserForm1.Label1.Caption = Range("A1").Value
        End If
    On Error GoTo 0
End Sub

لتجربة الملف قم بإظهار الفورم ...ستظهر أداة العنوان بها قيمة الخلية A1 .. اترك الفورم مفتوح وانقر في الخلية A1 وعدل القيمة لتجد أن الأداة يتم تحديثها

تقبل تحياتي

Update Label Automatically By Cell Change YasserKhalil.rar

هل فيه اختصار لكود ورقة العمل لان عندى اكتر من ليبل استاذ ياسر

وهل فيه تعديل للكود لو كانت الخلية مرتبط تيجتها بمعادلة لانى لو رابطها بخلية والنتيجه فيه بمعادلة لا تتغير القيمة باليبل

تم تعديل أغسطس 6, 2017 بواسطه محمود أبوالدهب

[ياسر خليل أبو البراء]

أخي الكريم محمود

بالمثال يتضح المقال .. ضع ملف مرفق بسيط موضحاً فيه المطلوب 

[محمود أبوالدهب]

تفضل اخى  ومعلمى ياسر خليل من خلال رابط اليبل لا يتغر ولكن من خلال ليست يتغير الادخال طبقا لتغير قيمة الخليه 

ف 

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

هل لان الامر يتعلق بالكتابة وليس معادلة رقمية 

ربط ليبل بخلية.rar

واسف على الازعاج

تم تعديل أغسطس 6, 2017 بواسطه محمود أبوالدهب

[ياسر خليل أبو البراء]

غير السطر التالي

If Intersect(Range("A1:D1"), Target) Is Nothing Then

 

[محمود أبوالدهب]

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

اسف اسألتى رخمة وبطول 

وفي النهاية اشكرك استاذى العزيز

[محمود أبوالدهب]

تفضل معلملى ملف للعل عليه 

 

ربط ليبل بخلية.rar

[ياسر خليل أبو البراء]

في الملف المرفق الجديد أيضاً قم بتعديل نفس السطر

If Intersect(Range("A1:D1"), Target) Is Nothing Then

بصراحة المشكلة في إني مش بقدر افهم المطلوب بشكل كويس .. ولذلك يفضل وضع صورة بالمطلوب .. ضع المعطيات وشكل النتائج المتوقعة في صورة أفضل حتى يسهل التواصل فيما بيننا