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

أخوتى أعضاء المنتدى السلام عليكم ورحمة الله وجدت فى إحدى المنتديات الأجنبية موضوع مش عارف إذا كان جديد وللا لأ، بس لفت نظرى وهو فلترة الجدول بواسطة الخلية النشطة، ومرفق الملف وبه الكود، يارب الموضوع يعجبكم (يمكنكم تشغيل الماكرو من خلال القائمة) كود لفلترة الخلية النشطة.rar

السلام عليكم مثال قديم للأستاذ أبو هاجر لاستخدام الماسح ( السكانر ) عن طريق الأكسس قمت على تحديثه وزيادة السيطرة واستبعاد تخزين مسار الصور حيث لا داعي لها . مرفق ملف مكتبة dll يجب نسخه في مجلد Windows\System . لا تنسونا من دعاكم . تحياتي . الملفات المرفقة Scanner.rar ( 471.28ك ) عدد مرات التنزيل: 38

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

السلام عليكم ورحمة الله تعالى وبركاته ندخل فى الموضوع بالنسبة لربط قاعدة البينات اكسس باالاستضافات والتحكم فى البرنامج الخاص بك من اى مكان فى العالم شرط الاتصال بالانترنت اولا قمت بحجز استضافة مجانيه من هذا الموقع https://somee.com/ وقمت بانشاء جدول SQL للتجربة فقط بهذا البرنامج https://msdn.microsoft.com/en-us/sqlserver2014express.aspx?f=255&MSPPError=-2147217396 ونظرا لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61485&hl= بخصوص الربط وجعل قاعدة اكسس مجرد واجهة قمت باعداد هذا المرفق والذى يعتمد على الاكواد المذكورة فى المشاركة السابقة اما ان تنشء اتصال DNS وتستورد منه الجداول من خلال اكسس او تربط الجداول مباشرة بقاعدة اكسس وتضيف وتعدل فيها وقت ما تشاء ومن اى مكان تحب وعند اختيار ربط الجداول ستجد تلقائيا جدول فى قاعدة البيانات باسم mared تستطيع التعدل والاضافة فيه فى امكان اترككم مع المرفق انشاء اتصال DNS.rar

أسعد الله أوقاتكم بكل خير فيما يلي الدرس التاسع و العشرون من الدورة المميزة مهارات اكسيل 2013 أتمنى لكم مشاهدة ممتعة ومفيدة وكيفية استخدامها بالأمثلة العملية انتظرونا غداً في الجزء الثاني من دالة VLOOKUP ( استخدام دالة VLOOKUP مع التطابق التقريبي) لمشاهدة باقي دروس دورة الاكسيل 2013 المنشورة يرجى فتح ا لرابط التالي: دمتم بخير

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

السلام عليكم ورحمة الله وبركاته **************** إخواني الكرام في المنتدى الغالي أقدم لكم دالة في منتهى الجمال والروعة صادفتني أثناء تصفح الانترنت ، تقوم الدالة باستخراج القيم الغير مكررة في عمود وعدد مرات تكرار هذه القيم في العمود المجاور الدالة المعرفة بهذا الشكل Function CountUniq(Rng As Range, Ref As Long, Key As Integer) Dim E With CreateObject("Scripting.Dictionary") For Each E In Rng.Value If E <> "" Then .Item(E) = .Item(E) + 1 Next CountUniq = IIf(Key = 1, .keys()(Ref - 1), .items()(Ref - 1)) End With End Function وإليكم ملف مرفق لتطبيق الدالة ولمعرفة كيفية الاستفادة منها أرجو أن تنال إعجابكم أخوكم أبو البراء Count Unique UDF Function.rar

اخى الساهر المشكلة ان الاكسيل قارى القيمتين بطريقة مختلفة حولت اضيف معادلة text فى الخلية d4 علشان انسق الخلية بنفس تنسيق عمود التوقيت فلقيت مشكلة الساعة 12 صباحا الفى العمود بيقراها 00:00 فطبعا مش هتكون <= 23.36 لس هاحاول تانى

yes yes yes

وعليكم السلام هو الحل كما تفضل به الاخ مارد ولكن ، اذا كان نظام الوندوز عندك انجليزي وارت ان تكتب اسم اليوم او الشهر بالعربي ، فهذا يحتاج الى عمل اضافي انا عندي جدول اسمه tbl_Months وبه اسماء الاشهر الهجرية ، والاشهر الانجليزية بالانجليزي والعربي ، والاشهر العراقية (الشامية) ، واضفت اليه الايام كذلك: وعليه ، عملت كود يقرأ اذا نظام الوندوز ، وعلى اساسه تستطيع ان تطلب اليوم ، كما في هذا النموذج (ادخل / اختر التاريخ ، ثم اضغط على مفتاح TAB على keyboard) ، وعلى اساسه سترى بقية الاسماء باللغة الاخرى: وهذا هو الكود الذي يقوم بكل شئ: Private Sub myDate_AfterUpdate() 'display the dates based on the system setting Me.Date_1 = Format(Me.myDate, "dddd dd/mm/yyyy") Me.Date_2 = Format(Me.myDate, "dddd dd, mmm yyyy") Me.Day_System = Format(Me.myDate, "dddd") Me.Month_System = Format(Me.myDate, "mmmm") 'read the 1st letter of the day, and check if it is Arabic or latin If Left(Asc(Format(Me.myDate, "dddd")), 1) > 127 Then 'the system is Arabic 'get the English info from the table Me.Day_table = DLookup("[Days_English]", "tbl_Months", "[Days_Arabic]='" & Format(Me.myDate, "dddd") & "'") Me.Date_3 = Me.Day_table & Format(Me.myDate, " dd/mm/yyyy") Me.Month_Table = DLookup("[Months_English]", "tbl_Months", "[Months_Georgian]='" & Format(Me.myDate, "mmm") & "'") Me.Date_4 = Me.Day_table & Format(Me.myDate, " dd, ") & Me.Month_Table & Format(Me.myDate, " yyyy") Else 'the system is English 'get the Arabic info from the table Me.Day_table = DLookup("[Days_Arabic]", "tbl_Months", "[Days_English]='" & Format(Me.myDate, "dddd") & "'") Me.Date_3 = Me.Day_table & Format(Me.myDate, " dd/mm/yyyy") Me.Month_Table = DLookup("[Months_Georgian]", "tbl_Months", "[Months_English]='" & Format(Me.myDate, "mmmm") & "'") Me.Date_4 = Me.Day_table & Format(Me.myDate, " dd, ") & Me.Month_Table & Format(Me.myDate, " yyyy") End If End Sub جعفر tbl_Months.zip

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

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

السلام عليكم أحبتي في الله عذرا أخي ياسر كنت أظن أن تحويل الدالة لكود أمر سهل وخاصة بعد ما عرضت الفكرة وعلى العموم هذا الملف بعد تحويل الدالة لكود حتى تعم الفائدة Mas_Translator2.rar

ان شاء الله المرفق يكون هو المطلوب اكبر قيمه من خليتين1.rar

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

بارك الله بهمتك أخ ياسر خليل أبو البراء...

الف الف الف مبروووووووووووك بصراحه الاستاذ مارد والاستاذ عبد الله قدروه يستاهلوا كل الخير

صح اؤيدك وبشدة

طيب ما تجهز الجداول وشكل النماذج الي انت عملتها وأرفقها في مشاركتك ؟

مُبارك للأخ مارد الترقية و مُبارك للأخ عبدالله الترقية تستحقانها عن جداره , فمشاركاتكما أكثر من رائعة ومنها نتعلم جزاكما الله خيراً عليها , نفع الله بكما وبعلمكما :smile:

مبروووووووووووووووووك

كيف أفتح البرنامج

الأخ الغالي حسام جزيت خير الجزاء ..بارك الله فيك الأخ الكريم أكرم يرجى تحديد أفضل إجابة ليظهر الموضوع مجاب ومنتهي

أخي صلاح طيب جرب تستخدم الكود الثاني في موديول بدلاً من الأول ..يعني كتجربة ()sub auto_close kh_wVisible False (ThisWorkbook.Close Not CBool(ThisWorkbook.Saved End Sub يمكن تكون المشكلة إن الكود في حدث إغلاق المصنف ..وإن كنت أستبعد الأمر لكن لن يكلفك الأمر وقتاً طويلاً ..جرب هذه التجربة

مشكور على مرروك العطر أبو يوسف وكلنا هنا تلامذة نتعلم من بعضنا البعض وإن شاء الله آمل أن تكون نبراساً ومنارةً لطلاب العلم

جرب هذا الشي =IF(MOD(ROW(A1)-1,10)+3>10,ROWS($A$1:A2)-9,MOD(ROW(A1)-1,10)+3) او هذا =IF(MOD(ROW(B1)-1,5)+3>5,ROWS($A$1:B2)-4,MOD(ROW(B1)-1,10)+3)

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

عسى ان ينال اعجابك اخفاء صفوف.rar

أخي الكريم محمد حسن المحمد بعد فك الضغط ادخل على مجلد accurate و افتح accurate.accdb وليس new إذا لم يعمل عندك تأكد من تخفيض أمان ماكرو وإلى كل من يحب أن يفتح قاعدة البيانات للاطلاع على الجدول وكيفية التصميم كلمة سر قاعدة البيانات هي 123. هي الارقام واحد اثنان ثلاثة وبعدها النقطة فاصلة الارقام موجودة تحت الرقم 3 على لوحة المفاتيح

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

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

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

الله يبارك فيك وبجهودك ويزيدك من علمه وفضله..

تجمع النجوم ..!! تطلع فوق على سطح البيت وتجيب معاك صاعق وتلسكوب وكيس ... وتبص من خلال التلسكوب وتركز على أي نجمة تعجبك ولما تلاقيها تقوم تمسك الصاعق وتلوش بيه هتلاقي النجمة وقعت في الكيس وهكذا .. والله ما فهمت حاجة لا من الملف ولا من الشرح ...ارفق بعض النتائج المتوقعة واشرح بالتفصيل المطلوب بدقة جرب المعادلة دي في الخلية K2 =G2&" "&H2&" "&I2&" "&J2 تقبل تحياتي

السلام عليكم رائع أخي العزيز / الزباري فككت طلسما كان يسبب مشاكل للعديد من الأعضاء جزاك الله خيرا

الدرس الثالث: استخدام جهاز قارئ الباركود في الإكسيل كثير من الناس يعتقد أن استخدام جهاز قراءة الباركود يحتاج نظام وأجهزة خاصة للتعامل معه، ولكن الأمر أبسط مما كنت أتوقعه، في ا لدرس الأول حللنا عقدة تكوين شريط الباركود ، لم يبق لدينا إلا أن نربطه في قاعدة البيانات في الإكسيل. كل ما عليك هو التالي: 1- طباعة ملصقات الباركود على ورقة A4. 2- بناء قاعدة البيانات في الإكسيل. 3- بناء صفحة الإدخال في الإكسيل. بالنسبة لآلية عمل جهاز القارئ يكون لو بعملتين هما: كتابة الكود ثم enter. فلذلك ينتقل مؤشر الماوس إلى السطر التالي. ولكي نجعل المؤشر يبقى في مكانه نقوم بحماية الصفحة (انظر الشرح في الملف المرفق) لا أعتقد أنكم تحتاجود درس آخر .. لأننا وصلنا إلى الفكرة ومبرووووك عليكم التعامل مع الباركود. barcode reading.rar

أحبابي وأصحابي في كل مكان يسعدني أن أهدي لهواة ومحترفي برمجة vba في الأوفيس دالة جديدة لترجمة النصوص من أي لغة إلى أي لغة في إكسل 2013 باستعمال ترجمة جوجل بطريقتين وهذا رابط ملف الإكسل الموجود في الفيديو http://adf.ly/1GFYwU قائمة برموز اللغات * * 'AFRIKAANS' : 'af', * 'ALBANIAN' : 'sq', * 'AMHARIC' : 'am', * 'ARABIC' : 'ar', * 'ARMENIAN' : 'hy', * 'AZERBAIJANI' : 'az', * 'BASQUE' : 'eu', * 'BELARUSIAN' : 'be', * 'BENGALI' : 'bn', * 'BIHARI' : 'bh', * 'BULGARIAN' : 'bg', * 'BURMESE' : 'my', * 'CATALAN' : 'ca', * 'CHEROKEE' : 'chr', * 'CHINESE' : 'zh', * 'CHINESE_SIMPLIFIED' : 'zh-CN', * 'CHINESE_TRADITIONAL' : 'zh-TW', * 'CROATIAN' : 'hr', * 'CZECH' : 'cs', * 'DANISH' : 'da', * 'DHIVEHI' : 'dv', * 'DUTCH': 'nl', * 'ENGLISH' : 'en', * 'ESPERANTO' : 'eo', * 'ESTONIAN' : 'et', * 'FILIPINO' : 'tl', * 'FINNISH' : 'fi', * 'FRENCH' : 'fr', * 'GALICIAN' : 'gl', * 'GEORGIAN' : 'ka', * 'GERMAN' : 'de', * 'GREEK' : 'el', * 'GUARANI' : 'gn', * 'GUJARATI' : 'gu', * 'HEBREW' : 'iw', * 'HINDI' : 'hi', * 'HUNGARIAN' : 'hu', * 'ICELANDIC' : 'is', * 'INDONESIAN' : 'id', * 'INUKTITUT' : 'iu', * 'ITALIAN' : 'it', * 'JAPANESE' : 'ja', * 'KANNADA' : 'kn', * 'KAZAKH' : 'kk', * 'KHMER' : 'km', * 'KOREAN' : 'ko', * 'KURDISH': 'ku', * 'KYRGYZ': 'ky', * 'LAOTHIAN': 'lo', * 'LATVIAN' : 'lv', * 'LITHUANIAN' : 'lt', * 'MACEDONIAN' : 'mk', * 'MALAY' : 'ms', * 'MALAYALAM' : 'ml', * 'MALTESE' : 'mt', * 'MARATHI' : 'mr', * 'MONGOLIAN' : 'mn', * 'NEPALI' : 'ne', * 'NORWEGIAN' : 'no', * 'ORIYA' : 'or', * 'PASHTO' : 'ps', * 'PERSIAN' : 'fa', * 'POLISH' : 'pl', * 'PORTUGUESE' : 'pt-PT', * 'PUNJABI' : 'pa', * 'ROMANIAN' : 'ro', * 'RUSSIAN' : 'ru', * 'SANSKRIT' : 'sa', * 'SERBIAN' : 'sr', * 'SINDHI' : 'sd', * 'SINHALESE' : 'si', * 'SLOVAK' : 'sk', * 'SLOVENIAN' : 'sl', * 'SPANISH' : 'es', * 'SWAHILI' : 'sw', * 'SWEDISH' : 'sv', * 'TAJIK' : 'tg', * 'TAMIL' : 'ta', * 'TAGALOG' : 'tl', * 'TELUGU' : 'te', * 'THAI' : 'th', * 'TIBETAN' : 'bo', * 'TURKISH' : 'tr', * 'UKRAINIAN' : 'uk', * 'URDU' : 'ur', * 'UZBEK' : 'uz', * 'UIGHUR' : 'ug', * 'VIETNAMESE' : 'vi', مع تحياتي أ / محمد صالح فيس بوك http://adf.ly/1EbLvW جوجل بلس http://adf.ly/1DjBfI شير x الخير فزكاة العلم نشره

الدرس الأول: مولد الباركود أول خطوة لمعرفة كيفية قراءة الباركود هو طريقة توليدها ومن ثم ربطها بالبرنامج. تختلف صياغة الباركود نظراً للكود الذي يتبعه والتي تحدد معايير رسم وقراءة رموز الباركود، مثل كود 93 و كود 39 وكود 128، ولهذا السبب يشتكي البعض من عدم تمكنه من قراءة رموز الباركود، ولهذا في هذا الدرس سنعتمد على كود 128 وكود QR لأنهما الأكثر شيوعاً وتقبل معظم الأجهزة.. هناك برامج ومواقع كثيرة تقوم بتوليد الباركود، ونحن في هذا الدرس قمنا بتوليد الباركود عن طريق موقع خارجي من خلال المرفق التالي. barcode generator.rar

السلام عليكم ورحمة الله وبركاته اريد المساعده في ربط الماسح الضوئي مع الاكسس ....بجيث يستطيع حفظ الصورة في مجلد منفصل عن البيانات في الاكسس .ويكون لاكثر من صورة ... كع الشكر الجزيل للجميع

ممكن توضيح اكتر او ممكن مرفق بخصوص ربط الاسكنر مع الاكسيس

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

اليك الحل بس ملحوظه لازم تظل اخلايا الفاضيه دى لانها مسمعه اى تغيير بالصفحه الثانيه غيرتلك مكانها وممكن كمان تخفيها لو عاوز كارته مخزن.rar