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

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

تحويل محتويات مربع النص إلى خلية باستخدام VBA

تحويل محتويات مربع النص إلى خلية باستخدام VBA

باستثناء التعليمات البرمجية للماكرو ، لا توجد حيلة يمكنها تحويل مربعات النص إلى محتويات الخلية بسرعة.

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

2. انقر إدراج > وحدة، ثم الصق الكود أدناه في ملف وحدة النصي.

فبا: تحويل مربعات النص إلى خلية

Sub TextboxesToCell()
'UpdatebyExtendoffice20160918
    Dim xRg As Range
    Dim xRow As Long
    Dim xCol As Long
    Dim xTxtBox As TextBox
    
    Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)
    xRow = xRg.Row
    xCol = xRg.Column
    
    For Each xTxtBox In ActiveSheet.TextBoxes
        Cells(xRow, xCol).Value = xTxtBox.Text
        xTxtBox.Delete
        xRow = xRow + 1
    Next
    
End Sub

3. صحافة F5 مفتاح لتشغيل الكود ، يظهر مربع حوار لتذكيرك بتحديد خلية لتصدير محتويات مربع النص. انظر لقطة الشاشة:

4. انقر OK. الآن تم تحويل جميع مربعات النص إلى محتويات الخلية.

نصيحة: فوق VBA ستزيل مربعات النص بعد التشغيل ، إذا كنت تريد الاحتفاظ بمربعات النص ، فيرجى تغيير الكود xTxtBox.Delete إلى xTxtBox.Delete.

التمديد:إذا كنت تريد التحويل بسرعة بين الرقم والنص ، فيرجى محاولة استخدام Kutools for Excel التحويل بين النص والرقم كما هو موضح في الصورة التالية. إنها تعمل بكامل طاقتها دون قيود

يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.

---

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

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

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

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

اقرأ أكثر... تحميل مجاني ... شراء...