پرسش مخفی کردن محتویات سلول در چاپ

[adel28]

یه سلول رو در نظر بگیرید مثل زیر:

نام: عادل
کد ملی: 1234567890


می خوام در اکسل هنگام چاپ فقط موراد قرمز در سلول های تعیین شده چاپ بشه و بقبه موارد چاپ نشه.
چه باید کرد؟
اگر یه دکمه در فرم ایجاد کنیم، با چه دستوری در vb میشه با کلیک بر روی دکمه محتویات سلول های مورد نظر میخفی بشه؟

[generalsamad]

با سلام
به فرض اطلاعات در سلول A1,A2 می باشد
از این ماکرو میتوان استفاده کرد

Sub Macro1()
    Range("A1").Select
    With ActiveCell.Characters(Start:=1, Length:=4).Font
        .ThemeColor = xlThemeColorDark1
    End With
    Range("A2").Select

    With ActiveCell.Characters(Start:=1, Length:=7).Font
        .ThemeColor = xlThemeColorDark1
    End With
    Range("A3").Select
End Sub 

با این کد هم رنگ این دو سلول بر میگردد

Sub Macro2()
    Range("A1:A2").Select
    With Selection.Font
        .ColorIndex = xlAutomatic
    End With
End Sub