أ / محمد صالح

بعد إذن أخي محي الدين جرب تغيير الاجراء إلى هذا الكود هذا باستعمال الاسم البرمجي للشيت ودالة cells Sub test() Dim a, col As Long a = Range(Worksheet____37.Cells(10, 8), Worksheet____37.Cells(39, 8)).Value col = Application.Match(Worksheet____37.Cells(9, 8), Worksheet____60.Range("a9:m9"), 0) Worksheet____60.Cells(10, col).Resize(30) = a MsgBox "Done by mr-mas.com" End Sub وهذا نفس الاجراء باسم الشيت والنطاق Sub mrmas() Dim a, col As Long a = Sheets("طباعة حافظة التقارير").Range("h10:h39").Value col = Application.Match(Sheets("طباعة حافظة التقارير").Range("h9"), Sheets("ارشيف التقارير").Range("a9:m9"), 0) Sheets("ارشيف التقارير").Cells(10, col).Resize(30) = a MsgBox "Done by mr-mas.com" End Sub بالتوفيق

وهذا رابط للبحث Showing results for 'القروش الجنيهات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق

لقد عرضت لك الحل كاملا نظرا لسرية البيانات وخصوصا بيانات الدخول (اسم المستخدم وكلمة المرور) على موقع رسمي كهذا

يرجع ذلك لأن الأرقام التي في الخلايا منسقة ك نص ولذلك تجد ظهور مثلث أصفر يخبر بهذا الخطأ the number in this cell is formatted as text والحل تحديد جميع الخلايا ثم الضغط على المثلث الأصفر واختيار convert to number بالتوفيق

الكود لا يضر الموقع ولا يظهر عندهم الكود يقوم بما يقوم به المستخدم ولكن بصورة آلية تحتاج قبل البدء معرفة ID حقل اسم المستخدم وكذلك كلمة المرور وكذلك زر الدخول وبعدها ID لكل حقل سيتم تعبئته من الشيت وكل زر سيتم الضغط عليه لمعرفة ID لعنصر نضغط بزر الفارة الأيمن على العنصر في المتصفح ونختار inspect element وبعدها نستخدم كود انشاء نسخة من كائن متصفح انترنت اكسبلورر بمثل هذا الكود Dim IE As Object, site as String Set IE = CreateObject("InternetExplorer.Application") site = "https://www.example.com/" With IE .Visible = True .navigate site Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop End With IE.Document.getElementById("username").Value = range("aa1").value IE.Document.getElementById("password").Value = range("ab1").value IE.Document.getElementById("login_go").Click Do Until Not IE.Busy And IE.readyState = 4 DoEvents Loop وهكذا في كتابة قيم الحقول من الشيت نستعمل حلقة تكرارية مثل for - next وهكذا الضغط على اي زر لحفظ البيانات مثلا بالتوفيق

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

الحمد لله الذي وفقنا جميعا لهذا

جميعا بإذن الله

كل عام وأنتم جميعا بكل خير يمكنك استعمال هذه المعادلة في الخلية C2 مع سحب المعادلة يسارا ثم أسفل =SUMIFS('Data '!$E:$E,'Data '!$A:$A,$A2,'Data '!$C:$C,">="&C$1,'Data '!$C:$C,"<="&EOMONTH(C$1,0)) مع ضرورة حذف المسافة في نهاية اسم الشيت data حتى لا تتسبب في مشكلات بعد ذلك بالتوفيق

عليكم اسلام ورحمة الله وبركاته يمكنك استعمال دالة العد بشروط countifs هذه المعادلة في Y2 لعد ايام الحضور =COUNTIFS(B:B,AA3,C:C,Z3,F:F,"حضور") وهذه في X2 لعد ايام الغياب =COUNTIFS(B:B,AA3,C:C,Z3,F:F,"غياب") مع سحب المعادلة لأسفل بالتوفيق

يمكنك التحكم في النطاق بدالة iif بصورة طبيعية بتكرار الشرط في جزء عدم التحقق For Each c In IIf(Me.OptionButton4, x.Range("A9:A" & ss), IIf(Me.OptionButton5, x.Range("B9:B" & ss), x.Range("C9:C" & ss))) بالتوفيق

تقريبا حجم الصفحة في اعدادات الملف letter ولكن حجم الورق في الطابعة A4

تفضل تمت اعادة هيكلة جزء البحث في النموذج بالتوفيق التعديل على كود البحث.xlsm

يمكن رفع الملف على OneDrive ومشاركة الرابط مع الجميع مع فتح الملف بأوفيس 2016 وما بعده بالتوفيق

يفترض أنه تم حل شيء شبيه بهذا لك قبل ذلك فأين محاولتك والتي تدل على الاستفادة مما سبق تعلمه؟

يبدو أن حضرتك ما جربت الحلين في المشاركة السابقة

بارك الله لك وكل عام وانتم بخير وصحة وسعادة تم تغيير الامتداد لتقليل الحجم وإعادة رفع الملف

ربما يكون أحد غير إعدادات خطوط محرر الأكواد من قائمة tools اختر options ثم في تبويب editor format الخط الافتراضي courier new وحجم الخط 12 واختر اللون ولون الخلفية المفضل لديك بالتوفيق

يمكنك استخدام برنامج aopr بالبحث عن هذه الحروف في جوجل بالتوفيق

لعمل ذلك يمكنك: تحديد الخلايا B14:D14 من تبويب home نضغط على conditional formatting ثم new role ثم نختار الاختيار الثاني Format only cells that contain ثم Equal to ثم نكتب أو نختار B13 ثم نضغط على format لضبط لون الخلفية والنص المطلوب للخلية المميزة ثم OK مع مراعاة تطابق الأسماء في الخلايا مع الأسماء في القائمة بالتوفيق تلوين.xlsx

أي برنامج لتحرير ملفات pdf يمكنه فعلها لكن المشكلة في : هل ستظل متحركة أم لا؟

كل عام وأنتم بخير التنسيق الشرطي يتم إنشاؤه مرة واخدة فقط ويستمر عمله إلى أن يحذف ولتطبيق هذا الكود على أي شيت يمكنك تحديده ثم تنفيذ هذا الكود عليه مرة واحدة فقط سواء يدويا أو بكود في إجراء آخر مثل sub mrmas sheets("sheetname").select call CFext() sheets("sheetname2").select call CFext() sheets("sheetname3").select call CFext() end sub بالتوفيق

يمكنك استعمال هذه الدالة لتحويل النص العربي من رموز غريبة إلى utf8 وذلك بإضافة هذا الكود في موديول جديد في شاشة الفيجوال بيسك للتطبيقات vba بالضغط على alt+f11 ثم من قائمة insert نختار module ثم نلصق هذا الكود Function masAr2Utf(inputStr As String) As String Dim n As Integer, i As Integer, inBytes() As Byte, sUnicode As String n = Len(inputStr) ReDim inBytes(n + 1) For i = 1 To n inBytes(i) = AscB(Mid(inputStr, i, 1)) Next sUnicode = StrConv(inBytes, vbUnicode, &H401) iPos = InStr(sUnicode, Chr(0)) If iPos > 0 Then sUnicode = Mid(sUnicode, iPos + 1) masAr2Utf = sUnicode End Function وطريقة استدعائها في الشيت نكتب في الخلية المراد ظهور النص العربي بها =masAr2Utf(B2) بالتوفيق

أبسط حل أن تعكس التاريخ بكتابة العام ثم الشهر ثم اليوم وإذا كنت تأخذ التاريخ من خلية أخرى فيمكن استعمال هذه المعادلة ="كتابنا ذي الرقم (1254) في "&TEXT(C4,"yyyy/mm/dd") على اعتبار أن خلية التاريخ هي C4 بالتوفيق

أخي الكريم الحمد لله لي السبق في هذا المجال الترجمة بالكود في vba وغيرت الكود مرة في 2017 ومرة في 2019 ولم أهتم بعدها بهذه الطريقة وبالنسبة لملفكم بالنسبة للرابط المستععمل قي الكود فهو خاص بنسخة الموبايل https://translate.google.com/m?sl=auto&tl=ar&hl=en-US&q=Good+morning ولا يوجد به زر للنطق والكود يستعمل زر له كلاس .Document.QuerySelector(".VfPpkd-Bz112c-kBDsod-OWXEXe-IT5dJd").Click وهو غير موجود وبالنسبة لطلب صفحة الترجمة الكاملة فالنطق يكون غير مدعوم في متصفح انترنت اكسبلورر المستخدم في الكود Voice output isn't supported on this browser خلاصة الكلام: أن هذه الطريقة لنطق النص أصبحت غير متاحة وكنت قد أوضحت أنه يوجد طريقة أخرى أستعملها في موقعي الشخصي mr-mas.com ولكن لم أحولها إلى vba لانشغالي هذه الفترة ولاني مستاء جدا من نشر أكوادي باسم غيري فلا يوجد في مصر والعالم العربي ما يسمى بالأمانة العلمية ربما لاحقا أحول هذه الطريقة إلى vba بالتوفيق