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

كيفية حفظ واستخدام وحدات ماكرو VBA في جميع المصنفات في Excel؟

في بعض الحالات ، قد تحتاج إلى استخدام ماكرو VBA عدة مرات في المستقبل. هل من الممكن ان احفظ بطريقة ما وحدة VBA في أي مستند جديد لذلك سيكون متاحًا في جميع المصنفات؟ الجواب نعم. في هذا البرنامج التعليمي ، سوف نقدم طريقة سهلة لتحقيق هدفك.
doc save-use-vba-macros-in-all-workbooks 1

احفظ واستخدم رمز VBA في كافة المصنفات


احفظ واستخدم رمز VBA في كافة المصنفات

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

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

2. انقر إدراج > وحدة ولصق الماكرو التالي في نافذة الوحدة النمطية.

كود فبا: تحويل الأرقام إلى كلمات

Function NumberstoWords(ByVal MyNumber)
'Update by Extendoffice
Dim xStr As String
Dim xFNum As Integer
Dim xStrPoint
Dim xStrNumber
Dim xPoint As String
Dim xNumber As String
Dim xP() As Variant
Dim xDP
Dim xCnt As Integer
Dim xResult, xT As String
Dim xLen As Integer
On Error Resume Next
xP = Array("", "Thousand ", "Million ", "Billion ", "Trillion ", " ", " ", " ", " ")
xNumber = Trim(Str(MyNumber))
xDP = InStr(xNumber, ".")
xPoint = ""
xStrNumber = ""
If xDP > 0 Then
xPoint = " point "
xStr = Mid(xNumber, xDP + 1)
xStrPoint = Left(xStr, Len(xNumber) - xDP)
For xFNum = 1 To Len(xStrPoint)
xStr = Mid(xStrPoint, xFNum, 1)
xPoint = xPoint & GetDigits(xStr) & " "
Next xFNum
xNumber = Trim(Left(xNumber, xDP - 1))
End If
xCnt = 0
xResult = ""
xT = ""
xLen = 0
xLen = Int(Len(Str(xNumber)) / 3)
If (Len(Str(xNumber)) Mod 3) = 0 Then xLen = xLen - 1
Do While xNumber <> ""
If xLen = xCnt Then
xT = GetHundredsDigits(Right(xNumber, 3), False)
Else
If xCnt = 0 Then
xT = GetHundredsDigits(Right(xNumber, 3), True)
Else
xT = GetHundredsDigits(Right(xNumber, 3), False)
End If
End If
If xT <> "" Then
xResult = xT & xP(xCnt) & xResult
End If
If Len(xNumber) > 3 Then
xNumber = Left(xNumber, Len(xNumber) - 3)
Else
xNumber = ""
End If
xCnt = xCnt + 1
Loop
xResult = xResult & xPoint
NumberstoWords = xResult
End Function
Function GetHundredsDigits(xHDgt, xB As Boolean)
Dim xRStr As String
Dim xStrNum As String
Dim xStr As String
Dim xI As Integer
Dim xBB As Boolean
xStrNum = xHDgt
xRStr = ""
On Error Resume Next
xBB = True
If Val(xStrNum) = 0 Then Exit Function
xStrNum = Right("000" & xStrNum, 3)
xStr = Mid(xStrNum, 1, 1)
If xStr <> "0" Then
xRStr = GetDigits(Mid(xStrNum, 1, 1)) & "Hundred "
Else
If xB Then
xRStr = "and "
xBB = False
Else
xRStr = " "
xBB = False
End If
End If
If Mid(xStrNum, 2, 2) <> "00" Then
xRStr = xRStr & GetTenDigits(Mid(xStrNum, 2, 2), xBB)
End If
GetHundredsDigits = xRStr
End Function
Function GetTenDigits(xTDgt, xB As Boolean)
Dim xStr As String
Dim xI As Integer
Dim xArr_1() As Variant
Dim xArr_2() As Variant
Dim xT As Boolean
xArr_1 = Array("Ten ", "Eleven ", "Twelve ", "Thirteen ", "Fourteen ", "Fifteen ", "Sixteen ", "Seventeen ", "Eighteen ", "Nineteen ")
xArr_2 = Array("", "", "Twenty ", "Thirty ", "Forty ", "Fifty ", "Sixty ", "Seventy ", "Eighty ", "Ninety ")
xStr = ""
xT = True
On Error Resume Next
If Val(Left(xTDgt, 1)) = 1 Then
xI = Val(Right(xTDgt, 1))
If xB Then xStr = "and "
xStr = xStr & xArr_1(xI)
Else
xI = Val(Left(xTDgt, 1))
If Val(Left(xTDgt, 1)) > 1 Then
If xB Then xStr = "and "
xStr = xStr & xArr_2(Val(Left(xTDgt, 1)))
xT = False
End If
If xStr = "" Then
If xB Then
xStr = "and "
End If
End If
If Right(xTDgt, 1) <> "0" Then
xStr = xStr & GetDigits(Right(xTDgt, 1))
End If
End If
GetTenDigits = xStr
End Function
Function GetDigits(xDgt)
Dim xStr As String
Dim xArr_1() As Variant
xArr_1 = Array("Zero ", "One ", "Two ", "Three ", "Four ", "Five ", "Six ", "Seven ", "Eight ", "Nine ")
xStr = ""
On Error Resume Next
xStr = xArr_1(Val(xDgt))
GetDigits = xStr
End Function

3. انقر فوق حفظ في الزاوية العلوية اليسرى من الشريط أو انقر فوق CTRL + S لفتح حفظ باسم نافذة.doc save-use-vba-macros-in-all-workbooks 2

4. في ال حفظ باسم نافذة ، أدخل اسم المصنف في ملف اسم الملف علبة. وحدد ملف وظيفة Excel الإضافية (* .xlam) الخيار في حفظ كنوع قائمة منسدلة.
doc save-use-vba-macros-in-all-workbooks 3

5. ثم انقر فوق حفظ زر لحفظ المصنف برمز VBA كملف وظيفة Excel الإضافية.
doc save-use-vba-macros-in-all-workbooks 4

6. العودة إلى Excel، أغلق المصنف الفارغ الذي تم حفظه كوظيفة إضافية في Excel.

7. افتح مصنفًا جديدًا يحتوي على البيانات المطلوب تحويلها. أدخل الصيغة = NumberstoWords (A2) في الخلية B2. ال # NAME؟ سيتم إرجاع قيمة الخطأ لأنه لم يتم تطبيق رمز VBA في كافة المصنفات حتى الآن.
doc save-use-vba-macros-in-all-workbooks 5

8. انتقل إلى المطور ، انقر فوق اكسل الوظائف الإضافية في ال الوظائف الإضافية المجموعة.
doc save-use-vba-macros-in-all-workbooks 6

9. ال اضف الى ينبثق مربع الحوار. انقر على تصفح .
doc save-use-vba-macros-in-all-workbooks 7

10. اختر الوظيفة الإضافية التي حفظتها للتو ، ثم انقر فوق OK .
doc save-use-vba-macros-in-all-workbooks 8

11. ثم تحويل الرقم إلى الكلمات الإضافية قمت بتخصيصها وتشغيلها. انقر على OK زر لإنهاء الإعداد.
doc save-use-vba-macros-in-all-workbooks 9

12. الآن عند إدخال الصيغة = NumberstoWords (A2) في الخلية B2 واضغط على أدخل مفتاح ، سيتم إرجاع الكلمات الإنجليزية المقابلة. اسحب مقبض الملء التلقائي لأسفل للحصول على جميع النتائج.
doc save-use-vba-macros-in-all-workbooks 10

ملاحظة:

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

  1. يمكنك إضافة رمز إلى شريط الأدوات السريع وقم بتشغيل الكود في كل مرة يتم فيها النقر فوق زر الرمز على شريط الأدوات.
    doc save-use-vba-macros-in-all-workbooks 11
  2. يمكنك أيضًا الضغط مباشرة ALT + F11 لفتح مربع تشغيل الرمز ، ابحث عن الرمز ، واضغط على F5 يهرب.

عمليات أخرى (مقالات)

رمز VBA لسرد جميع الوظائف الإضافية في Excel
في Excel ، يمكنك إضافة أو إدراج بعض الوظائف الإضافية للتعامل بشكل أفضل مع البيانات. كما نعلم ، يمكننا الانتقال إلى نافذة الخيارات لعرض جميع الوظائف الإضافية ، ولكن هل هناك أي طريقة لإدراج جميع الوظائف الإضافية في ورقة؟ الآن ، في هذا البرنامج التعليمي ، يوفر رمز VBA لسرد جميع الوظائف الإضافية في Excel.

كيفية تشغيل ماكرو VBA عند فتح أو إغلاق المصنف؟
في هذه المقالة ، سأخبرك بكيفية تشغيل التعليمات البرمجية لـ VBA أثناء فتح المصنف أو إغلاقه في كل مرة.

كيفية حماية / قفل رمز VBA في Excel؟
تمامًا كما يمكنك استخدام كلمة المرور لحماية المصنفات وأوراق العمل ، يمكنك أيضًا تعيين كلمة مرور لحماية وحدات الماكرو في Excel.

كيفية استخدام تأخير الوقت بعد تشغيل ماكرو VBA في Excel؟
في بعض الحالات ، قد تحتاج إلى عمل تأخير مؤقت لتشغيل VBA Macro في Excel. على سبيل المثال ، عند النقر لتشغيل ماكرو محدد ، سيصبح ساري المفعول بعد 10 ثوانٍ. ستوضح لك هذه المقالة طريقة لتحقيق ذلك.

 


  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في 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
Thank you very much hundred timessss
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations