كيفية كتابة الخط الغامق على السطر الأول فقط أو الكلمة الأولى في الخلية في Excel؟
في ورقة عمل Excel ، قد يكون هناك الكثير من الخلايا التي تحتوي على أسطر متعددة تم فصلها بواسطة مفاتيح Alt + Enter. في بعض الحالات ، قد تحتاج إلى كتابة السطر الأول بخط غامق فقط في هذه الخلايا. أو فقط غامق الكلمة الأولى لجعلها بارزة في الخلايا. توضح هذه المقالة طريقتين لك لتحقيق ذلك بالتفصيل.
غامق فقط السطر الأول في الخلية برمز VBA غامق الكلمة الأولى فقط في الخلية برمز VBA
غامق فقط السطر الأول في الخلية برمز VBA
يمكن أن يساعدك رمز VBA التالي في جعل السطر الأول فقط غامقًا في الخلايا المحددة بسرعة. الرجاء القيام بما يلي.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.
كود فبا: غامق فقط السطر الأول في الخلايا
Option Explicit
Sub BoldFirstLine()
Dim xRng As Range, xCell As Range
Dim xFirstRow As String
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools for", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
With xCell
.Characters(1, InStr(.Value, Chr(10))).Font.Bold = True
End With
Next
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. ثم كوتولس ل إكسيل ينبثق مربع الحوار ، يرجى تحديد النطاق مع السطر الأول الذي تريد جعله غامقًا ، ثم انقر فوق OK .
ثم يمكنك رؤية جميع الأسطر الأولى للخلايا المحددة بالخط العريض على الفور كما هو موضح أدناه لقطة الشاشة.
غامق الكلمة الأولى فقط في الخلية برمز VBA
كما هو موضح أدناه ، تحتاج في بعض الأحيان إلى جعل الكلمة الأولى غامقة فقط في النطاق A2: A4 في Excel. يمكنك تحقيق ذلك على النحو التالي خطوة بخطوة.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.
رمز فبا: غامق الكلمة الأولى فقط في الخلايا
Sub boldtext()
Dim xRng As Range, xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("Please select range:", "Kutools fro Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
On Error Resume Next
For Each xCell In xRng
If xCell.Value <> "" Then
xCell.Characters(1, InStr(1, xCell.Value, " ") - 1).Font.Bold = True
End If
Next
End Sub
3. اضغط على F5 مفتاح لتشغيل الكود. في ظهرت كوتولس ل إكسيل ، حدد النطاق الذي تريد جعل الكلمة الأولى غامقة ، ثم اضغط على OK زر. انظر لقطة الشاشة:
ثم يمكنك رؤية جميع الكلمات الأولى للخلايا المحددة بالخط العريض على الفور كما هو موضح أدناه لقطة الشاشة.
مقالات لها صلة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!