انتقل إلى المحتوى الرئيسي

 كيفية إدراج علامات التجزئة والعلامات المتقاطعة بسرعة في الخلايا؟

في ورقة العمل ، يمكننا إدراج علامة التجزئة والعلامات المتقاطعة باستخدام ميزة الرمز افتراضيًا ، ولكن سيكون الأمر مملاً إذا كان بإمكانك إدخال رمز واحد فقط في كل مرة. في هذه المقالة ، سأتحدث عن بعض الحيل بالنسبة لك لإدراج علامة التجزئة والعلامات المتقاطعة بسرعة في Excel.

قم بإدراج علامات التجزئة والعلامات المتقاطعة في الخلايا ذات الأحرف المختصرة

قم بإدراج علامات التجزئة والعلامات المتقاطعة في الخلايا باستخدام رمز VBA


قم بإدراج علامات التجزئة والعلامات المتقاطعة في الخلايا ذات الأحرف المختصرة

لإدخال علامة التجزئة والعلامات المتقاطعة بسرعة ، يمكن لحرف الاختصار "a" و "r" أن يقدم لك معروفًا. يرجى القيام بذلك على النحو التالي:

1. حدد خلايا العمود حيث تريد إدراج علامة التجزئة والعلامات المتقاطعة ، ثم اختر ملف Webdings الخط تحت الرئيسية علامة التبويب ، انظر لقطة الشاشة:

2. الآن ، عند إدخال الحرف "a" في الخلية ، سيصبح علامة التجزئة ، وإذا قمت بكتابة الحرف "r" ، فسيصبح علامة متقاطعة ، انظر لقطة الشاشة:


قم بإدراج علامات التجزئة والعلامات المتقاطعة في الخلايا باستخدام رمز VBA

إليك طريقة أخرى سريعة وسهلة لإدراج علامة التجزئة والعلامات المتقاطعة عن طريق النقرات فقط.

1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تريد إدراج علامات التجزئة والعلامات المتقاطعة ، ثم اختر عرض الرمز من قائمة السياق ، في فتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:

كود فبا: أدخل علامات التجزئة والعلامات المتقاطعة في الخلايا:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

ملاحظات: في الكود أعلاه ، B2: B12 هي الخلايا التي تريد إدراج علامة التجزئة والعلامات المتقاطعة فيها ، يمكنك تغيير مرجع الخلية حسب حاجتك.

2. ثم احفظ الكود وأغلق هذا الرمز ، الآن ، عند النقر نقرًا مزدوجًا فوق خلية مرة واحدة ، يتم إدراج علامة متقاطعة ، وعند النقر المزدوج مرة أخرى ، يتم عرض علامة التجزئة ، انظر لقطة الشاشة:


احفظ الرموز المحددة وأدخلها في أي مكان تريده:

النص السيارات سمة من سمات كوتولس ل إكسيل يمكن أن تساعدك في حفظ الرموز أو الصيغ أو البيانات المحددة أو العناصر الأخرى في جزء النص التلقائي ، ثم يمكنك إعادة استخدامها في أي مكان في ملف Excel الذي تحتاجه.

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. تنزيل وتجربة مجانية الآن!

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wondering how to add more ranges to 'If Not Intersect(Target, Range("B2:B12")) Is Nothing Then' for example I have a number of cell ranges such as D2,D12 then F7,F32 how can I add this macro to all the cells? Cheers
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations