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

بسم الله والحمد لله ولا اله الا الله والله اكبر الحمد لله رب العالمين الحمد الله الذى تتم بنعمته الصالحات شكر وتقدير لكل معلمينا فى هذا الصرح الشامخ على وجه العموم وشكر خاص لكل من المعلمين [ ابو خليل , جعفر , يوسف , رمهان , ابا عمر , رضوان , عبد الرحمن هاشم , ابو الاء , علي المصري , راعى الغنم , اخر الارض ] على وجه الخصوص واختص اصحاب البرامج اومن قدم يد العون والمساعده فى تطويرها والاضافة اليها نظام المستخدمين الخاص بالاستاذ مهند العبادى تعديل العبد الفقير الى الله اضافة التحكم بالعناصر لكل مستخدم ضمن نظام المستخدمين الاستاذ ابو خليل تصغير القاعدة بجوار الساعه مع الاحتفاظ بأيقونة الاكسس عند التكبير على شريط المهام وعدم ظهور الاطار عند الضغط عليها الاستاذ ناصر - تعديل الاستاذ ابا عمر البحث والفلترة وتظليل ناتج البحث ---- الأستاذ رمهان والاستاذ اباعمر اخفاء اطار الاكس نهائيا - الاستاذ ابا عمر http://im56.gulfup.com/0Q9Ybe.jpg اهاا نسيت شئ اسم كل مستخدم هو نفسه الباسورد لفتح القاعده المرفق بعد تعديل عناوين الراوبط ليشمل كل من تنسيق اوفيس 2000-2003 Access Loge in Hide Win2000-2003.rar وتـــــــــنسيق اوفيس 2007-2013 Access Loge in Hide Win 2007-2013.rar << تم تحديث الروابط (الإدارة) >>

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

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

لو أمكن إرفاق الملف للبحث في سبب المشكلة فليس منطقيا أن يحدث هذا وليس لنا معرفة السبب بدون فحص

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

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

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم مع تحياتي اخيكم // ضاحي الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

ممتاز الله ينور للامام

السلام عليكم ورحمة الله وبركاته بارك الله فيك اخي الكريم استاذ ياسر ودائماً الى الامام بكل ماهو جديد ومميز واسمح لي ان اوضح لاخونا السائل الاستاذ محيي الدين عن اول ما جال بخاطري عن هذا الكود احيانا قد نحتاج الى عرض تقرير معين لحساب معين باكثر من متغير كالتاريخ او اسم من قام بتسجيل البيان او ... او ... الخ وهو امر سهل وبسيط ومتعارف عليه ولكن ماذا لو كان المطلوب هو تقرير معين لاكثر من حساب وبمتغيرات محددة ؟؟؟ وهنا تبرز فائدة الكود وللتوضيح اكثر لنفترض ان لدينا قاعدة حفظ بيانات ( عبارة عن قيود يومية ) ولنفترض انني اريد عمل تقرير لمجموعة حسابات منتقاة كل حسب كوده في دليل الحسابات وذلك خلال فترة معينة لنوعية القيود التي تحمل النوع PAYABLES وتم اختيار ارقام الحسابات عن طريق ليست بوكس MULTI SELECTION وتم وضع هذه الارقام في صفحة محددة بشكل عمودي ولتكن صفحة بمسمى مؤقت وبتنفيذ الكود بالشكل التالي نحصل على المطلوب اولا : عمل تقرير لآخر رقم حساب في صفحة مؤقت وادراجه في صفحة التقارير ثانياً : حذف آخر سطر من صفحة مؤقت ثم تكرار الكود بنفس الخطوات مع مراعاة لصق النتائج الجديدة في آخر سطر بصفحة التقارير حتى يتم حذف كل ماهو موجود في صفحة مؤقت وبذلك نكون قد حصلنا على تقرير لاكثر من حساب مختار وباكثر من متغير ارجو ان تكون الفكرة واضحة تحياتي للجميع

بنحاول نجرب الأكواد أيضا يا أ / ياسر تلميذك

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

أخي الحبيب ياسر ممكن أعترض .. ايه فايدة الكود ؟؟!! طيب ما أهو أنا عشان بحب الكسل وأكيد إنت عارف كدا هحدد الأرقام ومن خلال التبويب Home أو Data وأرتب من A>Z مش كدا بردو بيتم عمل المطلوب من غير كود !! بحاول أشوف أي فايدة تانية للكود بس مش لاقي تقبل اعتراضي

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

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

يشرفنى دائما مرورك الكريم على موضوع لى أ / ياسر أطال الله عمرك وجزيت خيرا أيضا

شكرا بارك الله فيك

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

بارك الله فيك أخي الغالي ياسر فتحي كنت في بالي النهاردة .. لأني حسيت إنك غبت شوية عن المنتدى تسلم على الكود المفيد وإن شاء الله دايماً في انتظار المزيد

السلام عليكم و رحمة الله و بركاته .. khezzani64.rar

شوف الفيديو ده لتمكين الماكرو أو وضح طلبك بشكل أكثر تفصيلاً أخي عبد الله أبو الأنوار

بارك الله فيك وفي بلدك وفك كربك وكرب كل مسلم وجمعني معك في جنته جنة الفردوس الأعلى. اشكرك على الاهتمام

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

تسلم يا غالى , هو ده اللى كنت طالبه ^_^ جزاك الله خيراً :) دلوقتى عشان افهم , هو اللى حضرتك عملته هو انك لغيت العلاقة اللى كانت موجوده وضيفت فى حقل abaya number اللى موجود فى جدول sales invoice ضيفت الكود ده بعد التحديث Private Sub Abaya_Number_AfterUpdate() 'Dim D As String 'Me.Abaya_Number = D Me.Total_Price = DLookup("[Total Price]", "code_", "Abaya_Number=" & Me.Abaya_Number) 'Me.Total_Price = DLookup("Total Price", "Abaya Number", "[code_]='" & D & "'") End Sub بس كده , ولا فى حاجة تانية حضرتك عملتها ؟

اى تعديل تريده اخبرنى وليوفقنا الله على تعديله

تفضل اخى الكريم هذا هو برنامج بطريقة اجمل وبتنسيق احلى اعاننى الله على تصميمه لك فى نموذج فاتورة جديدة كل ما عليك هو كتابة التاريخ وسيحدث ا\رقم الفاتورة تلقائى 1 2 3 4 برنامج فواتير.rar

الأخ الفاضل محبوب الحمد لله أن تم المطلوب على خير ، وعذراً إن كنت قد تأخرت عليك يرجى تحديد أفضل إجابة ستجد أسفل كل المشاركات كلمة "تحديد كأفضل إجابة" يمكنك اختيار المشاركة التي بها حل لمشكلتك وتحديدها تقبل تحياتي

افضل مشاركة للاستاذ ياسر لو كل الاكواد كده الله يبارك لكم

ضع هذا الكود فى وحدة نمطية Public Function closeIfOpen() As Boolean Dim objWINMGMTS As Object Dim objApps As Object Dim objApp As Object Set objWINMGMTS = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2") Set objApps = objWINMGMTS.ExecQuery("select * from win32_process where name='osk.exe'") For Each objApp In objApps objApp.Terminate Next End Function وقم بعمل استدعاء لها فى احدث مثلا عند النقر لاى زر Call closeIfOpen

مشكور اخي الكريم وبارك الله فيك

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

طيب دى روابط تانية للاطمئنان واتمنى استبدال المرفق تسهيلا على رواد المنتدى بارك الله فيكم ميديا فاير توب4 توب التحميل من المرفق READ IT.txt

جزاك الله خير استاذ محمد ولكن عند تحميل المرفق 2003 ظهرت لي صفحة جوجل الحمراء المتعلقة بالامان وتحذير !!!؟؟

لازم يكون في حل وان شاء الله مايبخلو علينا في الحل ياغالي

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

اسم كل مستخدم هو نفسه الباسورد لفتح القاعده يعنى اسم المستخدم : Admin الباسورد : Admin اسم المستخدم : Developer الباسورد : Developer اسم المستخدم : User الباسورد : User اسم المستخدم : Viewer الباسورد : Viewer ملاحظة هامه : الازرار تختلف صلاحية فعاليتها من المستخدمن الادمن والمطور والمستخدم امممممممممم بالطريقه دى مش راح نحتاج لعمل باسورد على زر امر فقط كل مستخدم بكلمة المرور الخاصة به هو فقط وعلى حسب صلاحياته يتعامل مع المتاح له فقط - كما يمكن لكل مستخدم تغيير كلمة المرور الخاصة به قبل فتح البرنامج

ما تزعلش اخي ياسر هذا كود اخر (او بالاحرى كودين) واحد يجمع الصفوف الظاهرة و الثاني يجمع الاعمدة الظاهرة الكود الثاني موقف حاليا (يمكن تشعيله بازالة الفواصل منه) SUBTOTAL row.rar

الأخ الكريم محبوب أعتذر عن التأخر في الرد عليك ، فقد كنت منشغلاً .. إليك الشرح عله يفيدك إن شاء الله Sub YasserKhalil() 'تعريف المتغيرات Dim WBK As Workbook Dim SH As Worksheet, WS As Worksheet, Cell As Range 'إلغاء خاصية اهتزاز الشاشة Application.ScreenUpdating = False 'إلغاء خاصية رسائل التنبيه Application.DisplayAlerts = False 'سطر لفتح المصنف المسمى حسابات العملاء لجلب البيانات منه Set WBK = Workbooks.Open(ThisWorkbook.Path & "\حسابات العملاء.xlsx") 'حلقة تكرارية لكل أوراق العمل في المصنف الحالي الذي يحوي الكود For Each SH In ThisWorkbook.Sheets 'سطر لاستثناء ورقة العمل المسماة الفهرس من الحلقة التكرارية If SH.Name <> "الفهرس" Then 'مسح محتويات النطاقات المراد جلب البيانات إليها SH.Range("C6:F99,H6:I99").ClearContents 'حلقة تكرارية لكل أوراق العمل في المصنف المسمى حسابات العملاء For Each WS In WBK.Sheets 'سطر لاستثناء ورقة العمل المسماة الفهرس الرئيسي من الحلقة التكرارية If WS.Name <> "الفهرس الرئيسى" Then 'بدء التعامل مع كل ورقة عمل على حدا With WS 'إذا كانت أول خلية تحتوي على التواريخ فارغة يتم الانتقال لورقة العمل التالية If IsEmpty(.Range("A6")) Then GoTo 1 'سطر لتفادي حدوث خطأ أي استمرار عمل الكود في حالة حدوث خطأ On Error Resume Next 'حلقة تكرارية لنطاق التواريخ For Each Cell In .Range("A6:A" & .Cells(Rows.Count, 1).End(xlUp).Row) 'إذا كانت الخلية التي تحتوي على التاريخ ، الشهر بها يساوي رقم الشهر في ورقة العمل في المصنف الحالي 'وكذلك السنة الموجودة في التاريخ تساوي سنة 2015 يتم تنفيذ الأسطر التالية If Month(Cell.Value) = MonthNumber(SH.Name) And Year(Cell.Value) = 2015 Then 'يتم جلب التاريخ ووضعه في العمود الثامن في أوراق العمل في المصنف الحالي SH.Range("H" & SH.Cells(99, 8).End(xlUp).Row + 1) = Cell.Value 'يتم جلب اسم العميل ووضعه في العمود الثالث في أوراق العمل في المصنف الحالي SH.Range("C" & SH.Cells(99, 3).End(xlUp).Row + 1) = .Range("C2").Value 'يتم جلب قيمة القسط ووضعها في العمود الخامس في أوراق العمل في المصنف الحالي SH.Range("E" & SH.Cells(99, 5).End(xlUp).Row + 1) = Cell.Offset(, 2) 'يتم جلب قيمة الكوبري ووضعها في العمود السادس في أوراق العمل في المصنف الحالي SH.Range("F" & SH.Cells(99, 6).End(xlUp).Row + 1) = Cell.Offset(, 3) 'يتم جلب رقم التليفون ووضعه في العمود التاسع في أوراق العمل في المصنف الحالي SH.Range("I" & SH.Cells(99, 9).End(xlUp).Row + 1) = .Range("M8").Value 'انتهاء أسطر الشرط End If 'الانتقال للخلية التالية التي تحوي تاريخ Next Cell 'انتهاء التعامل مع ورقة العمل من المصنف المسمى حسابات العملاء استعداداً للتعامل مع ورقة عمل جديدة 1 End With End If 'الانتقال لورقة عمل جديدة في المنصف المسمى حسابات العملاء Next WS End If 'الانتقال لورقة عمل جديدة في المصنف الحالي Next SH 'إغلاق المصنف المسمى حسابات العملاء بدون حفظ التغييرات WBK.Close SaveChanges:=False 'إعادة تفعيل خاصية رسائل التنبيه Application.DisplayAlerts = True 'إعادة تفعيل خاصية اهتزاز الشاشة Application.ScreenUpdating = True End Sub تقبل تحياتي

أخي الحبيب علاء رسلاااااااان الحمد لله تم بحمد الله وعونه وتوفيقه الانتهاء من المرحلة السابعة (كأننا بنركب فلتر مية .. ومش أي فلتر .. فلتر سبع مرااااااااااحل ) أخيراً انتهيت من هذا الملف اللي طلع عيني وخلاني مش شايف قدامي إليكم النسخة النهائية .. البيانات المفترض استخراجها تم استخراجها في ورقة عمل أخرى وهذا هو كود التجميع Sub FinalCollection() Dim I As Long, X As Long, Y As Long X = 2: Y = 3 Application.ScreenUpdating = False Application.Calculation = xlCalculationManual With Sheets("Collector") .Range("A2:E10000").ClearContents For I = 1 To Sheets("Data").Cells(Rows.Count, 1).End(xlUp).Row Step 3 .Cells(X, "A").Value = Sheets("Data").Cells(I, "B").Value .Cells(X, "B").Value = Sheets("Data").Cells(I, "C").Value .Cells(X, "C").Value = Sheets("Data").Cells(I + 1, "F").Value .Cells(X, "D").Value = Sheets("Data").Cells(I + 2, "J").Value .Cells(X, "E").Value = Sheets("Data").Cells(I + 2, "K").Value .Cells(Y, "A").Value = Sheets("Data").Cells(I, "D").Value .Cells(Y, "B").Value = Sheets("Data").Cells(I, "E").Value .Cells(Y, "C").Value = Sheets("Data").Cells(I + 1, "G").Value .Cells(Y, "D").Value = Sheets("Data").Cells(I + 2, "L").Value .Cells(Y, "E").Value = Sheets("Data").Cells(I + 2, "M").Value X = X + 2 Y = Y + 2 Next I End With Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub أرجو أن ينفع الملف صاحبه الأخ بكري (اللي يبدو إنه نسي موضوعه تماماً أو يأس من عدم الوصول لحل ..) ولا يدري أنه بالإصرار يتحول المحال إلى ممكن ، وهذا كله بفضل الله وحده ثم بفضل الله وحده فلولا توفيق الله ما استطعت أن أخطو خطوة واحدة ولا أن أصل إلى ما وصلت إليه فاللهم لك الحمد ربي لك الحمد ملء السماوات والأرض وملء ما بينهما وملء ما شئت من شيء بعد .. اللهم لك الحمد كما ينبغي لجلال وجهك وعظيم سلطانك .. اللهم لك الحمد حتى ترضى ولك الحمد إذا رضيت ولك الحمد بعد الرضى .. اللهم لك الحمد كله ولك الشكر كله وإليك يرجع الأمر كله .. تقبلوا تحياتي أخوكم أبو البراء Filter Data V7.rar

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

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

اتفضل اخي شوف المرفق ان شاء الله يكون هو المطلوب مثال.rar

أخي الفاضل إبراهيم السيد أهلا بيك في المنتدى ونورت بين إخوانك يرجى الإطلاع على رابط التوجيهات للضرورة .. مش مجرد روتين http://www.officena.net/ib/index.php?showtopic=60147 بالنسبة للفيل اللي نزلته (قدرت تنزله لوحدك ..بسم الله ما شاء الله .. بس الفيل تقيل يا جميل إزاي قدرت تنزله هههه ) بالنسبة لطلبك الموضوع في منتهى البساطة والشياكة إنت عندك في الخلية P1 موجود تاريخ حلو الكلام (قول حلو بس اوعاك تاكله ..) اللي حصل كالآتي .. الأخ اللي عمل الفايل حدد النطاق بالكامل من $A$1:$N$1000 من التبويب Home لو عندك إصدار أوفيس 2007 فما فوق .. هتلاقي Conditional Formatting أو بالعربي التنسيق الشرطي (بس دا ملوش علاقة بالشرطة ) افتح القايمة المنسدلة اللي جنب الكلمة واختار New Rule .. دا لو لسه مكانتش اتعملت اختار آخر اختيار في النافذة اللي اسمها New Formatting Rule والخيار اسمه Use a formula to determine which cells to format وهتكتب المعادلة التالية في الحقل اللي على يمينه سهم أحمر يا أهلاوي =$A1>=$P$1 المعادلة بتقول إن الخلية A1 أكبر من أو يساوي الخلية P1 (يعني التاريخ في A1 أكبر من أو يساوي التاريخ في الخلية P1 ..) لاحظ إن الخلية P1 قبلها علامة الدولار قبل اسم العمود وقبل رقم الصف (أصلها لسه خارجة من البنك ...) طبعاً لأن الخلية دي ثابتة ...أما الخلية A1 متغيرة يعني لما المعادلة تنطبق على باقي الخلايا طبيعي إننا نختبر كل الخلايا مش الخلية A1 بس عموما المعادلة بتكون نتيجتها يا أبيض يا إسود ..أقصد يا صح يا غلط .. أقصد يا True يا False يعني لما الشرط يتحقق ويكون التاريخ الموجود في الخلية A1 أكبر من التاريخ في P1 بيكون الناتج Tue ولما الناتج يكون صح بكدا الإكسيل هيسمع الكلام وينفذ المطلوب منه طيب ايه المطلوب من الإكسيل (دا إنت اللي بتحدده) إزاي هقولك ..ركز معاايا آخر حاجة كتبنا المعادلة ..دلوقتي هتلاقي زر أمر اسمه Format (عينك تاااااااهت ليه ) تحت الحقل اللي كتبت فيه المعادلة لما تنقر Format (اشرب فوسفات وانسى اللي فات) هتلاقي فيه تبويبات في النافذة اللي طلعت (تدخل على أي تبويب ... والمشهور التبويب Fill بتاع تلوين الخلية) واختار اللون اللي يعجبك وبعدين تضغط أوك 3 مرات .... أرجو أن تكون قد استفدت أخوك أبو البراء

جرب رفع الملف هذا !! شوف النتائج في الصور المتحركة: جعفر 66.BarcodeStudent.mdb.zip

الأخ الفاضل لم أقصد بالملف المرفق أن تقوم بنسخ الكود في ملف نصي وتضعه ..بل أن ترفق ملف الإكسيل الذي به الكود !!!! ويرجى ضغط الملف ورفعه على سيرفر المنتدى ..بلاش الروابط الخارجية راجع التوجيه الثاني عشر http://www.officena.net/ib/index.php?showtopic=60147

مع اني معارض فكرة إعطاء تقرير عن المتأخرين (مو انا كنت منهم ايام زمان ) ، ولكن تفضل: جعفر 66.BarcodeStudent.accdb.zip

تم تطوير الكود لاحظ الخلية AC36 و AD33 تحياتي قمة وقاع5.rar

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

كود للتنقل بين الصفحات مهما تغيرت اسماؤها جزاكم الله خيرا [/color][/size][/center] [size=6][color=#0000CD] ' ' åÐÇ ÇáßæÏ ááÚÇáã ÇáÚáÇãÉ ÛÈÏ Çááå ÈÇÞÓíÑ [/color][/size] [size=6][color=#0000CD]Sub GO_TO() On Error Resume Next Application.CommandBars("Workbook Tabs").Controls("More Sheets...").Execute If Err.Number > 0 Then Err.Clear Application.CommandBars("Workbook Tabs").ShowPopup End If ActiveWindow.ScrollColumn = 1 ActiveWindow.ScrollRow = 1 On Error GoTo 0 End Sub لاادري لماذا تظهر اللغة العربية بهذه الصورة التنقل بين الصفحات.rar

بعض اختصارت لوحة المفاتيح المفيدة إدراج ورقة عمل جديدة. SHIFT+F11 أو ALT+SHIFT+F1 الانتقال إلى الورقة التالية في المصنف. CTRL+PAGE DOWN الانتقال إلى الورقة السابقة في المصنف. CTRL+PAGE UP تحديد الورقة الحالية والتالية. لإلغاء تحديد عدة أوراق، اضغط على CTRL+PAGE DOWN أو، لتحديد ورقة أخرى، اضغط على CTRL+PAGE UP. SHIFT+CTRL+PAGE DOWN تحديد الورقة الحالية والسابقة. SHIFT+CTRL+PAGE UP إعادة تسمية الورقة الحالية (القائمة تنسيق، القائمة الفرعية ورقة، الأمر إعادة تسمية). ALT+O H R نقل الورقة الحالية أو نسخها (القائمة تحرير، الأمر نقل الورقة أو نسخها). ALT+E M حذف الورقة الحالية (القائمة تحرير، الأمر حذف ورقة). ALT+E L عرض القائمة أو الرسالة الخاصة بالعلامة الذكية. في حالة وجود أكثر من علامة ذكية واحدة، قم بالتبديل إلى العلامة الذكية التالية وقم بعرض القائمة أو الرسالة الخاصة بها. ALT+SHIFT+F10 تحديد العنصر التالي في قائمة العلامة الذكية. السهم إلى الأسفل تحديد العنصر السابق في قائمة العلامة الذكية. السهم إلى الأعلى تنفيذ الإجراء الخاص بالعنصر المحدد الموجود في قائمة العلامة الذكية. ENTER إغلاق القائمة أو الرسالة الخاصة بالعلامة الذكية. ESC إدراج ورقة عمل جديدة. SHIFT+F11 أو ALT+SHIFT+F1 الانتقال إلى الورقة التالية في المصنف. CTRL+PAGE DOWN الانتقال إلى الورقة السابقة في المصنف. CTRL+PAGE UP تحديد الورقة الحالية والتالية. لإلغاء تحديد عدة أوراق، اضغط على CTRL+PAGE DOWN أو، لتحديد ورقة أخرى، اضغط على CTRL+PAGE UP. SHIFT+CTRL+PAGE DOWN تحديد الورقة الحالية والسابقة. SHIFT+CTRL+PAGE UP إعادة تسمية الورقة الحالية (القائمة تنسيق، القائمة الفرعية ورقة، الأمر إعادة تسمية). ALT+O H R نقل الورقة الحالية أو نسخها (القائمة تحرير، الأمر نقل الورقة أو نسخها). ALT+E M حذف الورقة الحالية (القائمة تحرير، الأمر حذف ورقة). ALT+E L التنقل والتمرير داخل ورقة العمل الانتقال بمقدار خلية واحدة لأعلى، أو لأسفل، أو لليسار، أو لليمين مفاتيح الأسهم التحرك بمقدار خلية واحدة إلى اليمين. TAB التحرك بمقدار خلية واحدة إلى اليسار. SHIFT+TAB للانتقال إلى حافة منطقة البيانات الحالية. CTRL+مفتاح سهم الانتقال إلى بداية الصف HOME الانتقال إلى بداية ورقة العمل CTRL+HOME الانتقال إلى آخر خلية في ورقة العمل، لأقصى صف تم استخدامه في الأسفل لآخر عمود تم استخدامه في أقصى اليسار. CTRL+END التحرك لأسفل بمقدار شاشة واحدة. PAGE DOWN التحرك لأعلى بمقدار شاشة واحدة. PAGE UP التحرك بمقدار شاشة واحدة إلى اليمين. ALT+PAGE DOWN التحرك بمقدار شاشة واحدة إلى اليسار. ALT+PAGE UP التبديل إلى الجزء التالي في ورقة عمل المنقسمة (باستخدام القائمة إطار، الأمر انقسام). F6 التبديل إلى الجزء السابق في ورقة عمل تم تقسيمها. SHIFT+F6 التمرير لعرض الخلية النشطة. CTRL+BACKSPACE عرض مربع الحوار الانتقال إلى. F5 عرض مربع الحوار بحث. SHIFT+F5 تكرار إجراء بحث الأخير (مثل بحث عن التالي). SHIFT+F4 التنقل بين الخلايا غير المؤمنة في ورقة عمل محمية. TAB التنقل داخل نطاق محدد التنقل من أعلى إلى أسفل داخل النطاق المحدد. ENTER التنقل من أسفل إلى أعلى داخل النطاق المحدد. SHIFT+ENTER الانتقال من اليمين إلى اليسار داخل النطاق المحدد. الانتقال إلى أسفل، إذا تم تحديد خلايا في عمود واحد. TAB الانتقال من اليسار إلى اليمين داخل النطاق المحدد. الانتقال لأعلى، إذا تم تحديد خلايا في عمود واحد. SHIFT+TAB الانتقال في عكس اتجاه عقارب الساعة إلى الزاوية التالية للنطاق المحدد. CTRL+نقطة التبديل إلى التحديد التالي الموجود على اليمين في التحديدات غير المتجاورة. ALT+CTRL+السهم إلى اليمين التبديل إلى التحديد التالي غير المتجاور الموجود على اليسار. ALT+CTRL+السهم إلى اليسار تشغيل وضع End أو إيقاف تشغيله. المفتاح END الانتقال بمقدار مجموعة بيانات واحدة في صف أو عمود. END+مفتاح السهم الانتقال إلى الخلية الأخيرة في ورقة العمل، الموجودة في آخر صف تم استخدامه لآخر عمود أيسر تم استخدامه. END+HOME الانتقال إلى الخلية غير الفارغة الموجودة على أقصى اليسار في الصف الحالي. لا تعمل المفاتيح بهذا الترتيب إذا قمت بتشغيل مفاتيح التحريك الانتقالية (القائمة أدوات، الأمر خيارات، علامة التبويب انتقال). END+ENTER التحريك والتمرير عند تشغيل المفتاح SCROLL LOCK في حالة استخدام مفاتيح التمرير (مثل PAGE UP و PAGE DOWN) عند إيقاف تشغيل المفتاح SCROLL LOCK ، يتم تحريك تحديد الخلية بمقدار المسافة التي تقوم بتمريرها. للتمرير دون تغيير أي من الخلايا المحددة، قم بتشغيل المفتاح SCROLL LOCK أولاً. تشغيل SCROLL LOCK أو إيقاف تشغيله. SCROLL LOCK الانتقال إلى الخلية الموجودة في الزاوية العلوية اليمنى للإطار. HOME الانتقال إلى الخلية الموجودة في الزاوية السفلية اليسرى للإطار. END

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