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

الحمد لله الذي جعل العلم ضياء والقرآن نوراً الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين نحمــده تعالى وهـــو الرب الجليل ، الهادي إلى ســـواء الســـبيل ، الذي لا يخفى عليه الكــثير ولا القليــل . والصلاة والسلام على المبعوث في الأميين معلماً ورسولاً ومرشداً وحكيماً وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جــــاء بالحــــق المبــــين ، فكان رحمــــة للعالمين ، صلى الله عليه وعلى آله وأصــحابه وســـلم تســـليماً كــــثيراً . اللهم اجعل العام الهجري الجديد فاتحة خير علي المسلمين وبلاد المسلمين ا أحبائي واخواني في منتديات اوفيسنا الاحبة كشجرة الياسمين لا تكتفـــي أن تظـــلك بـــــــل لا تترككــ الا معطــــرا بعبيرهـــا فاســعد الله من كانوا دومــــا زهــــور الياسمــين في حـــياتنا . موضوعنا اليوم حول برنامج يخدم شريحة من الطلبات لادارة النشاط التجاري والخدمي وراعينا ان يكون البرنامج سلس ومرن ليتناسب مع اغلبية الاحتياجات . وايضا لاستكمال مواضعينا السابقة عن دمج الاكسل ببرامج التصميم المختلفة والتحكم في خصائص الادوات لليوزرفورم . برنامج نور التجاري والخدمي اول انتاج مشترك بيني وبين اخي الحبيب العبقري / شوقي ربيع في سلسلة البرامج الخدمية ان شاء الله تعالي . البرنامج يقوم بإدارة النشاط بصــفة عامة ، وادارة عمليات البيع بإصدار الفواتير ، وطباعتها ، واصدار ســـندات القبض وطباعتها ، وادارة العمليات المتعلقة بفواتير الشراء ومرودتها واثبات عمليات الشراء والاصناف واصدار سندات الصرف وطباعتها . الجديد في البرنامج كثيرا تم طرح نماذج فواتير بيع باضافة عدد محدد من التكسات بما يتناسب مع صفوف الفاتورة الواحدة لكن في البرنامج تناولنا الموضوع بطريقة اخري باضافة عدد تكسات رئيسية تقوم بترحيل الي ليست بوكس ومنها الي الشيت وبذلك يمكن اصدار الفاتورة بعدد لا محدود من الاصناف وطباعتها . شاشة الدخول اسم المستخدم وكلمة المرور الافتراضية admin الشاشة الرئيسية للبرنامج شرح واعداد البرنامج بالكامل اضغط هنا بالمرفقات اللهم اجعلنا ممن طاب ذكرهم ، وحسنت سيرتهم ، واستمر أجرهم في حياتهم وبعد موتهم اللهم امين Nour Commercial V 1.0.0.rar

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

السلام عليكم حسب مافهمت اخ زمزم ان الخلايا التي تتلقى بيانات من مصدر خارجي تريد نسخها الى العمود التالي بشرط مره فقط في اليوم وبشرط مابين الساعه الرابعة عصرا فقط استخدمنا كود الاخ محمود الشريف مع بعض الاضافات اليك الكود غير المدى في اول الكود Private Const FD = "yyyy/mm/dd" Private Const FT = "hh:mm:ss" ' الخلايا التي تتلقى قيمها من مصدر خارجي Private Const Are As String = "$A$2:$A$500" Dim Tim_t Dim Dn As Range Dim Tn As Range Dim Tim Private Sub Ali_Tim() Set Tn = [XF1] Set Dn = [XG1] Tim_t = Now + TimeValue("00:00:05") Application.OnTime Tim_t, "Trn_Dt", , True Dx = IIf(Dn = "", Val(Date) - 1, Val(Dn)) If Time > TimeValue("16:00") And Time < TimeValue("16:59") Then If Dn = "" Then Tim_Cod ElseIf Dn = Date And Hour(Tn) = Hour(Tim) Then ElseIf Not Dx = Val(Date) Then Tim_Cod End If End If End Sub Private Sub Tim_Cod() Dim Rng As Range Set Tn = [XF1] Set Dn = [XG1] '================================ For Each Rng In Range(Are) If Rng > Empty Then With Rng Lc = Cells(.Row, Columns.Count).End(xlToLeft).Offset(0, 1).Column Cells(.Row, Lc) = Rng End With End If Next '================================ Dn = Format(Now, FD) Tn = Format(Time, FT) Set Rng = Nothing Set Dn = Nothing: Set Tn = Nothing End Sub Private Sub Trn_Dt() Calculate Ali_Tim End Sub Sub auto_open() Ali_Tim End Sub Sub auto_close() On Error Resume Next Application.OnTime Tim_t, "Trn_Dt", , False End Sub

الحمد لله الملك الحق المبين ، الذي هدانا إلى الإيمان واليقين ، وقال {وَوَصَّى بِهَا إِبْرَاهِيمُ بَنِيهِ وَيَعْقُوبُ يَا بَنِيَّ إِنَّ اللّهَ اصْطَفَى لَكُمُ الدِّينَ فَلاَ تَمُوتُنَّ إَلاَّ وَأَنتُم مُّسْلِمُونَ} نحمده تعالى وهو الرب الجليل ، الهادي إلى سواء السبيل ، الذي لا يخفى عليه الكثير ولا القليل ، وأشهد أن لا إله إلا الله وحده لا شريك له أمر بإتباع الحق ونهى عن إتباع الباطل ، ورفع من شأن العالم دون الجاهل ، وأشهد أن سيدنا محمداً عبده ورسوله جاء بالحق المبين ، فكان رحمة للعالمين ، صلى الله عليه وعلى آله واصحابه وسلم تسليماً كثيراً . طلب مني أحد الأخوة تطوير برنامج الشيكات الإصدار الأول الذي تم طرحه مسبقا علي الرابط وبحمد الله تم اضافة بعض وظائف البرنامج وشاشة تقارير حسب جهة الصرف او بين تاريخين مع الطباعة وتم تعديل الشيك حسب قرار وزارة المالية كما ورد بطلب الاخ الكريم شرح مبسط للفورم الملف بالمرفقات الشيكات الأصدار الثاني.rar

السلام عليكم قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري) القوائم الرئيسية هي النطاقات المسمى باسم الليبلات النطاق الاول: Lbl_ST_1 النطاق الثاني: Lbl_ST_2 النطاق الثالث: Lbl_ST_3 النطاق الرابع: Lbl_ST_4 اذا اردت زيادة قائمة اخرى اضف جدول آخر وسميه Lbl_ST_5 واضف ليبل آخر بنفس التسمية واعمل له كودين مشابهين لاكواد الليبلات الاخرى مع تغيير الرقم الى 5 مثال : الكود الاول Private Sub Lbl_ST_5_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_AddBar sNeme & 5 End Sub الكود الثاني Private Sub Lbl_ST_5_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) kh_Set1 sNeme & 5 End Sub وهكذا اذا اردت اضافة ليبل آخر القوائم الفرعية تحتاج فقط لاضافتها اضافة نطاق وسميه باي اسم وضع هذا الاسم في القائمة الذي تريد اظهار القائمة الفرعية فيها مع وضع العلامة <<< لكي يفهم الكود انها قائمة . ويمكنك اضافة قائمة فرعية بداخل قائمة فرعية اخرى. يمكنك ايضا التحكم في النطاقات بادخال ما تريده من اكواد او الحذف او الاضافة . ================================================ لاختيار ارقام صور الكومندبار حمل الملف التالي http://www.officena.net/ib/index.php?app=core&module=attach&section=attach&attach_id=58279 ================================================ المرفق 2003-2010 قوائم مخصصة على الفورم باستخدام كومندبار+2.rar

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

السلام عليكم الاخوة الاحبه ضاحي الغريب وشوقي ربيع عمل مميز وتمكن ملحوظ بارك الله فيكم تقبلو مروري

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

======================== الاخ الحبيب/ ضاحي الغريب الاخ الحبيب/ شوقي ربيع ======================== جزاكما الله خيرا وبارك الله فيكما تقبلوا تحياتي وشكري

السلام عليكم و رحمة الله و بركاته اخي الحبيب الاستاذ الكبير : ضاحي الغريب جزاك الله كل خير على هذا المجهود الرائع

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

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

السلام عليكم وضعت من عندي بعض البيانات الافتراضية أكثر من 200 إسم وطبعا ستزيد مدة التنفيذ إذا كانت الأعداد كبيرة تفضل أخي الملف به المطلوب N Excel2.rar

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

جزاك الله خير اخى العزيز أبو محمد عباس اصلح الله لك شئنك وعافاك فى دينك وبدنك اللهم امين

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

ارفق الملف وسوف يقوم الأعضاء الكرام بالمساعدة إن شاء الله وهذا جزء من قاعدة بيانات خاصة لعلها تكون مفيدة بالنسبة لك AliElmasry.rar

اخي / محمد لطفي بارك الله فيك وجزاك خيرا مع تحياتي

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

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

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

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

الاخ محمد الخازمى شكرا لكلاماتك الرائعة واليكم ملف على شكل ساعة تيمر للتنقل بين الشرائح ساعة.rar

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

أخى فى الله الأستاذ الكريم // زمزم اليكم بالمرفقات تجربة لعملية النسخ كل دقيقة من الخلية B3 الى الخلية D3 اى محتوى بالخلية الأولى يتم نقله الى الخلية الثانية فى حال كون الملف مفتوح فقط وجرب بنفسك ( الملف اوفيس 2010 ) الى أن يقوم أحد الأساتذة بالتوصل كاملا لما تريد وتقبل منى وافر الاحترام والتقدير تجربة النسخ المكرر.rar

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

دمج الخلايا يسبب مشاكل حاولي قدر الإمكان ألا تستعملي دمج الخلايا فيه بديل لدمج الخلايا إذا كنت تريد أن تعمل توسيط .. مثال لنفترض أنني أريد أن أدمج الخلايا A1:E1 نكتب ما نريد في A1 ثم نحدد النطاق A1:E1 ثم كليك يمين تنسيق خلايا Format Cells ثم التبويب Alignment ثم Horizontal ثم Center Across Selection

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

السلام عليكم ورحمة الله وبركاته كل الشكر لأخى الفاضل / شوقى ربيع على هذا الإبداع ولإثراء الموضوع وكما طلب أخى الحبيب / محمود الشريف كود لإنشاء الصفحات إن لم تكن موجودة مع بعض الإضافات الأخرى مثل الترحيل بنفس التنسيقات وعمل مسلسل فى الصفحات المرحل اليها Sub ragab() Dim cl As Range, sh As Worksheet Application.ScreenUpdating = False For Each sh In ThisWorkbook.Worksheets If Not sh.Name = "Sheet1" Then sh.Range("A2:L1000").ClearContents End If Next LR = Cells(Rows.Count, 1).End(xlUp).Row For Each cl In Range("L2:L" & LR) x = Trim(cl.Value) On Error Resume Next If Worksheets(x) Is Nothing Then Sheets.Add.Name = x Sheets(x).Move After:=Sheets(Sheets.Count) End If Sheets("sheet1").Range("A1:L1").Copy Sheets(x).Range("A1").PasteSpecial xlPasteValues Sheets(x).Range("A1").PasteSpecial xlPasteFormats cl.Offset(0, -11).Resize(1, 12).Copy Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row + 1, 1).PasteSpecial xlPasteValues Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteFormats Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 1).End(xlUp).Row, 1).PasteSpecial xlPasteColumnWidths Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 3).End(xlUp).Row, 1) = Sheets(x).Cells(Sheets(x).Cells(Rows.Count, 3).End(xlUp).Row, 1).Row - 1 Application.CutCopyMode = False Next MsgBox "تم الترحيل بنجاح الى صفحات منفصلة" Sheets("sheet1").Select Application.ScreenUpdating = False End Sub قاعدة بيانات اعدادى2.rar

استاذ / حماده عمر _ جزاك الله خير _ ابداع من ابداعاتك ولكن حضرتك اعطتنا نص التفاحه طب فين باقى التفاحه _ " التنقل بين الصفحات _ استدعاء صفحه من 150 صفحة مثلا او اكثر " و تقبل تقديرى و احترامى لشخصكم الكريم

شاهد الفديو و هذا