عبدالله باقشير

السلام عليكم الكود ادناه في حدث الورقة "ورقة1" Private Sub Worksheet_Change(ByVal Target As Range) Dim Last As Integer If Target.Address = Range("A1").Address Then If Target.Value = "" Then GoTo 1 Last = Range("J600").End(xlUp).Row + 1 Cells(Last, "J") = Target.Value Target.ClearContents Target.Select End If 1 End Sub تفضل المرفق علامات الطلاب.rar

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

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

السلام عليكم باستخدام الدالة يمكنك عمل ارتباط تشعيبي وارتباط للقيم =HYPERLINK(اسم_الملف & CELL("address";ورقة2!$G$4);ورقة2!$G$4) الاسم "اسم_الملف" معادلة لمعرفة اسم الملف =MID(CELL("filename");FIND("[";CELL("filename");1);FIND("]";CELL("filename");1)-FIND("[";CELL("filename");1)+1) تفضل المرفق ارتباط تشعيبي مع ارتباط للقيم بدالة HYPERLINK.rar

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

السلام عليكم تفضل الكود التالي: Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.DisplayAlerts = False ThisWorkbook.Close Application.DisplayAlerts = True End Sub

السلام عليكم بامكانك استخدام الدالة HYPERLINK ========== إنشاء اختصار أو ارتباط يفتح مستنداًَ مخزناً على ملقم شبكة اتصال، و إنترانت، أو إنترنت. عند النقر فوق الخلية التي تحتوي على دالة HYPERLINK، يفتح Microsoft Excel الملف المخزن في موقع الارتباط. بناء الجملة HYPERLINK(link_location,friendly_name) Link_location (موقع الارتباط) مسار واسم الملف للمستند الذي يتم فتحه كنص .يمكن أن يشير Link_location إلى مكان ما في المستند— خلية معينة أو نطاق مسمى في ورقة عمل أو مصنف Excel ، أو إلى إشارة مرجعية في مستند Microsoft Word . يمكن أن يكون المسار لملف مُخزن على محرك الأقراص الثابتة، أو يمكن أن يكون المسار مسار اصطلاح تسمية عالمي (UNC) على ملقم (في Microsoft Excel لـ Windows) أو مسار محدد موقع معلومات (URL) على إنترنت أو إنترانت. يمكن أن يكون Link_location سلسلة نصية داخل علامات اقتباس أو خلية تحتوي على الارتباط كسلسلة نصية. إذا كان الارتباط المعين في Link_location غير موجود أو لا يمكن التنقل فيه، فيظهر خطأ عند النقر فوق الخلية. Friendly_name (اسم مألوف) هو نص الارتباط أو القيمة الرقمية التي تعرض في الخلية. يتم عرض Friendly_name باللون الأزرق وتحته سطر. إذا تم تجاهل Friendly_name، تعرض الخلية موقع الارتباط كنص الارتباط. يمكن أن يكون Friendly_name قيمة، أو سلسلة نصية، أو اسم، أو خلية تحتوي على نص الارتباط أو القيمة. إذا أرجعت Friendly_name قيمة خطأ ( على سبيل المثال، !VALUE#)، تعرض الخلية الخطأ بدلا من نص الارتباط. ملاحظة لتحديد خلية تتضمن ارتباط تشعبي بداخلها دون الانتقال إلي وجهة الارتباط التشعبي، انقر الخلية واحتفظ بزر الماوس الأيمن حتى يصبح المؤشر متصالب الشكل ، ثم حرر الزر الأيمن للماوس. أمثلة يفتح المثال التالى ورقة عمل باسم Budget Report.xls المُخزنة على إنترنت في موقع محددexample.microsoft.com/report ويعرض النص "انقر فوق التقرير": =HYPERLINK("http://example.microsoft.com/report/budget report.xls", "انقر فوق التقرير") ينشئ المثال التالى ارتباط تشعبي للخلية F10 على ورقة العمل المسماة Annual في المصنف Budget Report.xls، المُخزن على إنترنت على الموقع التالي: example microsoft.com/report. تعرض الخلية في ورقة العمل التي تحتوي على الارتباط التشعبي محتويات خلية D1 كنص ارتباط: =HYPERLINK("[http://example.microsoft.com/report/budget report.xls]Annual!F10", D1) ينشئ المثال ارتباط تشعبي لنطاق باسم DeptTotal في ورقة العمل المسماة First Quarter في المصنف Budget Report.xls، المُخزن على إنترنت في الموقع المسمى example.microsoft.com/report. تعرض الخلية في ورقة العمل التي تحتوي على الارتباط التشعبي النص "انقر لمشاهدة First Quarter Department Total": =HYPERLINK("[http://example.microsoft.com/report/budget report.xls]First Quarter!DeptTotal", "انقر لمشاهدة First Quarter Department Total") لإنشاء ارتباط تشعبي لموقع معين في مستندMicrosoft Word، يجب عليك استخدام اشارة مرجعية لتعريف الموقع الذي تريد الانتقال إليه في المستند. ينشئ المثال التالي ارتباط تشعبي للإشارة المرجعية المسماة QrtlyProfits في المستند Annual Report.doc الموجود في الموقع . example microsoft.com: =HYPERLINK("[http://example.microsoft.com/Annual Report.doc]QrtlyProfits", "Quarterly Profit Report") في Excel لـ Windows يعرض المثال التالي محتويات الخلية D5 كنص الارتباط في الخلية ويفتح الملف 1stqtr.xls، الذي تم تخزينه على الملقم FINANCE الموجود في share Statements. يستخدم هذا المثال مسار UNC: =HYPERLINK("\\FINANCE\Statements\1stqtr.xls", D5) يفتح المثال التالي الملف 1stqtr.xls في Excel لـ Windows المخزن في دليل باسم Finance في محرك أقراص D، ويعرض القيمة الرقمية المخزنة في H10: =HYPERLINK("D:\FINANCE\1stqtr.xls", H10) في Excel لـ Windows، ينشئ المثال التالي ارتباط تشعبي ناحية Totals في مصنف الآخر (خارجي) Mybook.xls: =HYPERLINK("[C:\My Documents\Mybook.xls]Totals") في Microsoft Excel لماكنتوش، يعرض المثال التالي"انقر هنا" في الخلية ويفتح الملف المسمى First Quarter المخزن في مجلد Budget Reports على محرك الأقراص الثابت المسمى Macintosh HD (محرك الأقراص الثابت لماكنتوش): =HYPERLINK("Macintosh HD:Budget Reports:First Quarter", "Click here") يمكنك إنشاء ارتباطات تشعبية داخل ورقة عمل للانتقال من خلية إلى خلية أخرى. على سبيل المثال، إذا كانت ورقة العمل النشطة عبارة عن ورقة باسم June في المصنف Budget، تنشئ الصيغة التالية ارتباط تشعبي للخلية E56. يكون نص الارتباط نفسه هو القيمة في خلية E56. =HYPERLINK("[budget]June!E56", E56) للانتقال إلى ورقة أخرى في نفس المصنف، قم بتغيير اسم الورقة في الارتباط. في المثال السابق، لانشاء ارتباط للخلية E56 في الورقة September ، قم بتغيير الكلمة "June" إلى "September." انظر الى المرفق HYPERLINKاستخدام الدالة.rar

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

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

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

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

السلام عليكم استخدمنا زر واحد للتعديل والاضافة Private Sub CommandButton21_Click() Dim R As Integer, RR As Integer Dim M As String, MM As String, M1 As String, MM1 As String, S As String, SS As String '----------------------------- M = "Customer information has been Saved": MM = "New Customer" M1 = "Supplier information has been Updated ": MM1 = "information Update" '----------------------------- If ComboBox1 = "" Then MsgBox "خلية الكود فارغة", vbCritical, "تنبيه": GoTo 1 Application.ScreenUpdating = False With Sheets("Data") '---------------- If ComboBox1.ListIndex = -1 Then _ RR = .Range("A" & .Rows.Count).End(xlUp).Row + 1: S = M: SS = MM _ Else RR = ComboBox1.ListIndex + 3: S = M1: SS = MM1 '---------------- For R = 0 To 9 .Cells(RR, R + 1).Value = Me.Controls(MyArray(R)).Value Next R End With Application.ScreenUpdating = True MsgBox S, vbSystemModal, SS 1 End Sub تفضل المرفق REMITANCE FORM2.rar

السلام عليكم من اين ناتي بالشهر ؟ هل اسماء الشيتات هي الشهور؟؟

السلام عليكم الاخ الفاضل / زيد علي ----------حفظه الله الاخ الفاضل / خالد القدس -------حفظه الله الاخ الفاضل / NADER ------------حفظه الله الاخ الفاضل / عادل -------------حفظه الله الله يبارك فيكم اخواني الاكارم تقبلوا تحياتي وشكري

السلام عليكم لقد اخبرتك انني استخدم اوفيس 2003 وساعطيك الحل حسب امكانياتي وامكانيات هذا الاوفيس لان اوفيس 2007 قد يكون فيه امكانيات احسن من كده تفضل المرفق نسخة من Xl0000002.rar

السلام عليكم بارك الله فيك اخي طارق تقبل تحياتي وشكري

شكرا اخي قصي اين انتم وغيركم من المدرسين فقد اطلتم الغيبة عن المنتدى

وعليك السلام شاهد هذا الرابط لتتعرف على الاسباب : http://www.officena.net/ib/index.php?showannouncement=16&f=14

وعليكم السلام ورحمة الله وبركاته اخي الفكرة اساسا غير مفهومة !!!!! وايضا المرفق ليس فيه ما يساعد على فهم ماتريد اما عن هذاالكلام: فلا تفكر فيه اطلاقا فنحن هنا وغيرنا من الاخوة الافاضل لنتعلم ونعلم إن شاء الله وان استطعنا ذلك لنكسب اجرا وثوابا من رب العباد ولو سالت مثلا 1+1= كام سنجيبك وسيجيبك غيرنا فهل ترى في هذا السؤال ما يثير الاهتمام؟ ما دمنا سنكسب اجرا فهو مثير للاهتمام ================================== المطلوب ان ترسل ملفا فيه القوائم بتعتك وتحدد الموضع الذي تريد خلاصة هذه القوائم فيه ومثاللا بيسطا للقائمة المطلوبة ولو ارفقت ملفا معمول 2003 سنكون لك شاكرين لانه ليس لدينا اوفيس 2007 ارجوا ان اكون اشلت ما في نفسك من عوارض عدم الرد ودمتم في حفظ الله

السلام عليكم كانت العناصر داخل الفورم غير مرتبة من الافضل استخدام Array لتضمين اسماء العناصر بترتيب متتابع MyArray = Array("ComboBox1", "TextBox1", "TextBox2", "TextBox3", "TextBox4", "TextBox5", "TextBox6", "TextBox7", "TextBox8", "TextBox9") شاهد المرفق REMITANCE FORM.rar

السلام عليكم بارك الله فيك تقبل تحياتي وشكري

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

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

السلام عليكم حسب ما فهمت من طلبك استخدم الكود التالي: Sub Macro1() Dim Kh_Code As String Kh_Code = Range("F2").Text ActiveSheet.PivotTables("PivotTable1").PivotFields("Sales Man No").CurrentPage _ = Kh_Code End Sub

السلام عليكم ورحمة الله وبركاته بعد ارجاع دينار لكل شخص أصبح كل منهم يدفع 9 دنانيير بواقع 27 دينار ثمن الرائي ( 25 ما دفع سابقا زايدا 2 دينار لسيارة الأجرة) وثلاثة دنانير اعيدت اليهم اصبح المجموع 30 دينار