نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تحويل / تغيير النص بسرعة إلى الحالات العليا في ميكروسوفت إكسيل؟

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

لنفترض أنك بحاجة إلى تغيير السلاسل النصية في أكسنومك: أكسنومك إلى الأحرف الكبيرة، انظر لقطات الشاشة التالية:

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

السهم الأزرق الفقاعة اليمنى تغيير السلاسل النصية إلى الأحرف الكبيرة في إكسيل مع وظيفة وبر


من السهل استخدام الدالة العليا ل ميكروسوفت إكسيل لتغيير السلاسل النصية إلى أحرف كبيرة في خلية واحدة.

أدخل = UPPER (A1) في خلية كشنومك، واضغط مفتاح إنتر. ثم يتم نسخ محتوى "تغيير الحالة" في الخلية أكسنومكس وتغييرها إلى "تشانج كيس" في الخلية كسنومكس. مشاهدة لقطة الشاشة:

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


السهم الأزرق الفقاعة اليمنى تغيير السلاسل النصية إلى الأحرف الكبيرة في إكسيل مع فبا

هناك كود فبا يمكن أن تساعدك على تغيير سلسلة نصية إلى كبيرة في إكسيل.

1. صحافة ALT + F11 لعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في النافذة، انقر على إدراج > وحدة لإظهار نافذة وحدة نمطية جديدة، ثم نسخ التعليمات البرمجية فبا التالية في إطار الوحدة النمطية.

فبا: تغيير سلسلة نصية إلى أحرف كبيرة في إكسيل.

Sub UCase()
'Upadateby20140701
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    Rng.Value = VBA.UCase(Rng.Value)
Next
End Sub

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

4. بعد التحديد، انقر على OK. سيتم تغيير كل سلسلة النص في التحديد إلى الأحرف الكبيرة.


السهم الأزرق الفقاعة اليمنى تغيير السلاسل النصية إلى الأحرف الكبيرة في إكسيل مع كوتولس ل إكسيل

كوتولس ل إكسيل's تغيير الحالة أداة يمكن أن تساعدك على كافة السلاسل النصية أو الحروف إلى الأحرف الكبيرة في مجموعة من ميكروسوفت إكسيل.

كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. احصل عليه الآن.

الخطوة شنومكس: حدد النطاق الذي ستغير فيه السلاسل النصية إلى أحرف كبيرة.

الخطوة شنومك: انقر فوق Kutools > أدوات النص > تغيير الحالة .... مشاهدة لقطة الشاشة:

الخطوة شنومك: في تغيير الحالة مربع الحوار، والتحقق من الأحرف الكبيرة الخيار، وانقر OK or تطبيق زر. مشاهدة لقطة الشاشة:

ثم سترى أن جميع السلاسل النصية في التحديد يتم تغييرها إلى أحرف كبيرة. انظر لقطة الشاشة:

كوتولس ل إكسيل's تغيير الحالة أداة يمكن أن تتغير بسرعة حالة النص إلى وبر، أقل، بروبر، قضية الجملة، وتويغل القضية. انقر لمعرفة المزيد ...


المقالات النسبية:


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Aron C · 4 years ago
    The VBA was freaking awesome thanks a lot :lol: .
  • To post as a guest, your comment is unpublished.
    Bryan Steven · 5 years ago
    This is one the ways that i know it could be done with VBA

    Sub UPPER ()

    Dim Addrr As Atring
    Addr = Intersect(ActiveSheet.UsedRange, Selection).Address
    Range(Addr) = _
    Evaluate("IF(LEN(" & Addr & "),UPPER(" & Addr & "),"""")")

    End Sub