أ / محمد صالح

يوجد حلط بين مفهوم الدالة fimction والإجراء sub وخلاصة الفرق بينهما : الدالة تقوم بإرجاع قيمة بأي نوع من أنواع البيانات الإجراء لا يرجع قيمة وإنما يتم تنفيذ مجموعة من الأوامر تباعا ******* وفي حالتك هذه يمكنك استعمال هذه الدالة Public function CapText(ID As Integer) as string CapText = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) End function إذا كنت تريد أن تجعل مثلا عنوان الزر هو ناتج الدالة تستعمل هذا الكود button1.caption = CapText(1) إذا كنت تريد أن تجعل مثلا عنوان الليبل هو ناتج الدالة تستعمل هذا الكود label1.caption = CapText(2) بالتوفيق

بإذن الله يكون هذا هو المطلوب تفضل test1.xlsm

إن شاء الله تقوم هذه المعادلة بالغرض =IF(A1<C1,IF(FLOOR.MATH(A1,10)=FLOOR.MATH(C1,10),C1,""),"")

فكرة جميلة وبسيطة بانتظار جديدك أستاذ عصام

المطلوب غير واضح لي بصورة كافية ومحاولات الأستاذ جعفر ناتجة عن عدم وضوح المطلوب له أيضا وحسب فهمي للمطلوب: فأنت لا تريد دالة وإنما تريد إجراء sub تعطي له رقم id يعرض لك رسالة msgbox إن كان هذا هو المطلوب فجرب هذا الإجراء Public Sub MSG(ID As Integer) Dim Message As String, TItle As String Message = DLookup("[txtMessageText]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) TItle = DLookup("[txtMessageTitle]", "[tblMessages]", "[txtAutoIntMessageID] =" & ID) MsgBox Message, , TItle End Sub وهذه طريقة استدعائه في البرنامج Sub mas() MSG (1) End Sub أرجو أن يكون هو المطلوب

شكرا لجميع المشاركين ومن الواضح من استفسارات الأصدقاء هو عدم وضوح فكرة البرنامج لهم حيث أن الفكرة تعالج القصور الموجود في تخزين معلومات التسجيل في جدول يمكن تعديله أو في ملف في السي أيضا يمكن تعديله لذلك تم الاعتماد على الريجيستري وأيضا طريقة ربط البرنامج بالجهاز مرنة جدا بحيث يمكن استخدام رقم الهارد ديسك أو البروسيسيور أو الماذربورد أو أي شي تريده. وأنا غير مسئول عن أكواد أخرى يستعملها البعض ولا تجلب أرقام الهارد أو البروسيوسور أو غيره أنا مسئول فقط عن أكوادي التي استعملتها في البرنامج. أخيرا وليس آخرا جعلنا الله جميعا من الذين يعاونون على التطور وليس من المثبطين الهمم آمين آمين آمين

الكلام النظري لن يفيدك أولا يفضل إرفاق ملف أو جزء منه ليساعدك من يستطيع.

إن شاء الله يكون هذا هو المطلوب تم الاستغناء عن عمود اسم اليوم وذلك بتنسيق عمود التاريخ تم إضافة جدول مساعد يتم استخدامه في عملية البحث mas_Labour A.rar

طريقة استعمال معادلات المصفوفات بسيطة جدا وهي أولا تحدد الخلايا التي تريد تطبيق المعادلة عليها مثلا من c5:c25 ثم تكتب المعادلة في شريط الصيغة ثم تضغط على ctrl+shift+enter تمت

بعد إذن الإخوة المشاركين في الموضوع أهتم جدا باختصار الأكواد والمعادلات وهذا هو الملف السابق للأخ @أبو عيد ولكن بدون الأعمدة المساعدة وباستعمال معادلات المصفوفات array formula ولا أنصح بتنفيذها على عدد كبير من الصفوف وإنما في ملف للطباعة يحتوي على 20 صفا في الصفحة الواحدة جلب بيانات تلاميذ بناء على قائمة.xlsx

ممكن تكون مشكلة في لوحة المفاتيح

بعد إذن جميع الأخوة المشاركين هذا جهدي المتواضع لإثراء الموضوع يمكن اختصار الإجراء لهذا الكود Sub TEST() Dim Sh As Worksheet, LR As Long, Cel As Range Dim Texte1 As String For Each Sh In Worksheets(Array("DATA")) LR = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row Texte1 = Ar_WriteDownNumber(Cells(LR, "Q") + (Cells(LR, "p") / 100), "جنيها", "قرشا", 100) Sh.Cells(LR + 2, "C").Value = "فقط " & Texte1 ''' هنا حدد اين تريد يظهرالتفقيط ActiveWindow.SelectedSheets.PrintOut Copies:=1 Sh.Range(Sh.Cells(LR + 1, "A"), Sh.Cells(LR + 12, "C")).ClearContents Next Sh End Sub

شكرا لمروركم الكريم نفعنا الله جميعا بما علمنا وعلمنا ما ينفعنا

جميعا بإذن الله تعالى تم عرض التفقيط vba متعدد اللغات في قناتي منذ فترة شكرا لاهتمامكم

لا أدري أين المشكلة عندك أخي وصديقي أبا أحمد لكن هذا المجلد الذي أستعمله يمكنك نقله في أي مكان لاحظ استعمال أسماء عربية بينها مسافات حتى اسم المجلد به مسافات ربما يحتاج أخونا جعفر إلى تحديث الملف في المشاركة الأولى إلى هذا المجلد Combine_PDF_Files_cmd.rar

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

بعد إذن أخينا جعفر الحل في مشكلة المسار العربي الذي يحتوي على مسافات يمكن وضع هذا الملف libiconv2.dll في نفس مسار البرنامج مع pdftk.exe بعد فك الضغط عنه وفي هذه الحالة يمكن الاستغناء عن الموديول وتغيير السطر الأخير إلى Shell Command_Line, vbHide MsgBox "ok" دون تعديل على أي كود غير السطر اللخاص ب shell فقط مع إضافة كود رسالة تخبر بانتهاء الدمج libiconv2.rar

الحل بإذن الله إحاطة مسار الملفين بعلامات تنصيص مزدوجة قبل وبعد المسار وكذلك مسار الملف التنفيذي لبرنامج pdftk

في هذه الحالة يمكنك استعمال الوقت بالساعة والدقيقة والثانية ضمن الاسم مثال FileName_2020_09_29_09_55_20.pdf راجع هذا الفيديو يستعمل نفس فكرة التسمية عند النسخ الاحتياطي لمصنف العمل الحالي

ضع في خاصية format لمربع النص عدد خانات الرقم التعريفي للمدرسة أصفار وأخبرني بالنتيجة

جميل جدا بالتوفيق

لقراءة محتويات ملف xml يمكنك استعمال هذا الكود Sub mas_get_data() Dim Doc As Object, Variables As Object, r As Integer Set Doc = CreateObject("MSXML2.DOMDocument") Doc.async = False: Doc.validateOnParse = False Doc.Load ActiveWorkbook.Path & "\a.xml" 'get price r = 2 Set Variables = Doc.SelectNodes("//TWM_SAD/Item/Tarification") For Each variable In Variables Sheets(1).Range("f" & r).Value = variable.SelectNodes("Item_price").Item(0).Text r = r + 1 Next 'get description r = 2 Set Variables = Doc.SelectNodes("//TWM_SAD/Item/Goods_description") For Each variable In Variables Sheets(1).Range("d" & r).Value = variable.SelectNodes("Description_of_goods").Item(0).Text r = r + 1 Next MsgBox "Every thing is OK." End Sub بشرط وضع ملف xml ففي نفس مسار ملف الاكسل ويمكنك تغيير أسماء العقد nodes حسب ملف xml مع مراعاة مسار العقد الصحيح ومراعاة حالة الحروف

تقريبا في تطبيق أوفيس للموبايل لا يوجد ارتباط بصفحة في الملف من خلال القوائم وإنما يوجد رابط لملف آخر من قائمة إدارج insert رابط link النص الظاهر ثم العنوان جرب استعمال دالة hyperlink وكن برابط ملف الاكسل الحالي ثم اسم الشيت ثم مرجع الخلية مثل: =hyperlink("path/sheet2!a1","any word")

حسب فهمي للمطلوب تريد عمل ارتباط خلية بورقة عمل أخرى في نفس الملف ولعمل هذا اتبع الخطوات التالية: حدد الخلية ثم اضغط ctrl+k لفتح صندوق الحوار إدراج ارتباط تشعبي حدد مكان في هذا المستند حدد ورقة العمل حدد الخلية الهدف اضغط موافق