ایجاد متن راهنما (متن زمینه) در تکس باکس

[y.a.i]

با سلام. چگونه می شود در اکسل برای یک تکس باکس متن راهنما (زمینه) ایجاد کرد تا کاربر با توجه به آن، متن اصلی را وارد کند به طوری که با وارد شدن به باکس آن متن راهنما مخفی شده و بعد از پاک شدن متن اصلی دوباره اشکاره شود (مثال متن راهنما: شماره ملی دانش آموز را وارد نمایید)

[میثم مقدم نیا]

با سلام. چگونه می شود در اکسل برای یک تکس باکس متن راهنما (زمینه) ایجاد کرد تا کاربر با توجه به آن، متن اصلی را وارد کند به طوری که با وارد شدن به باکس آن متن راهنما مخفی شده و بعد از پاک شدن متن اصلی دوباره اشکاره شود (مثال متن راهنما: شماره ملی دانش آموز را وارد نمایید)

سلام
برای انجام این کار شما باید از درUser Form خود از کد های زیر استفاده کنید.

1- TextBox1_Enter

2- TextBox1_Exit

3- UserForm_Activate

Private Sub TextBox1_Enter()
    If TextBox1.Value = "كد ملي دانش آموز" Then
        TextBox1.Value = ""
        TextBox1.ForeColor = &H80000008
        TextBox1.TextAlign = fmTextAlignLeft
    End If
End Sub 

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Value = "" Then
        TextBox1.Value = "كد ملي دانش آموز"
        TextBox1.ForeColor = &H8000000C
        TextBox1.TextAlign = fmTextAlignRight
    End If
End Sub 

Private Sub UserForm_Activate()
    TextBox1.Value = "كد ملي دانش آموز"
    TextBox1.ForeColor = &H8000000C
    TextBox1.TextAlign = fmTextAlignRight
    TextBox1.SetFocus
' اگر تكست باكس دومي داريد - از اين خط استفاده كنيد ، اگر نه - ست فوكوس را روي چيز ديگري تنظيم كنيد(كامبوباكس/كامندباتن و غيره)ا
'    TextBox2.SetFocus
    Com.SetFocus
End Sub 

در آخر هم این میشه نتیجه کار





امید وارم که مشکل شما دوست عزیزم حل شده باشه و به کار سایر دوستان هم بیاد.

با تشکر میثم مقدم نیا