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

السلام عليكم ورحمة الله تعالى وبركاته مقدمة : لكى ننتقل من الخلية A1 مثلا الى آخر خلية بها بيانات فى نفس الصف الاول يكون بالطريقة الاتية : Cells(1, Cells(1, Columns.Count).End(xlToLeft).Column).Select لكى ننتقل من الخلية A1 مثلا الى آخر خلية بها بيانات فى نفس العمود الاول يكون بالطريقة الاتية : Range("A" & Cells.Rows.Count).End(xlUp).Select ماذا لو كنا لا ندرى فى أى خلية نحن ...... اذن الانتقال سيكون من الخلية النشطة الى آخر خلية بها بيانات فى صفها أو عمود ها كيف نستخدم الخلية النشطة فى الوصول الى آخر خلية بها بيانات فى صفها أو عمود ها ؟ قبل الاجابة على السؤال نحاول نفهم الآتى : طبعا احنا عارفين أن اى خلية ليها صف وليها عمود ماشى لو عندنا الخلية النشطة هى $A$1 كيف نحصل على رقم الصف وكيف نحصل على اسم العمود من التركيبة $A$1 علامتى الدولار والحرف والرقم سنعتمد على الدالة MID وبنيتها كالتالى ( النص الذى سنستخرج منه + نقطة البداية + عدد الاحرف المطلوبة ) ( MID( text ; start position ; Number of characters وظيفتها استخلاص جزء من نص بداية من نقطة محددة فيه وعدد محدد من الحروف ضع النص $A$1 فى خلية ولتكن A1 نحصل على رقم الصف بالمعادلة =MID(A1; 4; 1048576) نحصل على اسم العمود بالمعادلة =MID(A1; 2; 1) المعادلة دى ستعطيك اسم العمود وهو A كيف نستفيد من ذلك فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى صف أو عمود الخلية النشطة ؟ بسيطة : بص على سطر الكود الأول فيه الرقم 1 ومكرر مرتين ويمثل رقم الصف تعالى نشيل رقم الصف ونضع ما يساويه بالمعادلات Cells(Mid(ActiveCell.Address, 4, 1048576), Cells(Mid(ActiveCell.Address, 4, 1048576), Columns.Count).End(xlToLeft).Column).Select هذا السطر يستخدم فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى نفس صف الخلية النشطة بص كمان على سطر الكود الثانى ستجد فيه "A" اسم العمود شيل اسم العمود وضع المعادلة التى هتطلع لنا اسم العمود Range(Mid(ActiveCell.Address, 2, 1) & Cells.Rows.Count).End(xlUp).Select هذا السطر يستخدم فى الانتقال من الخلية النشطة الى آخر خلية بها بيانات فى نفس عمود الخلية النشطة ناس هتقول ايه فائدة ده كله ؟ هقوله جرب المرفق التالى وأنت تعرف ممكن يعملوا ايه ! ملحوظة 1 : ده مش معناه أن السطرين دول وبس ممكن يعملوا ما فى المرفق ملحوظة 2 : فى المرفق تم اضافة الخاصية Offset على السطرين . find last entry in Rows and columns by mokhtar .rar والسلام عليكم ورحمة الله تعالى وبركاته

انا قبلت التحدي و اليك المعادلة اللازمة لهذا الشيء انسخها الى الخلية F2 واسحب نزولاً =SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*1+(SUBSTITUTE(TRIM(SUBSTITUTE(D2,CHAR(32),"")),"٫",".")*E2)

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

الأخ الكريم اسكندراني قمت بشرح الكود بشكل سريع عله يفيدك في التعديل كما قمت بتغيير الأرقام بأسماء الأعمدة المشار إليها لتسهيل عملية التعديل عليك حتى تستطيع أن تعدل على ملفك بنفسك Sub Ali_Tr() 'تعريف المتغيرات Dim Shr As Worksheet Dim Wsh As Worksheet Dim Rng As Range Dim LR, II, Rww%, IM, RW Dim MOf, Amel, AGra Dim MOf1, Amel1, AGra1 'تعيين قيمة للمتغير ليساوي ورقة العمل الأولى المطلوب العمل عليها Set Wsh = Sheet1 With Wsh 'تعيين آخر صف به بيانات في ورقة العمل الأولى LR = .Cells(.Rows.Count, 1).End(xlUp).Row 'إلى آخر خلية بها بيانات في العمود الخامس [D3] مسح النطاق بدايةً من الخلية .Range(.Cells(3, "D"), .Cells(LR, "E")).ClearContents End With 'حلقة تكرارية لكل أوراق العمل بالمصنف For Each Shr In ThisWorkbook.Worksheets 'إذا لم يكن اسم ورقة العمل يساوي اسم ورقة العمل الأولى يتم تنفيذ الأسطر التالية 'أي أنه يتم استثناء ورقة العمل الأولى من تلك الأسطر بينما تنفذ الأسطر على بقية الأوراق If Not Shr.Name = Wsh.Name Then 'بدء التعامل مع ورقة العمل التي انطبق عليها الشرط بأنها ليست الورقة الأولى With Shr 'حلقة تكرارية من الصف الثالث إلى آخر صف به بيانات For II = 3 To .Cells(.Rows.Count, 1).End(xlUp).Row 'إذا لم تكن الخلية في العمود الرابع في الصف المحدد في الحلقة التكرارية فارغة 'فإذا لم تكن فارغة يتم تنفيذ الأسطر التالية [D] أي أنه يتم اختبار الخلية في العمود 'أما إذا كانت فارغة يتم الانتقال للصف التالي لاختبار الخلية التالية في العمود الرابع If .Cells(II, "D") <> "" Then 'تعيين قيمة للمتغير ليساوي رقم الصف Rww = .Cells(II, "B").Row 'حلقة تكرارية من الصف الثالث إلى آخر صف به بيانات في الورقة الأولى For IM = 3 To Wsh.Cells(Wsh.Rows.Count, 1).End(xlUp).Row 'إذا كانت الخلية في العمود الثاني في أوراق الموظفين تساوي الخلية في العمود الثاني 'أي أنه يتم المقارنة بين اسم العميل في ورقة الموظف والورقة الأولى فإذا تطابق الاسم 'ينفذ التالي If .Cells(Rww, "B") = Wsh.Cells(IM, "B") Then 'إذا كانت الخلية في العمود الرابع في الورقة الأولى ليست فارغة يتم تنفيذ التالي If Wsh.Cells(IM, "D") = "" Then 'تعيين قيمة للمتغير ليساوي رقم الصف الذي يحوي اسم العميل من الورقة الأولى RW = Wsh.Cells(IM, "B").Row 'الخلية في العمود الرابع في الصف الذي يحوي اسم العميل في الورقة الأولى يساوي الخلية في العمود الرابع في الصف المحدد في الحلقة التكرارية Wsh.Cells(RW, "D") = .Cells(IM, "D") 'الخلية في العمود الخامس في الصف الذي يحوي اسم العميل في الورقة الأولى يساوي اسم ورقة عمل الموظف Wsh.Cells(RW, "E") = .Name 'أما إذا كانت الخلية في العمود الرابع في الأولى تساوي قيمة الخلية في العمود الرابع في ورقة الموظف ElseIf Wsh.Cells(IM, "D") = .Cells(Rww, "D") Then 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الخامس ليحمل اسم الموظف 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الثاني ليحمل اسم العميل MOf1 = .Cells(IM, "E"): Amel1 = .Cells(IM, "B") 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الرابع ليحمل الإجراء 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الخامس في الورقة الأولى ليحمل اسم الموظف AGra1 = .Cells(IM, "D"): MOf = Wsh.Cells(IM, "E") 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الثاني في الورقة الأولى ليحمل اسم العميل 'تعيين قيمة للمتغير ليساوي قيمة الخلية في العمود الرابع في الورقة الأولى ليحمل الإجراء Amel = Wsh.Cells(IM, "B"): AGra = Wsh.Cells(IM, "D") 'إظهار رسالة في حالة التضارب في إدخال البيانات 'أي أنه عند اتخاذ إجراء لعميل عند أكثر من موظف تظهر رسالة تفيد بذلك MsgBox "البند المسمى :" & " " & Amel & " موجود مسبقاً في ورقة : " & " " & MOf & vbCrLf & " بالاجراء :" & " " & AGra & vbNewLine & " " & " وكرر في ورقة :" & " " & .Name & " " & " للعميل : " & Amel1 'التخطي للانتقال لصف جديد GoTo Skipper End If End If Skipper: 'الانتقال للصف التالي في الورقة الأولى Next IM End If 'الانتقال للصف التالي في ورقة الموظف المعنية Next II End With End If 'الانتقال لورقة الموظف التالية Next Shr End Sub أرجو أن ينفعك الأمر تقبل تحياتي

السلام عليكم جرب هات الطريقه '******************************** ' رابط الدوماين الذي تريد التحقق منه Private Const Ur As String = "https://www.colomos.com" Sub Check_Url() MsgBox IIf(Check_Domin(Ur), "غير شاغر", "شاغر") End Sub Function Check_Domin(Url As String) As Boolean Dim Win_Htp As Object Dim R_a As Variant On Error GoTo Nex Set Win_Htp = CreateObject("WinHttp.WinHttpRequest.5.1") With Win_Htp DoEvents .Open "GET", Url, False .Send R_a = .StatusText End With Set Win_Htp = Nothing If R_a = "OK" Then Check_Domin = True Exit Function Nex: End Function

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

فنون وأساليب التنبؤ باستخدام الاكسيل السلام عليكم ورحمة الله وبركاته موضوع اليوم استخدام الدوال ذات الدالة الأسية ( الاتجاهات الغير خطية الأسية ) فى التوقع او التنبؤ واتناول فيه الدالة Growth بالطريقة الرياضية والبيانية استخدام طريقة التمهيد الأسى Exponential Smoothing فى التوقع باستخدام الطريقة الرياضية وادوات تحليل البيانات solver ___________________ارجو ان يفيد الجميع ________________________ تناولت فى الموضوع السابق استخدام الاتجاهات الخطية فى التنبؤ واستخدمت الدوال forecast و trend و slope و intercept وتناولنا الطرق الرياضية والبيانية رابط الموضوع السابق http://www.officena.net/ib/topic/64412-فنون-وأساليب-التنبؤ-باستخدام-الاكسيل/ الجزء الثانى .rar

السلام عليكم تم التعديل السبب تفعيل حمايه للورقه تم التعديل جرب المرفق مصروفات-111.rar عذرا اخي وائل لم ارى ردك الا بعد المشاركه

أخي ابو عمر جرب الملف التالي Search_by any_letters.zip

عملتلك برنامج تحويل الارقام كمان دا الواحد بقي خبير خبرة مستخبرتشي علي حد اه نسيت اقول ياريت تغيرر اسم الظهور بالمنتدى للغة العربية لسهولة التعامل الحل هنا وانسخ براحتك من اي برنامج.rar

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

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

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

برنامج المخزون و الفواتير الشامل .... الاصدار الثالث اكسيل 2007 - اكسيل 2010 اليوم بمشيئة الله هو الانطلاق الرسمى لهذة النسخه وبعد انتهاء مرحلة التجربة التى دامت اكثر من شهرين خطوات استخدام البرنامج لأول مره تسجيل البيانات الجديدة داخل البرنامج لعمل فواتير البيع و الشراء و الحركات المالية 1- تسجيل اسماء مناديب البيع وهى خطوه مهمه مطلوبة لتسجيل اسم عميل جديد 2- تسجيل و ادخال العملاء (يتم ربط كل عميل باسم مندوب) 3- تسجيل و ادخال الموردين 4- تسجيل و ادخال اسماء لفئة الصنف وهى خطوه مهمه مطلوبة لتسجيل صنف جديد 5- تسجيل و ادخال الاصناف (ولابد من وجود فئة مدخله مسبقا لكى تستطيع ادخال الصنف) 6- ولا تنسى تسجيل رصيد اول المده فى شاشة البيانات و الجرد الجديد فى هذا الاصدار * واجهة تطبيقية كاملة * برنامج كامل مخزون فواتير ذمم عملاء وموردين واستحقاقات خلال الفترات الزمنية المختلفة * اختصارات سريعة لتنفيذ العمليات و التقارير بسرعة عالية * كشف حساب بطريقة جديدة بمعنى نفترض انه هناك عميل ما علية مديونية بفيمة 15000 فالبرنامج يعطيك كشف حساب تفصيلى للمديونية المستحقة خلال فترات 30 يوم 60 يوم 90 يوم و اكثر من 90 يوم فمثلا فى المثال السابق يكون استحقاق المديونية على حسب فواتير العميل مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 و فى اكثر من 90 يوم 2000 فيكون اجمالى المديونية هم ال 15000 لكن الاستحقاق فى فترات مختلفه وهذا الكشف يفيد كل من يتعامل بالاجل لمعرفة المستحق خلال الفترة التى يريدها وعندما يقوم العميل بسداد جزء من المستحق يتم خصمه من المديونية القديمه بمعنى ان العميل فى المثال السابق قد قام بسداد 1500 فيتم خصمها من ال 2000 وهى مديونية الاكثر من 90 فيصبح كشف حسابة كالتالى مستحق فى 30 يوم 3000 وفى 60 يوم 6000 وفى 90 يوم 4000 وفى اكثر من 90 يوم 1500 فيكون اجمالى المديونية هم ال 13500 * شاشة فواتير جديده تحوى الكثير و الكثير من الاختصارات للعملاء و الاصناف وتوصلك الى عدة تقارير بضغطة زر واحده عرض معلومات عن الصنف و رصيده الحالى داخل المستودع و اخر سعر شراء بمجرد اختيارك للصنف وادخاله داخلة الفاتوره سهولة الغاء وتعديل الصنف داخل الفاتورة عن طريق الدبل كليك ذهاب مباشره الى تقرير صنف معين بمجرد اختياره وضغط تقرير الصنف اكتشف المزيد............ *شاشة لتقرير المديونية خلال الفترات الزمنية المختلفة يجب عليك قراءة ومراجعة شرح البرنامج جيدا حيث توجد العديد و العديد من الاختصارات السريعة التي تنقلك من شاشة الى اخرى بسرعه عالية ولتوفير وقتك داخل البرنامج. كما توفر لك سرعة الحصول على المعلومة المطلوبة. * لتحميل نسخة من الشرح وهى عبارة عن ملف تنفيذي اضغط على الرابط التالى شرح برنامج المخزون و الفواتير الشامل( ملف تنفيذى... 6MB رابط خارجى على موقع ميديا فاير) * او الذهاب الى موضوع شرح البرنامج و مناقشات مشرفى و اعضاء المنتدى داخل المنتدى على الرابط التالى شرح برنامج المخزون و الفواتير الشامل(مشاركة داخل المنتدى) كما احببت ان اقدم مناقشة ونصائح مديري و اعضاء المنتدى للبرنامج لكى يستفيد منها الجميع وهذه المواضيع تم مناقشتها في موضوع شرح البرنامج داخل المنتدى انظر المشاركة التالية لمشاهدة النصائح و المناقشات حول البرنامج واخيرا اقدم لكم البرنامج حجم البرنامج 1.2 MB اختر اسم المستخدم المدير كلمة السر 123 محرر الاكواد 85211 لاتترد فى الاستفسار عن اى شيى داخل البرنامج ضع مشاركتك وسوف يتم الرد عليها كما يمكن مراسلتى على الايميل التالى amroomo@gmail.com اخيرا اتمنى ان يكون هذا البرنامج اضافة الى برامج المخزون و الفواتير وتغيير مسارها على الاكسيل فهذا العمل جديد بكل المقاييس فى افكاره التى اتمنى ان اكون قدمتها بصورة جيدة ويستقيد بها الجميع وَقُلْ رَبِّ زِدْنِي عِلْمًا ========================================================= المرفق المحدث الاخير: SIS 3.152 (Add City).rar

دروس إكسيل (صوت و صورة)

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

زيادة في اثراء الموضوع هذا الكود البسيط ملاحظة كود على السريع حيث ان البيانات يجب ان تبدأ من العامود A (يمكن التعديل) Sub mylastecel() Dim lr, lc As Integer lr = UsedRange.Rows.Count lc = UsedRange.Columns.Count For i = 1 To lc If Cells(lr, i) <> "" Then Cells(lr, i).Select Selection.Offset(0, 1).Select If Selection = "" Then Selection.Offset(0, -1).Select End If Next End Sub

أخي الحبيب مختار موضوع رائع ومتميز بارك الله فيك وجزاك الله كل خير تقبل وافر تقديري واحترامي

ما شاء الله لقد رفعت الشعله من جديد في اوفيسنا نسئل الله ان تظل و لا تنطفي

أتفضل المرفق لعلة يلبي الطلب تحياتي مصروفات-9.rar

الله عليك يا أ / سليم ما شاء الله تبارك الله زادك الله من العلم الكثير والكثير جزاك الله خير

أخى الكريم angelloay نسيت أرحب بك فى المنتدى فأهلا وسهلا بك ويا حبذا لو تغير اسم الظهور الى العربية لسهولة التواصل للعلم أن جمع الخلايا ذات الألوان الناجمة عن التنسيق الشرطى يشكل صعوبة على الأقل بالنسبة لى أنا شخصيا لذلك قمت بالغاء كل التنسيقات الشرطية ووضعت لك كودا فى حدث الشيت مشتريات واستخدمت دالة udf لحساب مجموع الخلايا ذات اللون الواحد فى المرفق التالى عسى يحوز اعجابك Summing cells based on Color.rar

لم اطلع على المرفق بسبب الاصدار جرب هذا الحل : الصق هذا السطر في رأس الكود تستخدم هذه العبارة للقفز على الاخطاء المنطقية .. ان جازت التسمية On Error Resume Next

السلام عليكم الكود الذي في ملفك استبدله بالتالي بعد التعديل عليه Sub Macro1() Dim WB As Workbook, myRng As Range, Cell As Range Dim myRow As Long, lCol As Long Dim shMain As Worksheet Dim Sh As Worksheet Application.ScreenUpdating = False Application.EnableEvents = True Application.DisplayAlerts = False Set shMain = ThisWorkbook.ActiveSheet On Error Resume Next Range(Cells(2, 1), Cells(Cells(Rows.Count, 1).End(xlUp).Row, 91)).ClearContents Path = "d:\data.xlsx" Set WB = Workbooks.Open(Path) '===================================================================== On Error Resume Next Set Sh = WB.Sheets("Data") With Sh .Activate R = Sh.Cells(Sh.Rows.Count, 1).End(xlUp).Row C = Range(Split(Sh.UsedRange.Address, "$")(3) & 1).Column Set myRng = WB.Sheets("Data").Range(.Cells(2, 1), .Cells(R, C)) myRng.Copy shMain.Cells(2, 1).PasteSpecial xlPasteValues End With WB.Close True '===================================================================== On Error GoTo 0 Application.CutCopyMode = False Application.ScreenUpdating = True Application.EnableEvents = False Application.DisplayAlerts = True MsgBox "Task Completed" Application.Goto Reference:="Macro1" Range("D2").Select End Sub

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

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

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

مثال : ضع الكود التالى فى حدث الشيت Private Sub Worksheet_Change(ByVal Target As Range) If Not Range("A1").Find("اخضر") Is Nothing Then Range("A1").Offset(0, 1).Interior.ColorIndex = 4 Else Range("A1").Offset(0, 1).Interior.Pattern = xlNone End If End Sub اكتب كلمة اخضر فى A1 ستجد أن الخلية B1 صارت خضراء ثم اخذف الكلمة ستجد الخلية استعادت لونها العادى والا أرفق ملفا ضع فيه تصورك والنتائج المرجوة تحياتى

شكرا جزيلا استاذ الصقر افادندي جدا في عملي لك جزيل الشكر

السلام عليكم شاهد المرفق خلاصه_111.rar

تفضل اخى الحبيب الملف يعمل مع الصفوف جرب وعلمنى اوفسينا2.zip

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

بسبب الخلايا المدمجه استخدم هذا الكود او انسخ على خليه خليه Sub Ali_Tr() Set S = Sheets("sheet1"): Set SS = Sheets("sheet2") With S For r = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row SS.Cells(SS.Cells(Rows.Count, 2).End(xlUp).Row + IIf(r = 1, 2, 5), 2) = .Cells(r, 1) Next End With End Sub

حسبي الله ونعم الوكيل

السلام عليكم اخي ابو مهند اولا اعذرني علي التاخير فبالفعل الملف احتاج لتركيز شديد تم ترتيب ملفك من جديد مع محاولة الابقاء علي الشكل العام قدر المستطاع كما تم الاتي: البداية تكون من شيت Data اضافة اي عدد من المدرسين في شيت Data اضافة اي عدد من الطلبة في شيت Data عند اضافة مدرس في عامود اسماء المدرسين يتم عمل عامود للمدرس برقمه ما عليك سوي اضافة الطلبة التابعين له تحت اسمه وايضا ستجدهم في القائمة المنسدلو في شيت التسجيل دون اي عناء يذكر كتابة اسم المدرس كما هو مكتوب باستبدال المسافة ب ( _ ) الكود يعدل في الـ Names بالاضافة اوالحذف دون تدخلك شيت Source يبني من جديد بيانات كل المدرسين والطلبة التابعين لهم وايام الشهر لكل مدرس يفضل الاضافة للمدرس اوالطالب قبل الضغط علي زر Source البدء بالضغط علي زر Source سيتم عمل ال30 يوم لكل مدرس مع الطلبه التابعين له الضغط علي زر عل الشهور في شيت Data لعمل كل شهر علي حدا هنا ينتهي دور شيت Source نظرا لملاحظة الثقل بالملف فقد تم عمل شيت لكل شهر الضغط علي زرعمل الشهور لعمل نسخة من شيت Source لكل شهر علي حدا مع تسمية الشهر وذلك ولعدد 12 شهر لالغاء الشهورالضغط علي زر الغاء الشهور سيتم الغاء كل الشهور تم عمل زر مسح لكل محتويات شيت تسجيل الدخول للصالة في حالة مثلا التجربة الرغبة في تنظيف الشيت للبدء في العمل تم عمل اللينك لليوم في شيت تسجيل الدخول للصالة بالكود عن اختيارك اسم المدرس ثم اسم الطالب في شيت تسجيل الدخول للصالة يتم عمل الكود مباشرة جرب الملف واخبرني النتيجة تحياتي برنامج دخول الطلابxlsm.rar الملف هنا برنامج دخول الطلابxlsm.rar

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

جرب أضف كلمة Ptrsafe بعد كلمة Declare >> إذا لم يفلح الأمر معك سأوافيك بالكود ليلاً إن شاء ربي

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

اخي ابو سليمان جرب هذا الملف large3 advanced.zip

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

يمكن تجاهل المكرر عبر هذا الملف Find Salim without rep.zip

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

شكرا أخى الكريم

رائع اخي ياسر زيادة في اثراء الموضوع معادلة اخرى (بدون IFERROR) . و تستطيع وضعها في اي مكان من الصفحة و لبس من الضروري الصف الثاني Find Salim + Yasser.zip

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

اخى الكريم اطلع على الملف التالى للاستاذ / عمر الحسينى ... جزاه الله خيراً تغيير اللغة.rar

برنامج نور التجاري والخدمي (هدية العام الهجري الجديد) ضاحي الغريب و شوقي ربيع ************** سلسلة : تعلم اكسل معي بالصوت والصورة محمد نصري ************** دروس فى VBA Excel _ نتعلم معا برمجه اكسل محمود الشريف ************** افتح الباب وادخل لعالم البرمجة (متخافوش يا أحباب من اللي ورا الباب) ياسر خليل أبو البراء ************** سلسلة علمنى كيف اصطاد ( الفورم ) Forms حسام عيسى (صقر المنتدى) ************** فورم بحث وتعديل واضافة بيانات شرح بالفيديو مع الاكواد الأستاذ المخضرم / مجدي يونس **************

السلام عليكم و رحمة الله و بركاته الاخوة الاحباب بالمنتدى عن طريق ملف الاكسل المرفق يمكنك عمل بحث فى جهازك عن اي ملف عن طريق الاكسل و قمت بعمل واجهتين عربية و انجليزية و اضافة Hyperlink ( ارتباط تشعبي ) لسهولة الوصول للملفات التي تم البحث عنها كما يمكنك اختيار او كتابة الدرايف او المسار الذي سيتم البحث فيه و اختيار الامتداد او اسم الملف الذي سيتم البحث عنه و أسأل الله العلى العظيم أن ينفعكم بهذا العمل و الله و الموفق و المستعان و السلام عليكم و رحمة الله و بركاته SEARCH HaNcOcK.rar

أخوتي الأعزاء في المرفق أربعة جداول ، للموظفين و الادارات و الاقسام والجنسيات ( من وحي طلب الأخ a_aliser85 ) ومن حاجات عامة غالبة ، وهي المرحلة الأولى و الأساسية. وحتى نبدأ بالفحص أرسلنا الجداول لتتحلى ببعض السجلات لغايات الحراك المتوقع في المشروع ، وقد كنت افترضت بعض الأساسيات وقمت بانشاء مجموعة من العلاقات الضابطة بين الجداول ( والتي لا احبها ) وان كانت مرحلية وضرورية عند بعض المناهج البرمجية ، فصعب على الأخ العزيز ، مواكبة الامر ، فطلب مني تجهيز نموذج لادخال المعلومات ( قفزة مرحلية رهيبة ) من دراسة وتحليل وانشاء علائق جدولية الى النماذج مباشرة ،، ( لا بأس ) ، بدأت بنموذج افتراضي تخيلي سريع فأخفقت ومن السرعة ووضعت اسم الجدول الافتراضي Table1 في أحد الكودات بدل اسم الجدول الاصلي tblEmployees ، فحدثت مشكلة معه ، أوقفت العمل خلال اليومين الماضيين ، لأفكر كيف اريد ان اكمل المسيرة . وجدت أنني لن أستطيع أن أغير منهجي وطريقة تفكيري و أسلوب عملي ، حين يتطلب الأمر مني تجهيز أي تطبيق أحاول أن انجزه حسب الأصول (فيما أعرف) أراعي ما أعرف في الجداول ، لا أحب استخدام المعالج ، أراعي نسقي في النماذج كوني أرتاح لجمالية النماذج و إختيار الألوان التي أرى فيها الهدوء و الراحة ، وأظن أنني لن أتغير لأي سبب ....وأظن أنني لن أجد تفاعلا وتجاوبا كما اتمني لذا قررت أن أستمر كما بدأت أطرح ما لدي و اتفاعل مع نفسي ومع من يحاورني ..... وأستمر الى أن يشاء الله ..... في المرفق أربعة نماذج نموذج رئيسي للموظفين ومعلوماتهم الرئيسية الأولية ، ونموذج لصيانة جدول الادارات ، ونموذج لصيانة جدول الأقسام ، ونموذج لصيانة جدول الجنسيات ، وهذه الثلاثة الأخيرة مرتبطة بالنموذج الرئيسي ، وتعمل عند الحاجة اليها لاضافة ما يتعلق بها أثناء تسجيل معلومات الموظف ، وحال الخروج من أي منها تتحدث معلومات الحقل المعني في النموذج الرئيسي مباشرة باستخدام Forms!frmAddNew![strNationality_ID].Requery في المرفق شريط أزرار مجسم – تفاعلي - تقليدي ( عندي ) يعمل بالتعاون مع الوحدة النمطية BTN SUBS ، ويوفر لنا معلومات عن الرقم الوظيفي و عدد السجلات ، ويخدم الوصول للسجل الأول و الأخير و السجل التالي و السابق ، ومنه نطلب إضافة (موظف) جديد يساعد عمله صندوق رسائل لتأكيد الرغبة بالإضافة ، وأخيرا زر الإغلاق. هذا وسأقوم في المشاركة التالية بإضافة سجلات متكاملة في الجداول الرئيسية ، كي نتمكن من التطبيق عليها ، وتساهم معنا في التأكد من صحه تجوالنا في المشروع. ولي رجاء عند الإخوة حال الرغبة في المشاركة وإضافة نسخة من المرفق ، تغيير إسم المرفق حتى لا يحصل تضارب في النسخ لدي الجميع ، وحتى نتمكن من تمييز المرفقات . هذا دليل مستخدم أولي User Manual ، تراكمه سيكون بإذن الله جزء من التطبيق كملفات مساعدة Help Files . وبأدناه صور توضيحية مساعدة. وللحديث و التطبيق بقية .... والله من وراء القصد ... .......... تم تعديل المرفق ........ NA_EmpProj_2A.rar