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

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

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

في الاساس برنامج نقطة بيع الذي عملته لمبيعات التجزئة لمتاجر وانشطة صغيرة ندخل في الموضوع اغلب الاصناف يتم توريدها بالكرتون ويتم ترميزها برمز الكرتون لمبيعات كرتون وترمز بالعلبة للبيع المفرد وهو الاكثر مبيعا الترميز فقط للاصناف الجديدة التي لم يسبق ترميزها الاصناف بالكرتون عند بيعها بالكرتون لا توجد هنا اي مشكلة اما اذا اردنا ان نفتح كرتون لبيع مفرد او تلف لبعض العبوات في الكرتون او تلف التغليف الخارجي للكرتون فلدينا شاشة تفريد الاصناف يتم فيها اختيار الصنف ( الكرتون ) والصنف المفرد ثم النقر على امر تفريد فيتم زيادة كمية الصنف علبه او وحدة بعدد العلب الموجودة في الكرتون اي ان اضافة الاصناف المفردة تكون لدينا من خلال فاتورة المشتريات مباشرة او من خلال شاشة تفريد صنف اما الصنف كرتون فيكون فقط من شاشة فاتورة مشتريات اي صنف يتم تفريدة يتم نقل تكاليفة الى صنف مفرد وتنقص كميتة من رمز كرتون مثلا لدينا 10 كراتين ماء صفا 200 مل تم تفريد كرتون واحد يكون المتبقي 9 كراتين وفي خانة ملاحظات كرتون 1 تم التفريد وتزيد كمية علبة ماء صفا بمقدار 48 علبة على العموم البرنامج في مرحلة التجربة في بيئة عمل فعلية وهناك العديد من الملاحظات التي لم يتسع وقتي لمعالجتها بسبب الاوضاع الحالية والمزاج الغير مواتي وتقبل اطيب تحياتي

جرب هذا الماكرو Option Explicit Sub salim_code() Dim s As Worksheet Dim La%, I%, Ro1, Ro2 Dim F_rg As Range, Source_rg As Range Dim My_number Set s = Sheets("Sheet1") La = s.Cells(Rows.Count, 2).End(3).Row Set Source_rg = s.Range("B4:B" & La) Source_rg.Font.ColorIndex = vbBlack My_number = Abs(s.Range("F3")) For I = 5 To La If IsNumeric(Cells(I, 2)) Then _ s.Cells(I, 2) = Abs(s.Cells(I, 2)) Next For I = 4 To La If s.Cells(I, 2) = My_number Then s.Cells(I, 2) = -s.Cells(I, 2) s.Cells(I, 2).Font.ColorIndex = 3 End If Next I End Sub الملف مرفق Saerch_Please.xlsm

أهلا بك @ابو البشر بالنسبة للرقم (1): المنهج GetRows يعيد عدد من صفوف بيانات الجدول المشار إليه في المتغير الغرضي XLRS. والرقم بين القوسين يبين عدد الصفوف المطلوب إعادتها.. المنهج GetRows يعيد مصفوفة بيانات من حدين؛ الحد الأول يمثل رقم عمود البيانات (الحقل) في الجدول والثاني يمثل رقم الصف البيانات (السجل).. هذه الحدود يبدأ ترقيمها بالرقم 0 يجب اسناد المنهج GetRows إلى متغير مصفوفة بيانات عامة غير معينة الحدود.. وهو هنا RCROW؛ وهو المشار إليه بالرقم (2). وكمثال (0,0)RCROW يعيد قيمة العمود الأول من الصف الأول في جدول البيانات. بالنسبة للرقم (3) :عند تجهال أسماء أعمدة البيانات المستوردة من أكسل يقوم أكسس بوضع أسماء مزيفة تبدأ بـ (F1)؛ و (F) اختصار كلمة Field و(1) رقم عمود البيانات في أكسس.. إذا كانت ورقة البيانات في أكسل تحتوي على أسماء للأعمدة فيمكن تغيير ذلك من خصائص استيراد البيانات؛ إما على مستوى مصنف البيانات أو على مستوى ورقة بيانات محددة... بالنسبة للرقم (4): يمكن الاستغناء عن المحدد، أو توسيع نطاقه.. لكن لا يمكن استخدام نطاقات متعددة في المجال الواحد.. أرجو أن يكون هذا التفسير واضحاً ومفهوماً ..

الحل الاتصال بمبرمج القاعدة للحصول على كلمة المرور

تسلم عينيك اخي احمد نحن مديونون لك هههههه خلك شاهد لو مادفع اخي ازهر 😃

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

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

هذة الصور من نسخة البيتا وليست النهائية ونعم في النسخة النهائية توجد عبارة دفع جزئي ولكن للاسف هذا المشروع معطل لوجود خلاف مع المستفيد من البرنامج ولم يتم حل الخلاف 😭

من الامور التي اراها مهمة في اي برنامج اقساط ان يكون لدينا حقل للمبلغ المدفوع مثل لو لم يتم العميل من دفع كامل قيمة القسط وبالتالي يستطيع دفع اي مبلغ ويظهر لدينا المبلغ المتبقي من قيمة القسط شاهد القسط رقم 4

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

الكود الذي اعطيتك ، والذي اعطاك ابو تراب ، يفتح البرنامج الآخر ولا ينتظر ان يُنهي البرنامج عمله ، وينتقل الطود للسطر التالي ، ولكن وفي بعض الاوقات ، تريد ان تفتح برنامج (او بمعنى اصح ، تريد ان تفتح برنامج ، وتكون قد ارسلت اليه المتغيرات المطلوبة مثل عمل QR Code مثلا) ، وتريد VBE ينتظر انتهاء البرنامج من عمله ، لهذا السبب نستعمل كود مثل Shell_n_Wait : https://github.com/xxdoc/vb6-Shell-Wait/blob/master/Shell %26 Wait v2/modShellWait.bas بنفس طريقة استعمال Shell او ExecuteFile اللي عرضه اخي ابو تراب ، شوف سطر عمله : جعفر

هلا اخي وهذه طريقة اخرى...استدعي الدالة ExecuteFile مصدر الكود من الموقع MS Access VBA – Open a File Option Compare Database Option Explicit 'Source: http://www.pacificdb.com.au/MVP/Code/ExeFile.htm Public Const SW_HIDE = 0 Public Const SW_MINIMIZE = 6 Public Const SW_RESTORE = 9 Public Const SW_SHOW = 5 Public Const SW_SHOWMAXIMIZED = 3 Public Const SW_SHOWMINIMIZED = 2 Public Const SW_SHOWMINNOACTIVE = 7 Public Const SW_SHOWNA = 8 Public Const SW_SHOWNOACTIVATE = 4 Public Const SW_SHOWNORMAL = 1 Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _ (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _ ByVal lpParameters As String, ByVal lpDirectory As String, _ ByVal nShowCmd As Long) As Long Public Sub ExecuteFile(sFileName As String, Optional ByVal sAction As String = "Open") Dim vReturn As Long 'sAction can be either "Open" or "Print". If ShellExecute(Access.hWndAccessApp, sAction, sFileName, vbNullString, "", SW_SHOWNORMAL) < 33 Then DoCmd.Beep MsgBox "File not found." End If End Sub

وعليكم السلام 🙂 اذا كان strFile هو اسم الملف + مساره ، فتستطيع فتحه هكذا: application.followhyperlink strFile جعفر

لأنك ارفقت ملف وورد .. لا يمكن العمل على الملف أاضف هذا الكود الى النطاق الذي تريد وضعت لك زرين . الاول لحجم الخط و الثاني لششكل التاريخ حسب طلبك يمكنك وضعهم في زر واحد . او اضافتهم الى كودك. فقط حتى تفهم الكود بالنسبة لعرض العمود هدا الكود Columns("A:B").Select Selection.EntireColumn.AutoFit للاحتواء التلقائي لمضمون النطاق أو Sub Column_Width() Columns("D:E").ColumnWidth = 10 End Sub ضع العرض كما تشاء font -date format.xlsm

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

السلام عليكم اخى @حربي العنزي مشاركه مع اخى واستاذى العزيز @أبو عبدالله الحلوانى جزاه الله خيرا لعل هذا ما تريد جرب ووافنا بالنتيجه بالتوفيق اخى Prog3.mdb

وعليكم السلام اخى واستاذى العزيز @أبو عبدالله الحلوانى كل عام وانت بخير منور الموقع مشاركه مع اخى الفاضل @ابو تراب جزاه الله خيرا لعل هذا الشرح يفيدك ايضا جزاه الله خيرا استاذ محمد فؤاد http://arabteam2000-forum.com/index.php?/topic/125583-كيف-تبني-برنامج-مخازن-ومبيعات-بطريقة-صحيحة-؟؟/ تقبل تحياتى وتمنياتى لك وللجميع بالتوفيق

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

وده شرح فيديو لعله يفيد بشئ

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

هدية مقبولة كرتون مناديل يحتوي على اربعة وحدات مغلفة كل مغلف يحتوي على 6 علب يمكن تفريد الكرتون مغلفات وبيعها هكذا او تفريدها علب ليكون عدد العلب 24 علبة او حتى تفريغ مغلف واحد ليكون لدينا 3 مغلفات وست علب والترميز امر سهل وفقا للصورة اعلاه

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

باذن الله استاذي محمد سلامة

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

اتفق ان الترجمة الطبيعية هو "منظمة"، و هو الترجمة المقبولة كذلك. و قد درج البعض استخدام المصطلح لوصف "مؤسسة" كذلك، في حين أن كلمة مؤسسة تعتبر ترجمة أفضل لكلمة institution.

السلام عليكم ورحمة الله وبركاته ..... جميع اعضاء المنتدى ..... كل عام وانتم بخير وأسأل الله عز وجل أن يتقبل منا ومنكم صالح الاعمال استفسار حول كود سابق شارك في موضوعة في هذا الموضوع الأساتذة : @فايز و @Barna و @jjafferr و @أبو إبراهيم الغامدي في هذا الموضوع ولدي عدد من الاستفسار على الكود التالي بارك الله فيكم : Option Compare Database Option Explicit Sub IMPORT_XLSDB() On Error GoTo SUB_CLOSE '-- OPEN CURRENT DATABASE AS LOCAL DB Dim DB As DAO.Database Set DB = CurrentDb '-- OPEN RS DB TO ADD DATA Dim DBRS As DAO.Recordset Set DBRS = CurrentDb.OpenRecordset("TABLE") '-- OPEN XLS FILE AS REMOTE DATABASE Dim XLDB As DAO.Database Set XLDB = OpenDatabase( _ CurrentProject.Path & "\CS_SeetNumberLabels2.xlsx", False, False, "EXCEL 12.0;HDR=NO;") '-- OPEN XLS SHEET AS REMOTE RS Dim XLRS As DAO.Recordset Dim RCROW() Dim RC As Long Dim I As Integer Dim TD As DAO.TableDef '-- LOOP THROUGH XLDB TABLES (SHEETS) For Each TD In XLDB.TableDefs '-----------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (C) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "C:C]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing '--------------------------------------------------------------------------------------' '-- RECORDS FROM COLUMN (I) IN XL SHEET Set XLRS = XLDB.OpenRecordset("SELECT F1 FROM [" & TD.Name & "I:I]WHERE NOT ISNULL(F1)") '-- COUNT RECORDS XLRS.MoveLast: RC = XLRS.RecordCount: XLRS.MoveFirst '-- EACH 5 OF XLRS RECORDS MAKE 1 RECORD IN DBRS For I = 1 To RC Step 5 RCROW = XLRS.GetRows(5) DBRS.AddNew DBRS![ACADEMIC YEAR] = RCROW(0, 0) DBRS![ACADEMIC NUM] = Mid(RCROW(0, 1), InStrRev(RCROW(0, 1), Chr(32))) DBRS![STNAME] = RCROW(0, 2) DBRS![F1] = RCROW(0, 3) DBRS![Sub] = RCROW(0, 4) DBRS.Update Next Set XLRS = Nothing Next SUB_CLOSE: '-- COLOSE XLDB AND XLRS Set XLRS = Nothing ' XLDB.Close Set XLDB = Nothing '------------------------' '-- CLOSE DB AND DBRS Set DBRS = Nothing XLDB.Close Set XLDB = Nothing End Sub 1- ما المقصود في الاؤقام المسجلة في 1 و 2 2- ما المقصود ب F1 و هل يمكن تغيير النطاق في 4 وكيف يتم ذلك لو اغترضنا أن ملف الاكسل نريد جلب بيانات اكثر من عامود في الصفحة الواحدة دون تكرار للكود كما فعلنا في الكود السابق بمعنى بجلب بيانات العمود C والعمود I مباشرة أو حتى أكثر من عمودين ؟؟؟؟ بارك الله فيكم وفي علمكم ... الموضوع هنا بارك الله فيكم

بالتوفيق استاذي @kha9009lid الاستاذ @أحمد الفلاجي اسمك موجود في البرنامج عليك اقساط كثيرة اللة يعينك

جزاك الله خيرا اخى حسام بالنسبه للدمغه وشروطها انظر للاستعلام تم اضافه التقريب لاخى حسام فالاستعلام - 50 كالاكسيل وتم تنفيذ الشروط كالاكسيل بعض الملاحظات ينصح بجعل كافه اسماء الحقول والجداول بالانجليزى ومن غير مسافات وان كان لابد من المسافه استبدلها _ بالشرطه السفليه وان جميع الحقول المحسوبه تجعلها بالاستعلامات بالتوفيق ابوحميد استفسار.accdb

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

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

جزاك الله خيراً استاذ خالد .. ماشاءالله تحليلك جيد جدا 😍🌹 اجدد طلبي في نسخه تجريبيه محددة لمعاينة برنامجك طبعاً إذا انتهيت من تجهيزها تحياتي 🌹 ورمضان مبارك 🌹

تفضل معادلة بحث.xlsx

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

سوف اطلع عليه غدا ان شاء الله ولعل احد الاخوه يساعد باذن الله بالتوفيق يا ابوحميد

تعديل بسيط آخر جرب ووافنا بالنتيجه الاقساط.rar

اخى الفاضل @سيد رجب مشاركه مع اخى واستاذى العزيز @kha9009lid جزاه الله خيرا جربت اضافه عميل جديد وتم الاضافه بنجاح هتلاقيه باسم asd تم اضافه فقط كود فى حدث بعد التحديث لحاله الدفع لتحديث القيم فقط جرب ووافنا بالنتيجه الاقساط.rar

ما شاء الله عليك .. كفيت ووفيت . .

السلام عليكم و رحمة الله و بركاته تفضل 1. تحقق من وجود mscomct2.ocx على جهازك ان وجدته ادهب مباشرة الى النقطة رقم 6 في أسفل االشرح ان لم تجده . 2- حمله من المرفقات الملف يعمل فقط لنسخ 32 بت للاكسل 2019-2016-2013 3- بالننسبة للونددوز 32-bit ضعه في هذا المسار C:\Windows\System32 بالننسبة للونددوز 64-bitضعه في هذا المسار C:\Windows\SysWoW64 4-الأن تسجيل الملف ادخل على قائمة إبدأ ثم Command Prompt و بالضغط على الزر الايمن اختر Run as Administrator. بالنسبة للوندوز 32 اكتب هذا الامر أو انسخه مباشرة C:\Windows\System32\regsvr32.exe mscomct2.ocx بالنسبة للوندوز 64 C:\Windows\SysWoW64\regsvr32.exe mscomct2.ocx 5-انسخ الامر و ضع المؤشر في Command Prompt ثم ااضغط الزر الايمن للفأرة . يلصق مباشرة ثم ENTER الان انتهيت من التسجيل 6-افتح اكسل ثم OPTIONS 7-الآن 8-ثم و بعد ذلك يمكنك ادرااجه من تبويب المطور أكرر فقط اوفيس 32 بت الصور من النت للأمانة و الحمد لله. MSCOMCT2.zip

بعد اذن اخي الرائد لا ضرورة لكل هذه الحلفات التكرارية (بدل التنقل داخل النطاق المطلوب نقله خلية خلية ) انسخ النطاق كاملاُ الى الخلية الهدف لاحظ هذا الكود Option Explicit Sub My_code_1() Dim CRow%, jRow%, HowMany% Dim rng As Range Dim I As Worksheet, S As Worksheet Set I = Sheets("INV"): Set S = Sheets("SLS") Set rng = Sheets("INV").Range("c14:c23") HowMany = Application.CountA(I.Range("c14").Resize(10)) CRow = S.Range("C1048576").End(xlUp).Row + 1 jRow = S.Range("J1048576").End(xlUp).Row + 1 CRow = Application.Max(jRow, CRow) I.Cells(14, "C").Resize(HowMany, 5).Copy S.Cells(CRow, "c").PasteSpecial (12) I.Range("G24:G27").Copy With S.Cells(CRow + HowMany, "J") .PasteSpecial (12), Transpose:=True .Resize(, 4).Interior.ColorIndex = 6 End With S.Cells(CRow, "H") = I.Cells(8, "D") S.Cells(CRow, "I") = I.Cells(7, "D") I.Range("C14:C23").ClearContents I.Range("D8").ClearContents Application.CutCopyMode = False End Sub الملف مرفق Salim_Book.xlsm

من عيوني Test1.xlsx

السلام عليكم و رمضان كريم 1- ليس للمرة الأولى اكرر انه لا لزوم ادراح بيانات من ألوف الصفوف (6000 صف) اذ يكفي ادراج نموذج صغير فقط لأن الماكرو الذي يعمل على صف واحد يمكنه العمل على الألوف منها ( فقط من ـأجل معاينه عمل الماكرو وتخفيف حجم الملف) 2-تم اخفاء بعض الاعمدة (وليس حذفها ) لمراقبة سير الكود والتمكن من رؤية الييانات/ يمكن اعادة اظهارها بسهولة 3- تم ارفاق نموذج عما تريد مع بضعة صفوف 4-الكود Option Explicit Sub copy_data() With Application .ScreenUpdating = False .Calculation = xlCalculationManual End With Dim S As Worksheet, T As Worksheet Dim Ros#, Rot#, x%, Num%, m% Set T = Sheets("Target_sh") Set S = Sheets("Source_sh") Ros = S.Cells(Rows.Count, 1).End(3).Row If Ros < 3 Then GoTo Leave_me_alone_Please Rot = T.Cells(Rows.Count, 1).End(3).Row If Rot < 2 Then GoTo Leave_me_alone_Please T.Range("A3:N" & Rot + 1).Clear m = 3 For x = 3 To Ros Num = S.Cells(x, "L") S.Cells(x, 1).Resize(, 13).Copy With T.Cells(m, 1).Resize(Num, 13) .PasteSpecial 12 .PasteSpecial 8 End With m = T.Cells(Rows.Count, 1).End(3).Row + 2 Next T.UsedRange.SpecialCells(xlCellTypeConstants).Borders.LineStyle = 1 Leave_me_alone_Please: With Application .ScreenUpdating = True .Calculation = xlCalculationAutomatic .CutCopyMode = False End With End Sub الملف مرفق Date_distribution.xlsm

بعد اذن أستاذ احمد تفضل اخي هذا بالكود بعد كتابة الارقام اضغط على ايقونة العدسة وسيتم جلب البيانات Sub EtaEng() Dim idnum As Variant, b As Object, i As Double Sheet2.Activate idnum = Left(Range("D7").Value, 4) Set b = Sheet1.Columns("b").Find(idnum, lookat:=xlPart, LookIn:=xlValues) If Not b Is Nothing Then 'exists i = b.Row Range("D10").Value = Sheet1.Cells(i, 3) Range("D12").Value = Sheet1.Cells(i, 2) Range("D14").Value = Sheet1.Cells(i, 4) Range("D16").Value = Sheet1.Cells(i, 5) Range("H10").Value = Sheet1.Cells(i, 6) Range("H12").Value = Sheet1.Cells(i, 7) Range("H14").Value = Sheet1.Cells(i, 8) Range("H16").Value = Sheet1.Cells(i, 9) Else MsgBox "هذا الرقم غير موجود", vbExclamation End If End Sub ملاحظة : يمكنك تغيير عدد الارقام كما تشاء من خلال هذا السطر وهو مصمم لاربعة ارقام ويجب ان تكتب الارقام من اليسار الى اليمين كما ترى idnum = Left(Range("D7").Value, 4) كشف_المحتاجين_2.xlsm

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

تفضل ملف_تطبيق_الجمع_بشروط.xlsm

الأخ علي لا لزوم لهذه المعادلة الطويلة (لادراج من A الى Z ) تكفي هذه =IF(ROWS($A$1:A1)>26,"",CHAR(64+ROWS($A$1:A1))) ربما تنفع هذه الثلاث كودات Option Explicit Sub insert_arab() Dim i%, k% Dim arr() k = 0 Range("A1").CurrentRegion.ClearContents arr = Array(1, 2, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, _ 18, 19, 20, 21, 23, 24, 25, 27, 29, 30, 31, 32, 39) For i = LBound(arr) To UBound(arr) Range("A" & i + 1) = Chr(198 + arr(k)) k = k + 1 Next End Sub '++++++++++++++++++++++++++++++++++++ Sub insert_Cap() Range("C1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("C" & i) = Chr(64 + i) Next End Sub '++++++++++++++++++++++++++++++++++++++++++ Sub insert_Small() Range("F1").CurrentRegion.ClearContents Dim i% For i = 1 To 26 Range("F" & i) = Chr(96 + i) Next End Sub الملف مرفق ALPHABET.xlsm

فورم اكسل للبحث عن ايات القران الكريم وتفسيره ورقم الجذء والصفحة الفيديو فورم بحث عن ايات القران الكريم واجزائة.xlsm

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

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