كيفية تحويل الحرف الأول فقط إلى حالة كبيرة في خلايا Excel؟

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

تحويل الحرف الأول فقط إلى حالة كبيرة في خلية Excel باستخدام صيغة
تحويل الحرف الأول فقط إلى حالة كبيرة في خلايا Excel باستخدام كود VBA
تحويل الحرف الأول فقط إلى حالة كبيرة في خلايا Excel بالجملة باستخدام Kutools لـ Excel

تحويل الحرف الأول فقط إلى حالة كبيرة في خلايا Excel باستخدام صيغة

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

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

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

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

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

تحويل الحرف الأول فقط إلى حالة كبيرة في خلايا Excel باستخدام كود VBA

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

1. اضغط على مفاتيح Alt + F11 في نفس الوقت لفتح نافذة Microsoft Visual Basic for Application.

2. في نافذة Microsoft Visual Basic for Application، انقر فوق إدراج > وحدة، ثم انسخ والصق الكود التالي لـ VBA في نافذة الوحدة.

كود 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 أو انقر على زر التشغيل لتشغيل هذا الكود. في مربع الحوار المنبثق Kutools لـ Excel، حدد النطاق الذي تريد فيه تحويل جميع الأحرف الكبيرة إلى حالة كبيرة للحرف الأول فقط، ثم انقر على زر موافق.

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

تحويل الحرف الأول فقط إلى حالة كبيرة في خلايا Excel بالجملة باستخدام Kutools لـ Excel

يعرض لك هذا القسم أداة تغيير الحالة في Kutools لـ Excel لتحويل جميع الأحرف الكبيرة إلى حالة مناسبة بالجملة ببضع نقرات فقط.

1. حدد القائمة التي تحتاج إلى تحويل الحالة لها، ثم انقر على Kutools > نص > تغيير الحالة. انظر لقطة الشاشة:

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

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