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

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك بالنسبة لطلبك الآخر الخاص بـ PrintArea .. وعذرا علي التأخير ولكن اعتقدت انك وصلت لما تريد وبعض مشغوليات الحياه فقط عموما سيكون الكود الخاص بك الذي تسخدمه في معاينه الطباعة مختلف بعض الشئ ( بتعديلات بسيطة ) عن الذي قمت بوضعه في مشاركتك حيث ستقوم بتحديد النطاق الذي تريده مرة واحد مع بعضه ثم اضافته لـ PrintArea ليمكنك المعاينة للثلاث نطاقات مع بعض تنفيذ ما تريد قمت بتطبيقه علي الملف الذي ارسلته لك في المشاركات السابقة .. قم بتجربته علي ملفك واخبرني بالنتيجة .. ان شاء الله يفي بطلبك Sub print_somwafaa() On Error Resume Next mahmoud_hide3 Sheets("som wafaa").Range("B3:h24,b26:h84,b86:g110").Select Sheets("som wafaa").PageSetup.PrintArea = "$b$3:$h$24,$b$26:$h$84,$b$86:$g$110" ActiveWindow.SelectedSheets.PrintPreview mahmoud_Unhide3 Sheets("som wafaa").Select End Sub تقبل خالص تحياتي

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

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك بالنسبة لطلبك الاول والخاص بطلب كود لعدم الحفظ او عدم الحفظ باسم .. استخدم الكود التالي ضعه في حدث الـ ThisWorkbook Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True SaveAsUI = False MsgBox "You cannot save a copy of this workbook!" End Sub وبالنسبة لطلبك الثاني الخاص بالحماية لمحرر الاكواد .. اليك الرابط التالي .. قم بتحميل الدرس السادس من المرفقات فيه الطريقة بالشرح خطوة خطوة وبالصور وبالنسبة لطلبك الثالث بخصوص الملف التنفيذي exe قم بالبحث في المنتدي عن طلمه ( تنفيذي ) .. واليك رابط احد المواضيع به طلبك لحبيب القدير / شوقي ربيع ... جزاه الله خيرا ان شاء الله به طلبك تقبل خالص تحياتي

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

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

السلام عليكم الاخ الكريم / محمود أبوالدهب بارك الله فيك اولا لا يوجد داعي لاي اسف فكلنا هنا اخوة الكل يشارك لافادة بعضنا البعض بالنسبة لاخفاء الاعمدة اليك كود بسيط لاخفاء الاعمدة التي تحددها انت ويمكنك دمجها مع الاكواد السابقة الكود يكون كالتالي مع الشرح Sub hide_Column() 'hide_Column طبعا السطر السابق كما اتفقنا هو بداية الكود ثم تسميته واسمه هنا Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True 'Sheet1السطر السابق نحدد فيع اولا الشيت المراد تنفيذ امر الاخفاء عليه وهو هنا في الكود 'F,I,K,Oثم نقوم بتحديد نطاق الاعمدة المراد اخفاؤها كما نريد وهو هنا الاعمدة ' F ويجب عند تحديد النطاق للعمود الواحد ان يكتب بالشكل الموجود في الكود فمثلا للعمود 'F:F يكون النطاق بهذا الشكل اي العمود من بابه .. يعني End Sub 'السطر السابق هو نهاية الكود كما اتفقنا سابقا ولا نسيت فيمكنك اخي الكريم استخدام هذا السطر للاخفاء : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = True ثم قم باستخدام نفس السطر للاظهار ولكن بتغيير بسيط وضع FALSE مكان TRUE كالتالي : Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn.Hidden = False ارجو ان اكون قد وفقت في شرح المطلوب واس استفسار معك دائما باذن الله تقبل خالص تحياتي

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

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

طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة ===================================================== ( مدخل في تعلم VBA اكسيل خطوة خطوة - 12 درس ) دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة ===================================================== قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت فورم بسيط لاضافة شيت او عدة شيتات دفعة واحدة ... قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر - أ / Jaafar Tribak هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل ( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !! ( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013) هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع لاتنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !! علي الاكسيل ........... علي الباوربوينت

دورة شرح الفيجوال بيسك لبرنامج الإكسيل VBA .. !! خطوة خطوة ( الجزء الأول ) صدقة جارية علي روح والدي ) رحمه الله ( ... نسألكم الدعاء له ==================== الجزء الأول السلام عليكم اساتذة المنتدي وخبراؤه الكبار الاخوة الافاضل اعلم ان مثل هذه الموضوعات قد قتلت بحثا وطلبا واجابة من الاعضاء وهناك امثلة كثيرة للاساتذة الافاضل الكبار ولكن ما دعاني لتقديم هذا الموضوع ... حيث كنت قد اعددت له منذ فترة وأن يصبح لي اي عمل ولو صدقة جارية عله ينفع البعض ولو بمعلومة صغيرة وايضا لأنني اردت ان اجعل المواضيع الاساسية في تنفيذ عمل وتصميم اي برنامج في متناول الجميع بطريقة بسيطة وسهله اكثر ما يكون من خلال هذه السلسلة ... سلسة ( خطوة .. خطوة ) (( اعانني الله علي اكمالها كما ينبغي )) وقصدت ان يكون الموضوع بعنوان واضح ليستفيد منه الجميع عند البحث وسأقدم الشرح في هذا الجزء علي ملفات PDF لتصبح موجودة لدي من يحتاجها دائما واليكم اخواني الكرام : فهرس بالدروس التي تم اعدادها ( جاري اعداد بقية الدروس ان شاء الله ) : الدرس الاول : مقدمة عامة الدرس الثاني : اعدادات مستوي الامان ( التعرف عليها – كيفية ضبطها ) الدرس الثالث : كيفية اظهار شريط ادوات الـ VBA ضمن اشرطة الادوات و القوائم الدرس الرابع : كيفية اظهار محرر الفيجوال بيسك VBA في الاكسيل الدرس الخامس : مكونات وأجزاء محرر الفيجوال بيسك VBA في الاكسيل الدرس السادس : بعض الاجراءات الضرورية للتعامل مع محرر الفيجوال بيسك VBE قبل التطرق للاكواد وبرمجتها الدرس السابع : المـــــــــــــــــاكرو ( الجزء الأول ) ما هو الماكرو أنواع الماكرو ما هي أفضل الطرق للتعامل مع الماكرو؟ انواع الاجراءات تسجيل الماكرو بالنسبة لاكسيل 2003 الدرس الثامن : المـــــــــــــــــاكرو ( الجزء الثاني ) ( تسجيل الماكرو بالنسبة لاكسيل 2007 ) الدرس التاسع : المـــــــــــــــــاكرو ( الجزء الثالث ) شرح بسيط لتركيبة الكود او الماكرو بشكل عام وللماكرو المسجل لدينا بشكل خاص تعديل الماكرو ( المسجل أو المكتوب ) تعديل أو تعيين اختصار الماكرو ( المسجل أو المكتوب ) الدرس العاشر : المـــــــــــــــــاكرو ( الجزء الرابع ) كيفية تشغيل الماكرو كيفية عمل زر لتشغيل الماكرو الدرس الحادي عشر : المـــــــــــــــــاكرو ( الجزء الخامس ) تسجيل الماكرو النسبي تخصيص زر لتشغيل الماكرو في القوائم الموجودة لدينا في الاكسيل التوقيع الرقمي او التوثيق واي استفسار .... في الخدمة دائما ... واي شئ غير واضح في الشرح علي استعداد تام لشرحه مرة اخري ومرات اخري ومنتظر أرائكم في الشرح .. جزاكم الله خيرا اساتذتنا المقدمة1.rar طريقة تخفيض مستوي الامان في كل اصدارات الاكسيل2.rar اظهار شريط ادوات الفيجوال بيسك للاكسيل 3.rar وباقي الدروس في المشاركات التالية نظرا لحجم المسموح برفعه في كل مشاركة

الدروس من الدرس الرابع ... الي ... الدرس السادس كيفية اظهار محرر الفيجوال بيسك الاكسيل4.rar مكونات محرر الفيجوال بيسك 5.rar كيفية التعامل مع محرر الفيجوال بيسك 6.rar الدروس من الدرس السابع ... الي ... الدرس التاسع المـــــــاكـــــــــــرو7.rar تابع المـاكـــــرو8.rar تابع المـاكـــــرو9.rar الدروس من الدرس العاشر ... الي ... الدرس الحادي عشر تابع المـاكـــــرو10.rar تابع المـاكـــــرو11.rar أرجو من الله ان أكون قد وفقت في توصيل ولو معلومة صغيرة لمن يريدها بخصوص هذا الجزء تقبلوا خالص تحياتي

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

بارک الله فیک وفینا اجمعین

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

جزاك الله خيرا اخي الكريم

اخى الكريم الاستاذ حسين السلام عليكم ورحمة الله اعتقد اننى قد عملت على هذا الملف من حوالى ثلاثة اسابيع وظننت انى قد وفقت فى الحل ولم ادخل الى الموضوع مرة اخرى فأعتذر اننى لم ارى ردودك اواستفساراتك مرة اخرى وعند عرضك للموضوع مرة اخرى تأكدت من خطـأى فى تفسير المطلوب لذلك لم تكن النتيجة مرضية وليأذن لى استاذى معلمى الاستاذ ياسر بعرض هذا الكود حيث ان نتائجه تطابق نفس المخرجات الواردة بالملف عدا الصف رقم 18 فالخطأ من عند الاستاذ حسين وليس من الكود ودمتم بالف خير Sub Collect() Dim sh As Worksheet, ws As Worksheet Dim x As Long Set ws = Sheets("الرئيسية") ws.Range("E4:E50").ClearContents For R = 4 To ws.Range("D" & Rows.Count).End(xlUp).Row Z = 0 For Each sh In Worksheets If sh.Name <> "الرئيسية" And sh.Name <> "namodaj" And sh.Name <> "طباعة" Then For x = 9 To sh.Range("B" & Rows.Count).End(xlUp).Row If Year(sh.Cells(x, 2)) = Year(ws.Cells(R, 4)) And _ Month(sh.Cells(x, 2)) = Month(ws.Cells(R, 4)) Then Z = Z + sh.Cells(x, 3).Value ws.Cells(R, 5) = Z End If Next End If Next Next End Sub

وعليكم السلام جرب الكود التالي Sub Test() Dim ws As Worksheet Dim sh As Worksheet Dim rngDates As Range Dim rngTotal As Range Application.ScreenUpdating = False Set sh = Feuil1 For Each ws In ThisWorkbook.Worksheets If ws.Name <> sh.Name Then If ws.Range("B9").Value <> "" Then ws.Range("B9:E" & ws.Cells(Rows.Count, 2).End(xlUp).Row).Copy Feuil1.Cells(Rows.Count, 9).End(xlUp).Offset(1).PasteSpecial xlPasteValues End If End If Next ws Application.CutCopyMode = False If sh.Range("I2").Value = "" Then Exit Sub Set rngDates = sh.Range("I2:I" & sh.Range("I2").CurrentRegion.Rows.Count + 1) Set rngTotal = sh.Range("J2:J" & sh.Range("J2").CurrentRegion.Rows.Count + 1) With sh.Range("E4:E" & sh.Cells(Rows.Count, 4).End(xlUp).Row) .Formula = "=SUMPRODUCT(--(MONTH(" & rngDates.Address & ")=MONTH(D4))*(YEAR(" & rngDates.Address & ")=YEAR(D4)),--(" & rngTotal.Address & "))" .Value = .Value End With sh.Columns("I:J").ClearContents Application.Goto sh.Range("A1") Application.ScreenUpdating = True End Sub

شكرا أخى الكريم أبو حنين

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

شكرا لك صديقي وايضا شكرا لك صديقي

السلام عليكم الاخ الكريم / رشوان احمد بارك الله فيك وان شاء الله سوف اقوم بمحاولة الشرح فيديو ان شاء الله تقبل خالص تحياتي

فى اغلب الاحيان عندما يكون لديك برنامج او تقرير مصمم بالاكسيل فلابد ان تقوم بحمايتة ويوجد اكثر من مستوى حماية فى الاكسيل - الحماية على مستوى ورقة العمل worksheet -الحماية على مستوى المصنف workbook -الحماية على مستوى الخلية cell -الحماية لمحرر vba - اذونات مستخدمين محددين ------------------------------ والان سنتناول موضوع الحماية على مستوى ورقة العمل worksheet الخطوات: 1. انقر فوق علامة التبويب اختار Review ➪ Changes 2- Protect sheet حماية ورقة العمل 3. مربع الحوار "ورقة الحماية" ادخل كلمة المرور الباسورد 4. جعل الخلايا مؤمنة locked cells او غير مؤمنة Select unlocked cells يتيح لك مربع الحوار ورقة الحماية إمكانية تعيين قدرات للمستخدمين عن طريق التحقق من تلك الخيارات التي تريد منحها، مثل القدرة على تنسيق الخلايا أو إدراج الصفوف و الأعمدة.. 5. موافق 6.اكد كتابة كلمة المرور ولتكن 123 7. اضغط موافق حاول تغيير او إضافة اى شيء في الورقة . ------------------ هذا هو الموضوع الاول لاتنسونا صالح دعاؤكم محمد الريفى

وعليكم السلام ورحمة الله وبركاته فضلاً مراجعة المرفق تحياتي ranger.rar

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

جزاك الله خيرا اخي الكريم

جزاكم الله خير اخواني@Shivan Rekany والاخ@محمد ابوعبد اللهربنا يجعله بميزان حسناتك أدخلت الفرحه علي قلبي ربي يحفظكم أينما كنتم وكل من تحبون شاكر لكم تحياتي

السلام عليكم الاخ الكريم / محمود ابو الدهب بارك الله فيك وراك وراك برده .. في اي حته .. هههه لعمل ما تقصده اخي الكريم قم بتحديد النطاق الذي تريده بالماوس ان كان خليه او عده خلايا او كامل الورقة ثم اضغط كليك يمين تظهر القائمة اختار منها Format Cells او ( تنسيق خلايا ) ثم اختار منها تبويب Alignment او بالعربية ( محاذاة ) ثم قم بتفعيل الخيار الموضح بالصورة بوضع علامه ( الصح ) به المسمي Shrink to fit او بالعربي ( احتواء مناسب ) تقبل خالص تحياتي

استأذن من السيد @محمد ابوعبد الله على المداخلة و مشاركة معه اخي ابو زاهر احذف سطر الاخير اي احذف Docmd.Close واضف Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" اي في النهاية الكود سيكون كالتالي Private Sub S_Click() Dim db As DAO.Database Dim Rs As DAO.Recordset Dim Rss As DAO.Recordset Set db = CurrentDb Set Rs = db.OpenRecordset("SELECT Alamla.*FROM Alamla;") Rs.AddNew Rs("NoEmp") = Me.NoEmp Rs("NaEMP") = Me.NaEMP Rs("SAL") = Me.SAL Rs("Alhdalmsmh") = Me.Alhdalmsmh Rs.Update Rs.close MsgBox "تم الاضافه بنجاح" Me.NoEmp = "" Me.NaEMP = "" Me.SAL = "" Me.Alhdalmsmh = "" End Sub لكي عند الحفظ الريكورد ان يفرغ المربعات النصية ولكي تكدر تعمل سجل جديد وفي النموذج التعديل وفي مربع نصي رقم العميل Noepm شوف الكود بعد تحديث كان هكذ Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = " & NoEmp & "") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub اضف اليها هذا ( ' ) مرتين لكي يشتغل بشكل جيد لان الحقل رقم العميل هو نصي اي سيكون الكود كالتالي Private Sub NoEmp_AfterUpdate() Set Rs = CurrentDb.OpenRecordset("select * from Alamla where NoEmp = '" & NoEmp & "'") If Rs.RecordCount > 0 Then NaEMP = Rs!NaEMP SAL = Rs!SAL Alhdalmsmh = Rs!Alhdalmsmh Else MsgBox "هذا الاسم غير موجود في ملف العملاء" NaEMP.SetFocus NoEmp.SetFocus NoEmp = Null Alhdalmsmh = Null End If End Sub واخيرا اتفضل مع قاعدة البيانات تقبل تحياتي حفظ رقم العميل_2.rar

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

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

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

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

وعليكم السلام جرب المعادلة =IF($A2="","",IF(ROUND((SUM($C$1)-(($A2*18.5%)+SUM($B2)*10%)),2)<0,0,ROUND((SUM($C$1)-(($A2*18.5%)+SUM($B2)*10%)),2)))

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

وعليكم السلام ورحمة الله وبركاته فضلا مراجعة المرفق تحياتي Prog4000.rar

عذرا اخي ابو زاهر ارفقت مرفق خطأ فضلا مراجعة المرفق تحياتي حفظ رقم العميل_2.rar

السلام عليكم ورحمة الله جرب المعادلة التالية: بالانجليزية =COUNTIF(A:A;">0") بالفرنسية =NB.SI(A:A;">0") بن علية

سيتم نقل الموضوع اى قسم اكسل ، للمكان الأنسب و للتفاعل اكثر ،

وعليكم السلام ورحمة الله وبركاته فضلا مراجعة المرفق تحياتي حفظ رقم العميل.rar

========================================================== السلام عليكم جرب التعديل التالي استعلام بيانات حسب التاريخ والاسم ورقم السياره 2.rar

وفقك الله .. انت في الطريق الصحيح باذن الله تقبل خالص تحياتي

جزاك الله خيرا اخي الكريم

السلام عليكم الاخ الكريم / ناصر حسان بارك الله فيك وجزاك الله خيرا علي دعائك الطيب الكريم تقبل خالص تحياتي

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

السلام عليكم الاخ الحبيب / زيزو العجوز بارك الله فيك مرورك وحده يكفي .. جزاك الله خيرا علي كلماتك الرائعة تقبل خالص تحياتي

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

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

بسم الله الرحمن الرحيم ارجوا من الاخوة والاساتذة الكرام تجربة هذا الملف واخباري بالنتيجة هل يعمل بدون مشاكل ام يوجد مشاكل بالملف البرنامج لمراقبة حركة الاصناف من صرف واستلام والرصيد النهائي لكل صنف مصمم بالفيجوال بيسك وقمت بتحويل المعادلات لتعمل مع الفيجوال طبعا شوية معادلات محدودة ليس الا كل ما احتاجه هو الالمام بمعظم دوال ومعادلات الاكسيل برمجيا حتى اتعامل بها مع الفيجوال بيسك طبعا للجماعه اللي بتقول الحماية علي معادلاتي وشغلي اظن كدا بقت محمية كويس ملف الاكسيل ليس الا قاعدة بيانات فقط وكل معادلاتنا داخل الملف التنفيذي للفيجوال اينعم اعرف بعض طرق لاعادة سورس كود البرنامج ولكن يوجد برامج تشفير كتيررررر لحماية الملف من هذه المواضيع ارجو ان يعمل البرنامج بنجاح معاكوا وميحرجنيش معاكو ارجو التقييم اخوكم ياسر العربي vb6-excel.rar