شكرا اخي خبور
لقد استفدت منك كثيرا
شكرا مرة اخرى
وفي الملف المرفق
اريد كود vba لكي يكون الشهادات بعدد الطلاب مرة واحدة وتكون جاهزة للطباعة
ولكن اريد ات تظهر الدوائر الحمراء كما بالمرفق
كما انني اريد معرفة كود يفصل الاسم الاول عن باقي الاسم ( لا اريد دالة ) فهذه عندي
مثال:
علي عبدالله عبدالمحسن النتيجة في خلية اخرى عبدالله عبدالمحسن
وهذا كود يقوم بهذا الاجراء ولكن عن طريق ادخال الاسم الكامل في مربع حواري
Private Sub cmdBegin1_Click()
Dim userName As String
Dim firstName As String
Dim lastName As String
Dim strLength As Integer
'———————————————————————-
'Collect user name, find the space between
'first and last names, and separate the names.
'———————————————————————-
userName = InputBox("Enter your first and last name.", "Name")
spaceLoc = InStr(1, userName, " ")
firstName = Left(userName, spaceLoc - 1)
'—————————————-
'Output to the worksheet
'—————————————-
range("C3").Value = firstName
strLength = Len(firstName)
strLength = Len(userName)
lastName = Mid(userName, spaceLoc + 1, strLength - spaceLoc)
range("C5").Value = lastName
strLength = Len(lastName)
End Sub
اريد ان يعمل هذا الكود بدون استخدام زر امر
تقويم المرة الأولى.rar