خب  امروز میخوایم بریم سراغ یه آموزش جذاب و کاربردی 
خیلی وقت ها پیش امده که یه فایلی رو دارید اماده می کنید و سرعت کار براتون مهمه
برای مثال میخواید تو ستون وضعیت تاهل به جای تایپ مجرد یا متاهل از عدد استفاده کنید 
به این صورت که وقتی عدد 1 رو وارد کردید بشه مجرد و اگه عدد 2 رو وارد کردید بشه متاهل 
خب برای این کار مراحل زیر و باید طی کنیم :
وارد محیط vba  میشیم و بعد شیتی که میخوایم این کار و روش انجام بدیم انتخاب میکنیم تا وارد محیط کد نویسیش بشیم 
و بعد تو رویداد    change شیت کد زیر رو مینویسیم

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns("B:B")) Is Nothing Then
If Target = 1 Then
Target = "مجرد"
ElseIf Target = 2 Then
Target = "متاهل"
End If
End If

End Sub


من اینجا برای مثال ستون B رو در نظر گرفتم 
خب امیدوارم این آموزش هم به دردتون بخوره من که خودم خیلی از این ها استفاده میکنم برای سرعت بخشیدن به کارم