نمایش متن وقتی یک سلول خالی است

Question

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

پاسخ کوتاه این است که خیر، این کار نمی تواند انجام شود. روش سنتی برای دور زدن آن این است که دستورات خود را از سلول های ورودی خود جدا کنید. به عنوان مثال، اگر ورودی کاربر در سلول B4 مورد انتظار است، ممکن است عبارت "Customer Name:" (با دو نقطه) را در سلول A4 قرار دهید. اگر می خواهید هنگام وارد کردن نام مشتری، عبارت ناپدید شود، می توانید در عوض از یک فرمول در سلول A4 استفاده کنید:

=IF(ISBLANK(B4),"Customer Name","")

همچنین رویکردی وجود دارد که می توانید استفاده کنید که از روشی که اکسل با «سرنگونی سلول ها» وقتی سلول ها حاوی متن هستند، استفاده می کند. به عنوان مثال، فرض کنید که (دوباره) ورودی کاربر شما در سلول B4 مورد انتظار است. می توانید ستون A را بسیار باریک بسازید - مثلاً عرض یک نویسه - و سپس در سلول A4 چند بار Space Bar را فشار دهید و "Customer Name" را تایپ کنید. تا زمانی که چیزی در سلول B4 وجود نداشته باشد، آنچه در سلول A4 تایپ کرده اید نمایش داده می شود، اما به نظر می رسد در سلول B4 باشد. هنگامی که شخصی چیزی را در سلول B4 تایپ می کند، این امر مانع از نمایش آنچه در سلول A4 است می شود. حتی در صورت تمایل می توانید متن سلول A4 را به رنگ خاکستری روشن درآورید، بنابراین در هنگام نمایش ضعیف به نظر می رسد.

اگر ترجیح می دهید به یک مسیر کلان بروید، می خواهید مسیری ایجاد کنید که هر زمان که تغییری در کاربرگ ایجاد می شود فعال شود. این به ماژول کد برای کاربرگ مورد استفاده می رود:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$B$4" Then
        If Target = "" Then
             Cell is empty; mark it and make gray
            Target = "(Customer Name)"
            With Selection.Font
                .ThemeColor = xlThemeColorDark1
                .TintAndShade = -0.249977111117893
            End With
        Else
             Cell contains something; remove gray
            With Selection.Font
                .ColorIndex = xlAutomatic
                .TintAndShade = 0
            End With
        End If
    End If
End Sub

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