اضافة تسمية توضيحية لخلية اكسيل

[ammarhowari]

ممكن طريقة اضافة تسمية توضيحية شفافة لخلية اكسيل  

مقبول او مرفوض.xlsx

[محمد حسن المحمد]

السلام عليكم

أخي الكريم جرب هذا الملف المرفق

تقبل تحياتي

مقبول او مرفوض.xlsx

[ammarhowari]

جزاك الله خيراً

 

لكن المطلوب بدون قائمة منسدلة  
ممكن لو تنحل عن طريق كود او غير شي   بس بدون قائمة منسدلة 

[lionheart]

The request is weird a little and using data validation list is better than using the code in worksheet module

 Generally here's the code (In Worksheet Module)

Private Sub Worksheet_Change(ByVal Target As Range)
    Call Worksheet_SelectionChange(Target)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With Target
        If .Cells.CountLarge > 1 Then Exit Sub
        If .Row > 1 And .Column = 2 Then
            If LCase(.Value) = "yes" Or LCase(.Value) = "no" Then
                Application.EnableEvents = False
                    .Value = StrConv(.Value, vbProperCase)
                    .Font.ColorIndex = xlAutomatic
                Application.EnableEvents = True
                Exit Sub
            Else
                Application.EnableEvents = False
                    .Value = Empty
                Application.EnableEvents = True
            End If
            If .Value = "" And .Offset(, -1).Value <> "" Then
                Application.EnableEvents = False
                    .Value = "Type 'Yes' to accept - Type 'No' to reject"
                    With .Font
                        .Name = "Calibri"
                        .FontStyle = "Regular"
                        .Size = 9
                        .Color = RGB(217, 217, 217)
                    End With
                Application.EnableEvents = True
            End If
        End If
    End With
End Sub

 

[محمد حسن المحمد]

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

ما شاء الله بارك الله كود رائع أخي الحبيب @lionheart

أسأل الله تعالى أن يزيدك من نعمه ومن علمه آمين.

 

[ammarhowari]

@lionheart استاذنا الحبيب    عند ادخال قيمة في الخلايا  والنقر في خلية اخر  تنمسح القيمة التي كتبناها 

[lionheart]

You are allowed to type yes or no only