أ / محمد صالح

بعد إذن جميع الأخوة المشاركين هذا جهدي المتواضع لإثراء الموضوع يمكن اختصار الإجراء لهذا الكود 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 لفتح صندوق الحوار إدراج ارتباط تشعبي حدد مكان في هذا المستند حدد ورقة العمل حدد الخلية الهدف اضغط موافق

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

ما المقصود بكلمة ( وميض ) ؟ الخلية النشطة التي يتم الكتابة فيها تكون محاطة بإطار غامق وهذا يميزها عن غيرها

بالنسبة لمشكلة الإرسال فيبدو ان الإرسال يتم قبل أن يتم تصدير الملف pdf لذلك يمكنك استعمال أمر الانتظار قبل تنفيذ الكود الثاني لبعض الثواني باستعمال الأمر wait هكذا Application.Wait DateAdd("s", 5, Now) وبالنسبة لاستبدال while فلا مشكلة لم يستعمل المتغير a في الكود ضع سطر for بدلا من while وضع سطر next بدلا من زيادة المتغير a وبعده loop بالتوفيق

المطلوب غير واضح بصورة كافية لي يفضل توضيح الصورة النهائية للبيانات مع الشرح بالتفصيل حتى يتمكن الزملاء من مساعدتك فيما بدأت أنت في حله

المطلوب شبه واضح وهو توفيق أرقام من مجموعة خلايا ليكون حاصل جمعهم رقما محددا من طرفكم ولكن غير محدد مكان التنفيذ في الملف أين الخلايا التي بها الأرقام؟ وأين خلية الرقم المراد تجميعه؟

مادام السؤال نظريا فالإجابة ايضا نظرية تعتمد الفكرة المطلوبة على: تسجيل ماكرو استبدال الحروف التي عليها همزة إلى حروف ليس عليها همزة واستبدال التاء المربوطة بالهاء واستبدال الياء المتطرفة بالألف المقصورة ثم بعد ذلك يتم تنفيذ الترتيب

إذا كنت تقصد تنسيق التاريخ مثلا فهذا يرجع إلى إعدادات تنسيق الخلايا format cells وإلى إعدادات اللغة والمنطقة في الويندوز

تحتاج فقط إلى تغيير تنسيق الرقم يمكنك تغيير كود زر الضرب والقسمة إلى هذا الكود Private Sub CommandButton3_Click() TextBox3.Text = Format(Val(TextBox1.Text) * Val(TextBox2.Text), "#.00") End Sub Private Sub CommandButton4_Click() TextBox3.Text = Format(Val(TextBox1.Text) / Val(TextBox2.Text), "#.00") End Sub

للأسف لا يوجد حدث عند إخفاء أو إظهار الأعمدة أو الصفوف في الشيت ولكن يمكن التحايل على ذلك بوضع كود الحساب في حدث عند تغيير التحديد بحيث أنه بعد الإخفاء أو الإظهار يكتفى بوضع المؤشر في أي مكان في الشيت لتقوم الدالة بالحساب Private Sub Worksheet_SelectionChange(ByVal Target As Range) ActiveSheet.Calculate End Sub وطبعا يتم لصق هذا الكود في شاشة الأكواد الخاصة بالشيت الذي به معادلة جميع الأعمدة المرئية فقط بالضغط دبل كلك على اسم الشيت

المثال بعد كمة طريقة استعمالها أولا تضيف موديول في شاشة الفيجوال بيسك ثم تلصق الدالة الموجودة في الكود الأول في المشاركة السابقة ثم تكتب المعادلة الثانية في المكان الذي تريد فيه ظهور مجموع الخلايا المرئية فقط

فعلا subtotal لا تعمل مع الأعمدة لكن يمكنك استعمال هذه الدالة Function sum_vis_cols(rng As Range) As Double Dim mysum As Double, c As Range Application.Volatile For Each c In rng mysum = mysum + IIf(c.EntireColumn.Hidden <> True, c.Value, 0) Next sum_vis_cols = mysum End Function وطريقة استعمالها =sum_vis_cols(E1:CX1) بالتوفيق

هذا السؤال تسأل فيه صاحب الملف الأستاذ أبو الحسن لأنه برنامج تجاري والأكواد محمية ببرنامج بمقابل يعني الراجل يدفع فلوس لحماية أكواده وانت تفكها كدا ببساطة؟؟؟؟!!!!! الخلاصة: حتى الآن لا توجد طريقة معروفة لضرب حماية برنامج VBA unviewable+