[حل شده] ظاهر و مخفی شدن Pop up با انتخاب یک سلول

[saed.rasa]

سلام

با انتخاب یک سلول چطور می توان یک pop up (shape) ظاهر کرد و با انتخاب سلول دیگر آن shap را پنهان کرد
بطوریکه داده را از سلول مشخص بیاورد و نشان دهد .

با تشکر فراوان

[Amir Ghasemiyan]

سلام دوست عزيز
كافيه اين كد رو داخل كدهاي شيت مورد نظرتون وارد كنيد

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("C3:C8")) Is Nothing Then
    Shapes.Range(Array("Rectangle 1")).Visible = msoFalse
    Exit Sub
Else
    With Shapes.Range(Array("Rectangle 1"))
        .Visible = msoTrue
        .TextFrame.Characters.Text = Target.Offset(0, 1).Text
    End With
End If
End Sub

دقت كنيد كه بجاي Rectangle 1 بايد نام آبجكتتون رو بذاريد

[saed.rasa]

سلام

خوبه! مرسی

99% مشکل حل شد

کاش می شد تعداد موجودی هر محصول را بجای تعداد خرید می آورد و pop up سمت چپ یا سمت راست سلول انتخاب شده نمایش داده شود و ثابت نماند چون در یک ستون داده ها زیاد است

بازم تشکر

[Amir Ghasemiyan]

كدتون به اين صورت ميشه:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("C3:C8")) Is Nothing Then
    Shapes.Range(Array("Rectangle 1")).Visible = msoFalse
    Exit Sub
Else
    With Shapes.Range(Array("Rectangle 1"))
        .Visible = msoTrue
        .TextFrame.Characters.Text = Application.WorksheetFunction.VLookup(Target.Value, Range("I3:J5"), 2, 0)
        .Top = Target.Top
        .Left = Target.Offset(0, 2).Left
    End With
End If
End Sub

تنظيم محل دقيق قرار گيري آبجكت رو خودتون ميتونيد تغيير بديد. من به عنوان نمونه گذاشتم

[saed.rasa]

فوق العاده بود

بسیار تشکر بابت وقت ی که گذاشته اید.