كيفية تحويل جميع الأحرف الاستهلالية إلى الحد الأقصى الأول فقط في النطاق المحدد في إكسيل؟

لنفترض أنك حصلت على ورقة عمل بها جميع الأسماء مكتوبة بأحرف كبيرة في قائمة ، فكيف يمكنك تحويلها لجعل الحرف الأول من كل كلمة كبيرًا فقط؟ توفر لك هذه المقالة ثلاث طرق للتعامل مع هذه المشكلة.

تحويل جميع الأحرف الاستهلالية لجعل الحرف الأول فقط من كل كلمة استهلالي مع الصيغة
قم بتحويل جميع الأحرف الاستهلالية لجعل الحرف الأول فقط من كل كلمة غطاء رأس برمز VBA
قم بتحويل جميع الأحرف الاستهلالية لجعل الحرف الأول فقط من كل كلمة غطاء مجمّعًا باستخدام Kutools for Excel

---

تحويل جميع الأحرف الاستهلالية لجعل الحرف الأول فقط من كل كلمة استهلالي مع الصيغة

يمكنك تحويل جميع الأحرف الاستهلالية إلى الأحرف الاستهلالية الأولى فقط في القائمة التي تحتوي على صيغة. الرجاء القيام بما يلي.

1. حدد خلية فارغة (تقول الخلية C2) لتحديد النتيجة المحولة ، وأدخل الصيغة = PROPER (B2) في شريط الصيغة ، ثم اضغط على أدخل الرئيسية.

يمكنك رؤية الاسم المكتوب بأحرف كبيرة يتم تحويله إلى حالة الأحرف المناسبة (الحرف الاستهلالي الأول) على الفور في عمود المساعدة.

2. استمر في تحديد الخلية C2 ، واسحب مقبض التعبئة لأسفل إلى القائمة حتى تصل إلى الخلية التي تحتاجها لتحويل حالة الاسم.

ملاحظة: في الصيغة ، يرجى تغيير مرجع الخلية بناءً على قائمتك.

---

---

قم بتحويل جميع الأحرف الاستهلالية لجعل الحرف الأول فقط من كل كلمة غطاء رأس برمز VBA

بالإضافة إلى ذلك ، يمكنك تشغيل التعليمات البرمجية لـ VBA التالية لتحويل جميع الأسماء الكبيرة إلى الأحرف الاستهلالية الأولى فقط في القائمة.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيق نافذة.

2. في ال Microsoft Visual Basic للتطبيق الإطار، انقر فوق إدراج > وحدة، ثم انسخ والصق رمز VBA أدناه في ملف وحدة نافذة.

رمز فبا: تحويل جميع الأحرف الاستهلالية إلى الأحرف الاستهلالية فقط

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. انقر فوق F5 مفتاح أو انقر فوق يجري زر لتشغيل هذا الرمز. في ظهرت كوتولس ل إكسيل في مربع الحوار ، حدد النطاق الذي تريد تحويل كل الأحرف الاستهلالية إلى حد أقصى أول فقط ، ثم انقر فوق OK .

ثم يتم تحويل جميع الأسماء الكبيرة في النطاق المحدد إلى الأسماء الكبيرة الأولى فقط على الفور.

---

قم بتحويل جميع الأحرف الاستهلالية لجعل الحرف الأول فقط من كل كلمة غطاء مجمّعًا باستخدام Kutools for Excel

يوضح لك هذا القسم ملف تغيير الحالة فائدة كوتولس ل إكسيل لتحويل كل الأحرف الاستهلالية إلى الحد الأقصى الأول فقط بشكل مجمّع بعدة نقرات فقط.

1. حدد القائمة التي تريد تحويل الحالة ، ثم انقر فوق كوتولس > نص > تغيير الحالة. انظر لقطة الشاشة:

2. في ال تغيير الحالة مربع الحوار ، الرجاء تحديد الحالة المناسبة الخيار ، ثم انقر فوق OK .

ثم يتم تحويل جميع الأسماء الكبيرة في القائمة المحددة إلى حالة الأحرف المناسبة مرة واحدة.