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

السلام عليكم ورحمة الله وبركاته أساتذتى الكرام : اللذين أدين لهم بالفضل والعرفان بكل ما تعلمته فى الإكسيل أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم كنترول الإعدادى رجب جاويش الإصدار رقم 15 للترمين والدور الثانى 2015 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى ملاحظات هامة يمكن إختيار الفرنسى للمحافظات المطبق عليها الفرنسى أو اختيار بدون للمحافظات التى لا يطبق عليها الفرنسى ويمكن اختيار الانجليزى مستوى رفيع للمادرس التجريبية يصلح لأى قرار وزارى سواء 313 أو 460 تحية لمنتدانا الغالى ولأعضائه الكرام وعذرا لأى خطأ أوسهو أخوكم رجب جاويش بعض واجهات البرنامج كنترول الإعدادى رجب جاويش الإصدار 15.rar

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

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

اخى الفاضل أبا اسماعيل تم عمل المطلوب باضافة زر Backup اسفل الحذف .. بمجرد الضغط عليه يتم انشاء نسخة احتياطية من شيت الفاتورة باسم الزبون في المسار C:\ExcelBackup لايلزم ان تقوم بانشاء المجلد فاذا لم يكن موجودا الكود يقوم بانشائه بالنيابة عنك تحياتي Invoice.rar

السلام عليكم حسب فهمي لطلبك اعتقد انك تحتاج الى جداو "تقاطعية" Crosstab لتجميع وفرز القيم ارجو الاطلاع على الاستعلام الذي انشأته باسم Query1 واتمنى ان تجد اجابتك. مع تحياتي student.rar

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

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

أخى الفاضل أبو حمزة جرب الملف المرفق لربما به طلبك .. حسب ما فهمت تحياتي serial.rar

لماذا الترحيل الى جدول جديد اعمل استعلام فقط يكفي

راجع هذا الرابط http://www.officena.net/ib/index.php?showtopic=56541&hl=

الأخ الفاضل ياسر خليل لا اجد من الكلمات لتحيتك ولكن ارفق لك ما هو جزائه ليس مع البشر لقول النبي صلى الله عليه وسلم : (( أحبّ الناس إلى الله أنفعهم للناس ، وأحبّ الأعمال إلى الله عز وجل سرور تدخله على مسلم ، أو تكشف عنه كربةً ، أو تقضي عنه دَيناً ، أو تطرد عنه جوعاً ، ولأن أمشي مع أخي المسلم في حاجة أحب إليَّ من أن أعتكف في المسجد شهراً ، ومن كفَّ غضبه سَتَرَ الله عورته ، ومن كَظَمَ غيظاً ولو شاء أن يُمضيه أمضاه ، ملأ الله قلبه رضاً يوم القيامة ، ومَن مشى مع أخيه المسلم في حاجته حتى يثبتها له ، أثبت الله تعالى قدمه يوم تزلُّ الأقدام ، وإن سوء الخُلُق ليُفْسد العمل كما يُفْسد الخلُّ العَسَل )) [ رواه ابن أبي الدنيا وحسَّنه الألباني ] . جعله الله في ميزان حساناتك

يمكن استخدام هذا التعبير وسوف اشرح لك بالتفصيل . National number: Right([yars];2) & "" & [NoAccepCentral] & "" & [field] لنفرض ان National number هو حقل الرقم القومي ونفترض نريد ان يظهر لنا هذا الحقل كالاتي : 134604 حيت ان 13 هو اخر رقمين من سنة 2013 . yars و الرقم 460 هو الرقم الجامعي للطالب .NoAccepCentral والرقم 4 هو القسم الذي يدرس فيه الطالب حاليا . field وهكذا يمكن ان تستمر الحقول ونستطيع استخدام دالة Right او Left وما عدد المحذوف من الرقم .

تفضل اخي ما تريد تجربة 1.rar

تفضل تجربة.rar

جيد استاذ طارق لكن انا اريدها ايضا بدون معادلة صفيف و استطيع ان احدّد عدد الارقام المطلوبة

اليك الحل لهذه المسألة شرط اوفسينا 1.rar

اخواني في المنتدى اليكم هذا الملف الذي ينصب لك مقلباً جميلاً اخفاء خلايا مع الوقت.rar

السلام عليكم ان شاء الله سوف تجدي هنا من يساعدك ويوصلك الى بر الامان

مجرد فكره ، كليك امام اسم من يحضر او من يغيب ممكن تفي بالغرض لو عجبتك ادعي لــ : ياسر باشا خليل test X.rar

ليس من المنطق ادخال حقول من النموذج الى التقرير وا لا فما هي فائدة الاستعلامات الاستعلامات هي التي ينى عليها التقرير , و اذا كان الحقل غير موجودا في الاستعلام لسبب ما , يكون الحل باستخدام الدوال في التقرير لحساب قيمة معينة

السلام عليكم تفضل نموزج فاتورة+بحث3.rar

لا شكر على واجب

نعم يمكنك انظر للمثال المرفق كل ما عبيك فعله هو 1- انسخ الخلية من الاكسل 2- اذاهب لملف الورد و انقر على خلية الجدول 3- اختر Paste -> Paste Special و اختر ما في الصورة: ملاحظة ===== اذا اردت تحديث البيانات يمكنك عن طريق الضغط على F9 حمل المرفق ... على كلا اول ما تفتح ملف الوورد سيخبرك ان عناوين الربط قد تغيرت فقط انقر على OK و بيتم تحديثها على المسار الصحيح...انظر للصورة لمزيد من الايضاح Link Excel into Word.zip

السلام عليكم 1> تعتمد هذه الفكرة على كلمة المرور المتغيرة عند فتح الملف سيظهر لك مربع حوار في أعلاه عدد مكون من خمسة أرقام (وهذا العدد متغير وليس ثابت) مثلا 10547 قم بضرب أول رقمين في آخر رقمين والناتج هي كلمة المرور الصحيحة في مثالنا ستكون كلمة المرور هي 10×47=470 كلمة المرور هي 470 انتيه ! لم نستعمل الرقم 5 في الحساب ولكن وضع للتمويه على المستخدم فقط 2> قمت بإخفاء كل الشيتات التي فيها الحسابات حتى لو تم تعطيل الماكرو ستكون شيتات الحساب كلها مخفية ويظهر شيت آخر فارغ 3> عند تغيير اسم الملف أو تغيير مكانه في الكمبيوتر فلن يعمل البرنامج وسيطلب كلمة المرور من المستخدم 4> لنفترض أنني عملت على هذا البرنامج وأغلفته ثم قام صديق لي في العمل بنسخ هذا البرنامج في فلاشه فلن يستطيع تشغيله على جهازه إلا إذا أعطيته أنا كلمة المرور يجب على صديقي أن يفتح البرنامج من على جهازه وفي نفس اللحظة يتصل بي لأعطيه كلمة المرور لأنه لو أقفل مربع الحوار (الذي سيظهر لإدخال كلمة المرور) بدون إدخال الكلمة أو أدخلها بالخطأ فستتغير كلمة المرور في المرة القادمة عندما يفتح البرنامج مع كل ما تقدم من الشرح إلا أن العمل قد لا يخلو من الخطأ أو الخلل فأرجو المعذرة جرب الملف تفضل أبوعيد.rar

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

أخى الفاضل ابو القبطان ملف رائع بكل معنى الكلمة ... ودالة رائعة .. عجبتنى جدا.. تسلم ايدك تحياتى

اليك اخي ملف يفي بكل ما يتعلق بالالوان منقول للأمانة دوال الالوان.rar

معذرة استاذي لم أنتبه لردك إلا بعد مشاركة الرد

في حدث زر ترحيل Cells(1, 1) = Me.TextBox1.Value

أخى الفاضل تفضل الملف المرفق، يتم ترحيل مدخلات مربع النص بالترتيب ابتداءا من A2 اذا كنت تريد ادخال البيانات في الخلية A1 فقط ... فقم بحذف +1 من السطر ده واحذف كافة بيانات العمود A سيتم الادخال في الخلية A1 فقط lr = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1 تحياتى ترحيل الى خلية.rar

وعليكم السلام احذف الجزء .TEXT او جرب الملف التالي الذي تم تعديله نموزج فاتورة.rar

السلام عليكم و رحمة الله وصلنا للخطوة الأخيرة مسح الفاتورة لحذف الفاتورة يجب جلب بياناتها اولا اضغط جلب فاتورة وادخل الرقم بعد جلب الفاتورة اضغط حذف يتم حذف بيانات الفاتورة Sub invoice_Kill() ' ÍÐÝ ÈíÇäÇÊ ÝÇÊæÑÉ Application.ScreenUpdating = False Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("mat") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 If WS.Range("J3") = "" Then GoTo 6 For FR = 10 To 50 LR1 = Val(WS.Cells(FR, 12)) If WS.Cells(FR, 12) = "" Then GoTo 7 WS1.Range("D" & LR1 & ":L" & LR1).ClearContents LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False WS.Select Application.ScreenUpdating = True 6 MsgBox "Êã ÍÐÝ ÈíÇäÇÊ ÇáÝÇÊæÑÉ THIS BILL DELETED" Application.Run "invoice_cleer" Range("E3").Select End Sub اضفنا بعض التنسيقات للورقة و اصبح جاهز للإستخدام نموزج فاتورة.rar

السلام عليكم و رحمة الله و بركاته اضفنا زر لتعديل بيانات الفاتورة بعد جلب بيات الفاتورة قم بتعديل ماتريد و امسح من الفاتورة الأصناف التي تريد مسحها ثم اضغط علة تعديل يتم تعديل البيانات مع الخزاص السابقة لأضافة فاتورة من ترحيل ثم طباعة ثم مسح بيانات الفاتورة Sub trhill_Tadeel() 'ÊÑÍíá ÇáÝæÇÊíÑ ÇáãÚÏáå Application.ScreenUpdating = False Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("mat") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 If WS.Range("J3") = "" Then GoTo 6 For FR = 10 To 50 LR1 = Val(WS.Cells(FR, 12)) If WS.Cells(FR, 12) = "" Then GoTo 7 WS1.Cells(LR1, 2) = WS.Range("E3").Value WS1.Cells(LR1, 3) = WS.Range("I3").Value WS1.Cells(LR1, 4) = WS.Range("E5").Value WS1.Cells(LR1, 12) = WS.Range("E7").Value WS.Range("D" & FR & ":J" & FR).Copy WS1.Range("E" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False WS.Select Application.ScreenUpdating = True 2 Range("A1:K53").PrintOut Copies:=1 Q1 = MsgBox("Êã ÍÝÙ ÈíÇäÇÊ ÇáÝÇÊæÑÉ æ ÌÇÑí ØÈÇÚÉ ÇáÝÇÊæÑÉ - åá ÊÑíÏ ØÈÇÚÉ äÓÎ ÇÎÑì", vbYesNo, "ØÈÇÚÉ") If Q1 = vbYes Then GoTo 2 6 Application.Run "invoice_cleer" Range("E3").Select End Sub

السلام عليكم ورحمة الله وبركاته اضفنا زر لمسح بيانات الفاتورة الحالية Sub invoice_cleer() 'مسح كامل بيانات الفاتورة و اضافة رقم فاتورة Sheets("invoice").Select Sheets("invoice").Unprotect Range("E3,J3,E5,E7,D10:H49,J10:J49,L10:L49").ClearContents Range("E3").FormulaR1C1 = "=NOW()" Range("F3").FormulaR1C1 = "=R3C5" ActiveSheet.PageSetup.PrintArea = "$B$2:$K$53" ActiveWindow.View = xlPageBreakPreview ActiveWindow.Zoom = 113 ActiveWindow.DisplayHeadings = False ActiveWindow.DisplayGridlines = False ActiveWindow.LargeScroll Down:=-99 ActiveWindow.LargeScroll ToRight:=99 Range("I3") = Range("L3") Range("E5").Select End Sub و اضفنا صورة الطباعة و الذي يعمل به الكود السابق من ترحيل زطباعة و مسح ثم اضفنا زر جلب البيانات لأي فاتورة بالضغط علية يظهر مربع نص تدخل به رقم الفاتورة المطلوبة ثم موافق يتم اظهار بيانات الفاتورة المطلوبة مع كتابة COPY بجوار رقم الفاتورة Sub GET_INV_NO() 'جلب بيانات الفاتوورة بالرقم Q1 = InputBox("INPUT BOLL No أدخل رقمالفاتورة المطلوبة", "جلب") Q1 = Val(Q1) Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("mat") WS.Select WS.Range("E3,E5,E7,D10:H49,J10:J49,L10:L49").ClearContents WS.Range("J3").Text = "نسخة Copy" WS.Unprotect LR1 = WS1.Range("c55555").End(xlUp).Row + 1 TR = 10 For FR = 4 To LR1 If WS1.Cells(FR, 3) = Q1 Then WS.Range("E3") = WS1.Cells(FR, 2).Value WS.Range("I3") = WS1.Cells(FR, 3).Value WS.Range("E5") = WS1.Cells(FR, 4).Value WS.Range("E7") = WS1.Cells(FR, 12).Value WS1.Range("E" & FR & ":K" & FR).Copy WS.Range("D" & TR).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False WS.Range("L" & TR) = FR TR = TR + 1 End If Next FR End Sub

السلام عليكم و رحمة الله وبركاته اخي الفاضل استفدنا من الكود الموجود وقمنا بعمل كود يقوم بـ4خطوات بضغطة واحدة ترحيل الفاتورة طباعة الفاتورة بعد الترحيل مسح الفاتورة زيادة رقم 1 لرقم الفاتورة بعد المسح Sub trhil_invoice() Application.ScreenUpdating = False Dim LR As Long, LR1 As Long Dim WS As Worksheet Dim WS1 As Worksheet Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("mat") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 Dim FR For r = 6 To LR1 If WS1.Cells(r, 3) = WS.Range("I3") Then MsgBox "This invoice already exist, No shift will done": Exit Sub Next For FR = 10 To 50 If WS.Cells(FR, 3) = "" Then GoTo 7 WS1.Cells(LR1, 2) = WS.Range("E3").Value WS1.Cells(LR1, 3) = WS.Range("I3").Value WS1.Cells(LR1, 4) = WS.Range("E5").Value WS1.Cells(LR1, 12) = WS.Range("E7").Value WS.Range("D" & FR & ":J" & FR).Copy WS1.Range("E" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False WS.Select Application.ScreenUpdating = True 2 Range("A1:K53").PrintOut Copies:=1 Q1 = MsgBox("Êã ÍÝÙ ÈíÇäÇÊ ÇáÝÇÊæÑÉ æ ÌÇÑí ØÈÇÚÉ ÇáÝÇÊæÑÉ - åá ÊÑíÏ ØÈÇÚÉ äÓÎ ÇÎÑì", vbYesNo, "ØÈÇÚÉ") If Q1 = vbYes Then GoTo 2 Range("E3,E5,E7,D10:H49,J10:J49").ClearContents Range("E3").Select ActiveWindow.SmallScroll Down:=-45 Range("I3") = Range("I3") + 1 End Sub آمل ان يكون به المطلوب نموزج فاتورة.rar

وعليكم السلام و رحمة الله وبركاته يتم الترحيل الى اي صفحة

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

ثانيا المحافظات التى لا يطبق عليها الفرنساوى كنترول الإعدادى رجب جاويش بدون الفرنساوى 2014.rar

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