Note: The other languages of the website are Google-translated. Back to English

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

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

تحويل محتويات مربع النص إلى خلية باستخدام 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

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

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

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

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

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

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 
أيام، يرجى التنزيل والحصول على نسخة تجريبية مجانية الآن.
doc تحويل مربع النص إلى الخلية 5


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

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

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

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

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

 

فرز التعليقات حسب
التعليقات (15)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
VBA لا يعمل ؟!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
إنه يعمل بشكل مثالي هنا. ماذا يحدث أثناء تشغيل الكود؟ لا يغير شيئا؟ إذا كان بإمكانك ، يرجى وصف المزيد عن بياناتك ومشكلتك. شكرًا لك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل هنا أيضًا. حدد خلية الوجهة ، وانقر فوق "موافق" ، ولن يحدث شيء.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لقد جربته في Win10 Excel2016 و Win8 Excel2010 ، فهو يعمل على حد سواء. ما بيئة العمل التي تستخدمها؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لدي العديد من الصناديق في أوراق مختلفة ، وهناك 4 أوراق بها أحداث معينة في يوم معين وأود أن آخذ مربعات النص هذه في يوم معين إلى ورقة جديدة مجمعة لذلك اليوم ، كيف يعمل ليس لدي أي فكرة عن كيفية الحصول عليها تلك البيانات من 4 أوراق مختلفة إلى ورقة واحدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
حسنًا ، لدي Textbox داخل Textbox يجب استخراجه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
موتشا جراسياس! بوين أبورت. لي ayudó mucho.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا وظيفة لي. Hago todo lo señalado y no pasa nada después de apretar enter. Intenté algunos cambios en la programación y tampoco
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، خوان ، لا يوجد مفتاح Enter مذكور في الطريقة أعلاه ، انسخ والصق vba ، ثم اضغط على مفتاح F5 أو انقر فوق الزر "تشغيل" لتمكين الرمز.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد حاولت في Excel365 وهو لا يعمل ، أحصل على النافذة المنبثقة ثم أقوم بملئها ولكن بعد ذلك لم يحدث شيء ، شكرًا على المساعدة ، ميشيل
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ميشيل ، لقد اختبرت الكود في Excel 365 ، وهو يعمل بشكل صحيح. هل يمكن أن تعطيني صورة عن إصدار Excel الخاص بك مثل هذا (ملف> حساب)https://www.extendoffice.com/images/stories/comments/sun-comment/Excel_version.png، والصورة عن محتويات مربعات النص الخاصة بك؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، مشمس. اريد حلا في اكسل. لقد قمت بنسخ ولصق صفحة ويب تحتوي على بيانات. في ذلك ، يحتوي كل مربع نص على بعض الأرقام. لا يمكنني تحويله كرقم عادي في خلية Excel تحتوي على عمود معين. أنا أستخدم برنامج Excel 2007.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، مشمس. اريد حلا في اكسل. لقد قمت بنسخ ولصق صفحة ويب تحتوي على بيانات. في ذلك ، يحتوي كل مربع نص على بعض الأرقام. لا يمكنني تحويله كرقم عادي في خلية Excel تحتوي على عمود معين. أنا أستخدم برنامج Excel 2007.النص الخاص بك لربط
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أنا أستخدم هذا البرنامج النصي (شكرًا بالمناسبة) ، لكنني أحاول الحصول عليه بحيث يملأ خلية معينة ولا يطلب إدخال خلية في كل مرة. ما الذي يمكنني تغييره بحيث يتم ملؤه تلقائيًا على سبيل المثال الخلية B2.

هتاف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ، فقط غير النص
Set xRg = Application.InputBox("Select a cell):", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

إلى
Set xRg = Application.Range("B2")

ستقوم بإدراج محتويات مربع النص من الخلية B2
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL