ربط مربع نص او شكل بدالة في خلية اخرى

[husas707]

هل بالامكان ربط مربع نص او شكل بدالة في خلية اخرى كما في المثال المرفق او اي طريقة اخرى بحيث اربط خلية بشي متحرك يمكن نقلة في اي مكان اخر

ربط مربع نص بدالة.xlsx

[husas707]

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

ربط مربع نص بدالة1.xlsx

[حسين مامون]

عند ادخال اي نص او قيمة في الخليتين انقر زر Entr على لوحة المفاتيح وانظر 

وهذا الكود في حدث شنج

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = ("$F$4") Then

    Shapes.Range(Array("Rectangle 3")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Target
    ElseIf Target.Address = ("$F$5") Then
    Shapes.Range(Array("TextBox 4")).Select
    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Target

End If
End Sub

ربط مربع نص بدالة.xlsm

تم تعديل ديسمبر 26, 2020 بواسطه حسين مامون

[السعيد سعيدي]

 حلربط مربع نص بدالة1.xlsx

[husas707]

اشكر الجميع كلا باسمة وصفتة وبارك الله فيكم وجزاكم خيرا وجعلة في ميزان حسناتكم