كيفية تحويل النص في مربع النص إلى محتوى الخلية في إكسيل؟
إذا كانت هناك بعض مربعات النص في ورقة ، وتريد تحويل المحتويات في مربعات النص إلى خلايا بشكل منفصل كما هو موضح أدناه ، فهل هناك أي طرق سريعة لحل هذه المهمة باستثناء إدخال واحدًا تلو الآخر في 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.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!