نجوم المشاركات

بعد اذن اساتذتى الكرام الاستاذ سليم والاستاذ احمد واثراء للموضوع جرب هذا الملف لعله يفى بالغرض نسخة من New Microsoft Excel Worksheet (2).xlsx

السلام عليكم بواسطة كود من اكواد المنتدي الكود يعمل الى الصف 5000 يمكنك زيادته بالتعديل في الكود الكود للعلامة عبدالله باقشير حفظه الله واهلنا في اليمن Transfer Function (1).xlsm

رائع أستاذ وجيه بارك الله فيك وكل عام أنت بخير

جرب هذا الملف INDEX_MATCH.xlsx

جرب هذا New Microsoft Access قاعدة بيانات (1).accdb

تسلم أستاذنا الفاضل بارك الله فيك وكل عام أنت بخير ويوفقك الله لما يحبه ويرضاه

محاولة اخرى New_function.xlsx

اخى الكريم أحمد يوسف اعتذر منك لاننى جديد بالمنتدى ولأعلم القوانين كل عام وانتم بخير

جزاكم الله خير الجزاء اخى الحبيب استاذ احمد واعاده عليكم هذه الايام الكريمة بالخير واليمن والبركات

بارك الله فيكم جميعا اساتذتى الكرام كل عام وانتم بخير جميعا تم حل المشكلة والحمد لله جعله الله لكم في ميزان حسناتكم ولكم منى جزيل الشكر والتقدير

بارك الله فيك أستاذنا الفاضل سليم ولإثراء الموضوع حل آخر بدالة Vlookup New Microsoft Excel Worksheet (2).xlsx

عليك السلام ورحمة الله وبركاته كل عام أنت بخير محاولة منى على وجه السرعة تم تسمية النطاق Setting!$A$4:$I$1000 باسم AH وبذلك تكتب اسم النطاق فقط مرفق الملف ومن المفترض أن تقوم بشرح ما تريده وتكتب الناتج المتوقعة يدويًا حتى يتسنى للأعضاء الوصول للحل الأمثل Transfer Function.xlsx

تعمل بشكل جيد غيرنا كود البحث وهي محاولة لعلها تنجح 579.1.test1900.accdb

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

السلام عليكم ورحمة الله وبركاته مسقط التصفح : هو برنامج لقراءة صفحة الانترنت ، واستخراج اسماء الحقول ، لإرسال البيانات اليها من برنامج الاكسس ، او استيراد البيانات منها الى الاكسس وبما ان برمجة صفحات الانترنت تختلف من مبرمج الى آخر ، فبرنامجنا لن يشتغل على جميع الصفحات / المواقع ، وبالتجربة فقط نستطيع معرفة الصفحات التي يشتغل عليها البرنامج طريقة العمل: النموذج frm_browse يحتوي على (1) كائن Microsoft Web Browser (والذي لا يحتوي على جميع مكونات البرنامج الاصل Internet Explorer ، ولكنه يفي بالغرض) ، ندخل اسم الموقع في (2) حقل التحرير والسرد url_Address ، ثم نضغط على (3) الزر Go ، والذي سيفتح الموقع في النموذج ، وسيتم حفظ عنوان الصفحة ، واعطائة رقم مسلسل في الجدول tbl_url_address ، الزر (4) "احفظ csv" سيقرأ كائنات الموقع ، ويحفظها في ملف بصيغة csv (اللي ينفتح بالاكسل) ، ثم يفتح الملف ، وفيه 3 طرق لإرسال معلومات الى اي حقل تريد (يعني يعطيك الكود جاهز لكل حقل) ، والافضل استعمال الكود الذي في العمود "Usage2" ، حيث ليست جميع الحقول لها اسماء (للأسف في بعض المواقع) ، الزر (5) "احفظ في الجدول" ، حيث سيحفظ كائنات الموقع في جدول tbl_Send_Get في البرنامج ، والاصعب كان استخراج بيانات حقول التحرير والسرد من الصفحة ، والتي يتم حفظها في الجدول tbl_Options ، ولما يستخلص البرنامج جميع حقول الصفحة ، سيفتح النموذج frm_Send_Get ، الزر (6) "تجربة ارسال ، استيراد بيانات لهذا الموقع" يفتح نفس النموذج frm_Send_Get وبه كائنات الموقع واسماء الحقول (حسب اسمها في البرنامج وليس حسب ظهورها على الموقع ، فالموضوعين غير مرتبطين للأسف في برمجة الموقع) ، هنا نرى الحقول التي استطاع البرنامج التعامل معها ، (8) رقمها المتسلسل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (9) نوع الحقل والذي قد يختلف من صفحة الى اخرى ، (10) اسم الحقل في الصفحة (والتي سنتعامل معها برمجيا لاحقا) ، (يجب ادخال اي اسم في الحقول الفارغة) واذا كان الحقل عبارة عن مربع تحرير وسرد ، وللحصول على قيمه ، انقر على الاسم مرتين ، فينبثق النموذج frm_Options بالاختيارات (تابع الشرح لاحقا) ، هنا نستطيع تجربة اذا كان بإمكاننا ارسال/استرجاع بيانات الى/من الموقع ، فتختار اي حقل تريد التجربة عليه ، وتكتب المعلومة التي تريد ارسالها في الحقل (11) Send_Data وبالنقر المزدوج على المعلومة ، وسترى انه تم ادخالها في الحقل في صفحة الموقع الموقع ، ويمكن التأكد كذلك من امكانية قراءة معلومة الحقل بالنقر المزدوج على الحقل (14) Get_Data ، والمهم في هذه التجارب هو معرفة صيغة قبول الحقل للمعلومة ، بالنسبة لحقول التحرير والسرد وكما اشرت سابقا ، فالموضع يختلف قليلا ، لأنه مثل الاكسس ، فالمعلومة التي تراها في الصفحة في اختيار المعلومة من هذا الحقل ، ليس معناه انها نفس القيمة التي تُحفظ في الجدول ، لذلك يجب عليك النقر المزدوج على الحقل ref_Name ، فيعطيك قائمة الاختيار من النموذج frm_Options ، وبالنقر المزدوج على الحقل Opt_Value ستنتقل المعلومة الى الحقل في Send_Data النموذج frm_Send_Get ، والتي يمكن بالنقر المزدوج عليها ان ترسل المعلومة الى الحقل في الموقع (وهنا قد لا ترى التغير على الحقل في الموقع ، ولكن عندما تنقر عليه لتختار ، ستجد ان الاختيار قد تم حسب رغبتك) ، (12) يجب اختيار اي من الحقول التي تريد ان تستعملها من الموقع ، (13) وهنا تختار تسلسل الحقول التي تريد ارسال البيانات الى صفحة الموقع ، يعني تختار زر الارسال بعد اختيارك لبقية الحقول ، والحقول التي لا يهمك ترتيبها ، فدعها فارغة ، (12) و (13) هما اساس الخطوة التالية ، الى هنا وينتهي العمل مع صفحة الموقع ، والتي نختصرها: ادخل عنوان الصفحة (2) ، اضغط على (5) "احفظ في الجدول" ، جرب اذا الحقول تعمل ، ثم (12) تختار الحقول التي تريد التعامل معها ، و (13) ترتيبها ، الزر (7) "عمل نموذج ارسال ، استراد بيانات لهذا الموقع" ، وسيفتح النموذج frm_Make_Form للصفحة التي انت عليها الآن ، من هنا سيقوم البرنامج بعمل: عمل قاعدة بيانات جديدة (برنامج اكسس) خارجية متكاملة بالاسم والمسار الذي اخترته في (15) ، بالجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، واذا هذا البرنامج تم عمله سابقا (يعني عندك برنامجك الخاص واسمه ومساره في (15)) ، فسيقوم البرنامج بإضافة الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، نختار اين نريد ان نعمل الجداول والنماذج وازرار النماذج والاحداث التي على هذه الازرار ، لصفحة الموقع التي اخترتها ، للإرسال والاستيراد ، الزر (16) يقوم بكل هذا العمل ، قاعدة البيانات / البرنامج الخارجي: افتح النموذج frm_web_Sites ، فيعطيك اسماء الصفحات التي قمت بعملها في (16) ، وهذا نموذج التعامل مع صفحة الموقع ، وجميع الحقول التي اخترتها في (12) موجودة هنا ، وطريقة استخدامه: قم بتعبئة البيانات التي تريد ارسالها للموقع ، واذا كان عندك زر ارسال فيجب عمل صح عليه لإستعماله ، قم بفتح المتصفح بالضغط على الزر "Open Browser" ، والذي سيفتح المتصفح Internet Explorer خارجي ، ولا علاقة لك به ، فالكود سيتعامل معه اضغط على الزر "Send Data" ، وستكون البيانات قد تم تصديرها من نموذجك ودخلت في صفحة الموقع ، او اضغط على الزر "Get Data" ، وستكون البيانات قد تم استيرادها من صفحة الموقع الى نموذجك ، وهذا جزء من الكود الموجود في النموذج ، وسترى ان تسلسل ترتيب ارسال البيانات هو حسب الاختيار في (13) ، وغالبا (99% من الوقت) لن تحتاج الى عمل تغيير في الكود: . الزر (16) فيه تُحف فنية ، فلا تتردد من الدخول في الكود والغوص فيه والخروج بلآلئ فريدة جعفر Muscat_Browsing.zip

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

كل عام أنت بالف خير العنوان مش مشكلة اهم شي يكون واضح ويدل على مضمون الطلب ::بالتوفيق::

السلام عليكم ورحمة الله و بركاته فى هذا النموذج وهو يعمل كبحث فى صفحة انترنت اذا كانت الخلية باللغة الانجليزية عند الضغط على الزرار تفتح صفح انترنت بنفس اللغة و لكن اذا كانت الكلمة باللغة العربية عند الضغط على الزرار تفتح صفحة الانترنت بلغة أخرى غريبة فما حلها علماً اننى اعمل على نسخة 2016 وجزاكم الله خيراً 579.1.test1900.rar

عيدكم مبارك استاذي الفاضل محمد وكل عام وانتم بخير

عليك السلام ورحمة الله وبركاته بارك الله فيك أستاذ عبدالله تحويل المعادلة إلى كود يسرع من الملف

السلام عليكم ورحمة الله وبركاتة هذا مثال يتم من خلاله ربط الجداول برمجيا بدون تدخل من المستخدم عند فتح قاعدة الواجهات kaser906 يتم ربط الجداول بقاعدة جداول kaser906_be والقاعدة الثانية kasr9062 وكلتا القاعدتين مغفلتين برقم سري 1234 ضع المجلد في أي مكان او غير أسم المجلد وفتح قاعدة بيانات الواجهات kaser906 ستجد أن ربط الجداول تم بدون تدخل منك ::بالتوفيق للجميع :: TablLinkind.rar

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

السلام عليكم أجسب أن المشكلة هي في نوع الخط في محرر الأكواد

جزاك الله خير وجعل ذلك في ميزان حسناتك

الى كل من حاول مساعدتي واخص بالذكر منهم الاخوه ( ابا جودي) و ( kanory ) و ( jjaferr ) السلام عليكم ورحمة الله وبركاته قال سبحانه وتعالى : ( هَلْ جَزَاء الْإِحْسَانِ إِلَّا الْإِحْسَانُ ) كما أمرنا نبينا الكريم صلى الله عليه وسلم بمكاة من صنع لنا معروف فقال : ( مَن صَنَعَ إِليكُم مَعرُوفًا فَكَافِئُوه ، فَإِن لَم تَجِدُوا مَا تُكَافِئُوا بِهِ فَادعُوا لَهُ حَتَّى تَرَوا أَنَّكُم قَد كَافَأتُمُوهُ )وانتم يا اخوتي بذلتم الكثير من اجل مساعدتي واني والله لا املك الا الدعاء لكم ولوالديكم ولمن تحبون فاقول جزاكم الله عنا خير الجزاء وادعو من الله ان يسعدكم في الدارين . اللهم أعطهم مايتمنون وما تحب لهم وترضى، اللهم أسألك لهم بأن تجعلهم عن الهم بعيدين والى رحمتك قريبين وحقق لهم كل مايريدون وأجعلم في ايامهم سعيدين .اللهم امين . اللهم امين . صدقوني يا اخوتي كلما استعملت البرنامج ادعو لكم في ظهر الغيب بكل مايحب الانسان الدعاء لنفسه . تحياتي لكم.

كل عام أنت إلى الله أقرب وعلى طاعته أدوم والعام القادم تكونوا بعرفات واقفين وحول الكعبة طائفين ومن زمزم شاربين https://drive.google.com/file/d/14bP-cHywpPSuLS9eSEZhSXx4OHhYRID8/view?usp=sharing

كل عام و أنتم بخير جميعا 😄

بارك الله فيك أستاذ أحمد وكل عام والأمة الإسلامية بخير وعيد أضحى سعيد أعاده الله علينا جميعا بالخير واليمن والبركات

كل عام و جميع اعضاء المنتدى والفريق الاداري والفني بالف خير

بارك الله فيك استاذ خيرى وكل عام وانتم بخير وعيد أضحى سعيد ادام الله علينا جميعا هذه الأيام بالخير واليمن والبركات

تقبل الله منكم صالح الاعمال وكل عام وانتم بخير

عليك برفع الملف حتى تستطيع الأساتذة معاينة المشكلة عن قرب بارك الله فيك وكل عام وانتم بخير

عليك السلام ورحمة الله وبركاته تم التعديل لعله يفي بالغرض تفضل الملف نموذج1.xlsm

وعليكم السلام 🙂 في تصميم النموذج ، اهب الى الادوات ، واختار : . . وامشي مع التعليمات والخطوات اللي يعطيها البرنامج 🙂 جعفر

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير وملهمى و والدى الحبيب الاستاذ @jjafferr كان قد أشار على من فترة وجيزة بعدم استخدام الاحرف العربية مطلقا داخل محرر الأكود وسألته عن الرسائل كان قد أشار الى انه يمكن كتباتها داخل جدول مخصص وجلبها وقت الحاجة هذا المرفق ناتج عن تطبيق إرشادات معلمى الجليل وبعد ان توصلت لهذه النتيجة وبعد أن ملئنى السرور بعد تعب وتلاحق الأفكار لالية العمل بل وتغيير مجرى تفكيرى اصلا عند بدء التصميم اصابنى الاحباط فجأه بسبب حرف كنت قد كتبته بالخطأ فلم يجلب الرساله وعوضا عنها كانت رسالة فارغة وتلاحقت الأفكار تباعا بسبب هذه الغلطة الغير مقصودة - ماذا لو تم فقد الجدول الخاص بالرسائل لاى سبب ايا كان - ماذا لو تم حذف اسطر الرسالة من الجدول -ماذا لو تم تغير المعيار الذى استخدمه لجلب الرسالة -ماذا لو تم حذف السجل كاملا و الخاص بتلك الرسالة ... وماذا لو ولو ولو بلا بلا بلا بلا ولذلك فكرت بسد هذه الثغرات القاتلة بتلافى ذلك كله بوضع نفس محتوى الرساله بالانجليزية داخل محرر الأكواد ليتم عرضها فى حالة وجود اى خطأ ما عوضأ عن الرسالة العربية او اى مشكلة قد تطرأ بصراحة واجهت صعوبة بالغة فى التفكير وترتيب أفكارى بترتيب الكود لاصل الى مرادى وبعد تعب وعناء مريرين بفضل الله تعالى تم تقريبا سد كل الثغرات والتى خطرت على بالى بهذا الكود ولكن متعب لانه عند كل رساله لابد من كتابة هذه الاسطر السؤال : هل ممكن اختزالها بشكل ما او عمل كود فى موديول ليسهل الامر لمشاهدة النتيجة - غير اسم الجدول على اعتبار انه تم حذفه وجرب - غير المعيار aa من داخل الجدول - امسح كل اسطر الرساله من الحقول MsgLin1 و MsgLin2 و MsgLin3 و MsgLin4 و MsgLin5 محاور العمل تلافى مسح الجدول او تغيير اسمه المعيار المستخدم لجلب الرسالة التأكد من وجوده اولا داخل الجدول ان لا تكون اسطر الرسالة خالية ( على الأقل سطر واحد لتظهر الرسالة من واقع الجدول ) On Error GoTo ErrHandler If Len(DLookup("[MyCriteria]", "tbllvlUsefulData", "MyCriteria ='aa'") & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else strMyCriteria = "MyCriteria ='aa'" If Len(txtOfMesg & "") = 0 Then MyMesg ("This alternative message is in English" & vbCrLf & "Due to a bugs in the message table"), vbOKOnly, "The idea of a professor /" & strUserLogin Else If Len(strMsgTitle & "") <> 0 Then MyMesg (txtOfMesg), vbOKOnly, strMsgTitle & strUserLogin Else MyMesg (txtOfMesg), vbOKOnly, "NEW Title" & strUserLogin End If End If End If ErrHandler: If Err = 3078 Then Resume Next الرسائل من داخل جدول.mdb

لو انا فهمت يبقى اتفضل لو مش تمام يبقى انا جعان وانتظر الاذان وفقدت تركيزى test.accdb

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

نعم دالة مثل دالة الاكسل تعطيك عدد الاحرف Step -1 علشان نعكس السلسلة من الاكبر الى الاصغر ودائما الافتراضي step 1 هذه دالة بحث في النص مثيل دالة FIND و SEARCH هذا على السريع ودمتم

السلام عليكم ورحمة الله تفضل المرفق واخبرنى بالنتيجة ولا تنسى تخفيض الماكرو او ستجد فى المرفق برامج لتخفيض الماكرو حسب اصدار كل اوفيس واذا اردت عمل شاشة دخول اخبرنى وساقوم باللازم elfar5.rar

كتاب جميل لشرج فيجوال بيسيك التطبيقات VB http://www.mediafire.com/download/9fp391zqdsdlq1m/vba1.rar

السلام عليكم عندما نقوم بإنجاز برنامجا ما في الغالب نضع نافذة : حول البرنامج هذا فورم جاهز لعمل ذلك فقط قم بتغيير ما هو مكتوب في الكود بما يناسبك تحياتي حول البرنامج.rar

السلام عليكم تعديلات جديدة على كود ترتيب العشرة الاوائل(بعدة اختيارات) الميزه الاولى يعمل تلقائيا من الاختيارات من القوائم نقل الكود الى ملفك: اضغط بيمين الماوس على تبويب الورقة اختار نقل ونسخ اختار المصنف الذي تريد نقل النسخة اليه وحفز انشاء نسخة سينتقل الكود بمعية الورقة لان موقع الكود في نفس الورقة راس وتذييل فارغ مكون من 8 صفوف اكتب ماتريده بدون تقييد المعطيات الضرورية والتي تناسب عملك مكانها بداية الكود وهو في موديل الورقة نفسها '============================================================ '============================================================ ' نطاق البيانات اما ان يكون اسم لنطاق ' او عنوان النطاق مع اسم الورقة Private Const My_Date As String = "الشيت!$A$11:$EA$1000" 'ارقام الاعمدة توضع بالنسبة لنطاق البيانات المسمى وليس للورقة ' عمود رقم الجلوس Private Const cSeat_Number As Integer = 2 ' عمود الاسم Private Const cStudents As Integer = 3 ' عمود الفصل Private Const cClass As Integer = 13 '============================================================ ' قيمة اصغر مجموع(الدرجة) يتم اظهاره Private Const MinDegree As Double = 50 '============================================================ '============================================================ الميزة الاكثر جمالا هي فرز تلقائي بالكود بدون استخدام الفرز الخاص ببيانات الاكسل سريع جدا في اظهار النتائج جمعه مباركة لكم ولنا ودمتم في حفظ الله ترتيب العشرة الاوائل5.rar

تفضل أخي واي تعديل أنا في الخدمة .............. :fff: :fff: مع تمنياتي لك بالتوفيق............................... :fff: :fff: مراية سرى 3.zip

الأخ/ abriboss السلام عليكم ورحمة الله وبركاته إن كان سؤالك عن الملف المرفق تحديدا فصاحبه وضع له حماية لعدم الوصول إلي الكود - ونحن نحترم ذلك وإذا أردت شرح المعادلات وآلية تحويل التاريخ بشكل عام فيمكنك الإطلاع علي الرابط التالي : http://www.officena.net/ib/index.php?showtopic=45689&hl= تقبل تحياتي

أخي الحبيب رجب جزاك الله خيرا و بارك الله فيكم على المرور

أخى أبو حنين عمل عبقرى من شخص مبدع بارك الله فيك

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

استاذى القدير خبور مبدع فى كل اعمالك جزاك الله خيراً لى رجاء هل ممكن تجميع كل تعدلات الجدول فى عمل واحد للاستفادة منه للجميع و لك كل الشكر و جعلها الله فى ميزان حسناتك

اخى الكريم خبور الحمد الله علي ان اكون اول من يشاهد الموضوع جزاك الله كل خير مهما قلنا من كلمات شكر فلن نعطيك جزء ولو بسيط من حقق ومجهوداتك العظيمه فجزاك الله عنا وعن جميع المسلمين كل خير وجعله الله اعمالك في موازين حسناتك