اکسل

سلام خانم شیری عزیز
آیا با ماکرونویسی آشنایی دارید ؟ این ماکرو این مشکل را حل میکند:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim a, b, c, p As String
If Target.Column = 1 Then
If Target “” Then
Application.EnableEvents = False
p = InputBox(“حروف پلاک را وارد کنید”)
a = Right(Target, 2)
b = Mid(Target, 3, 3)
c = Left(Target, 2)
Target = “ایران” & a & “_” & b & p & c
Application.EnableEvents = True
End If
End If
End Sub

داخل ستون A فقط اعداد پلاک را وارد کنید. به محض اینکه Enter بزنید یک باکس نمایش داده می شود که از شما حرف پلاک را می خواهد مثلا الف
به محض وارد و Enter کردن شماره پلاک در سلول اصلاح می شود.