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

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

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

السلام عليكم أقدم لكم باقة منوعة من أفضل مواقع تعليم اللغة الإنجليزية بمستوياتها المختلفة مع بعض المواقع لعلوم أخرى مختلفة ، تحتوي مواقع اللغة الإنجليزية على شرح لقواعد اللغة بالكامل مع تمارين لتحديد مستوى الدارس - أيضا تعليم أسس نطق الكلمات ، والتعليم عن طريق الإستماع الصوتي و قراءة النصوص لتطوير مهرات الإستماع و التحدث مع الغير ،، بعض المواقع يشمل مقطوعات و نصوص تقرأ باللهجة الإنجليزية و الأمريكية لهواة تعلم اللهجات . أخيرا ،، نتمنى لكم التوفيق و الإستفادة من هذه المواد إنشاءالله و نسألكم نشرها و إرسالها لكل المتواجدين على إيميلكم الشخصي أو المهني لكي تعم الفائدة و الأجر للجميع إنشاء الله ،، و لا تنسونا بدعائكم .. والسلام عليكم ( إضغط على الرابط لفتح الموقع مباشرة أو قم بنسخه و إلصاقه بمتصفح الإنترنت الخاص بك لتتمكن من عرضة ) http://www.thelinguist.com/en/en/library/ <--- Audio & it's text passages http://www.dailygrammar.com/archive.shtml <---- Fully explained english gram plus exercises <--- Explained grammar - Audio & text passages - American idioms - Movie audio & scripts and other lessons.http://www.ompersonal.com.ar <--- Audio & text passages for all levels.http://www.alburaq.net/dictionary1/transform.cfm <----online translator <--- Free online English lessons & ESL / EFL resources ( Please check )http://www.languageguide.org/eng/ <---- learn English names from A to Z ( excellent for new learners & travellers ) http://www.voanews.com <--- Voice of america news - collection of news passages scripts with it's audio service to enhance your listening & speaking skills ( Very adviced ) http://www.almaktba.com <----- Good resource for different books & categories http://www.paulnoll.com/Books/Clear-Englis...-idioms-01.html <----- Learn american idioms http://www.english-grammar-lessons.com/ <-- Gram lessonshttp://a4esl.org/q/f/ <--- Online English grammar exams for all levels ( test yourself ) http://www.anglickynazivo.szm.sk/ <---- More than 50 different english websites with different teaching toolshttp://www.mp3quran.net/eng/ <--- Holy quran library http://www.eslmania.com/ <---- English lessons for Intermediate & advanced levels.http://www.better-english.com/exerciselist.html <-- advanced Business English Exercises http://www.dicts.info/2/english-arabic.php?e=mc2 <-- online dictionary from English to arabic & vice versa.http://www.freelearn.110mb.com/index.html <--- Learn Computer basic features plus other relevant applications - all lessons & courses are explained in arabic ( Hilghly recommended ) http://www.listen-to-english.com/ <--- listen to passages & read it's scripts http://quranexplorer.com/quran/ http://www.moon15.com/vb/archive/index.php/t-38702.html <-- <--- all abbreviations & codes for keyboard usage http://www.aouforum.org/forum/showthread.php?t=47963 <---- قائمة بافضل وابرز مواقع تعليم اللغة

السلام عليكم و رحمة الله و بركاته عندي نموذج احتاج ظهور التاريخ الهجري و الميلادي ممكن لمساعدة وشكراً

اخي الفاضل المبلغ المدفوع مجرد اله حساب مثلا زبون حسابه 95 دفع لك 100 انت تحط 100 في مربع المبلغ المدفوع ويظهر لك المتبقي له 5 في المتبقي بمعنى بالطريقة اللي ماشيين عليها حاليا في البرنامج عمود المبلغ المدفوع = المبلغ المعطى من الزبون احتمال يكون كما المبلغ المطلوب او يزيد ------------------------- او نضيف عمود مساعد للمتبقي المبلغ المدفوع - المتبقي = المبلغ المطلوب اذا اردت اعدل كما وضحت لك اوك منتظر ردك

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

شاهد المرفق -------------------------- به التعديل لاجمالي دخل اليوم -------------------------- استفسار حركة اليوم هل تريدها تترحيل بشكل اتوماتيك الى حركة الصندوق اخر كل يوم ام ترحلها يدوي بزر معبن وقت ماتريد ؟ برنامج_مقهى_3-1.rar

شكرا اخوي خالد على هذا الاطراء الذي لا استحقه رفع الله قدرك . اخي الحبيب ما انا الا ناقل ورب حامل فقه الى من هو أفقه منه المديول لاستاذنا القدير والغني عن التعريف http://www.officena.net/ib/index.php?showuser=58 اجزل الله له الثواب وغفر لنا وله .

المشكلة في نوع الحقل عند ربطه بالجدول يوجد طريقتين لتلافي المشكلة اما ان تستعيض عن الحقول الغير منضمة بمتغيرات وإما ان تتركها كماهي وتنشء حقولا بجانبها منضمة وفي كلا الطريقتين ستضمن الكود بعض الاسطر : x = me.feld او 2me.feld1 = me.feld

السلام عليكم أخي الفاضل / ابوملك الكود بعد التعديل (4 فصول) Sub Rnd_3_Col() Dim boy(999) As String, grl(999) As String, slct(999) As Integer Application.ScreenUpdating = False ' Read data b = 0: g = 0 LR = [B65536].End(xlUp).Row Range("D7:G" & LR).ClearContents For r = 7 To LR If Cells(r, 3) = "أ" Then g = g + 1: grl(g) = Cells(r, 2) ElseIf Cells(r, 3) = "ذ" Then b = b + 1: boy(b) = Cells(r, 2) End If Next r TN = b + g Randomize s = 0 ' s for selected For col = 4 To 6 ' Column D,E & F For i = 1 To TN / 4 10 x = Int(Rnd * TN) + 1 For ch = 1 To s If slct(ch) = x Then GoTo 10 Next ch s = s + 1: slct(s) = x ready_row = Cells(999, col).End(xlUp).Row + 1 If x > g Then x = x - g: dd = boy(x) Else dd = grl(x) Cells(ready_row, col).Value = dd Next i Next col ' Column G For i = 1 To TN For ch = 1 To s If slct(ch) = i Then GoTo 20 Next ch ready_row = Cells(999, 7).End(xlUp).Row + 1 If i > g Then x = i - g: dd = boy(x) Else dd = grl(i) Cells(ready_row, 7).Value = dd 20 Next i Application.ScreenUpdating = True End Sub والملف مرفق بعد التعديل (4 فصول) توزيع التلاميذ5.rar

السلام عليكم أخي الفاضل / ابوجادالله سأبدأ بالنقطة الثانية عندك حق ، وقد عدلت الكود كما يلي Sub Rnd_3_Col() Dim boy(999) As String, grl(999) As String, slct(999) As Integer Application.ScreenUpdating = False ' Read data b = 0: g = 0 LR = [B65536].End(xlUp).Row Range("D7:F" & LR).ClearContents For r = 7 To LR If Cells(r, 3) = "أ" Then g = g + 1: grl(g) = Cells(r, 2) ElseIf Cells(r, 3) = "ذ" Then b = b + 1: boy(b) = Cells(r, 2) End If Next r TN = b + g Randomize s = 0 ' s for selected For col = 4 To 5 ' Column D & E For i = 1 To TN / 3 10 x = Int(Rnd * TN) + 1 For ch = 1 To s If slct(ch) = x Then GoTo 10 Next ch s = s + 1: slct(s) = x ready_row = Cells(999, col).End(xlUp).Row + 1 If x > g Then x = x - g: dd = boy(x) Else dd = grl(x) Cells(ready_row, col).Value = dd Next i Next col ' Column F For i = 1 To TN For ch = 1 To s If slct(ch) = i Then GoTo 20 Next ch ready_row = Cells(999, 6).End(xlUp).Row + 1 If i > g Then x = i - g: dd = boy(x) Else dd = grl(i) Cells(ready_row, 6).Value = dd 20 Next i Application.ScreenUpdating = True End Sub وبالمرفق ستجد أن هذه النقطة قد إنضبطت مهما كان عدد الطلبة والطالبات اما النقطة الأولي التغيرات الذى تقوم به فى الكود حتى يتم التوزيع على سبع فصول مثلا فيلزمك عدة تغيرات في الكود (1) ستغير الرقم 3 إلي 7 في السطر : For i = 1 To TN / 3 ليكون For i = 1 To TN / 7 (2) وتغير أرقام الأعمدة التي ستتلقي البيانات في السطر السابق له For col = 4 To 5 ' Column D & E ليكون For col = 4 To 9 ' Column D to I (3) وتغير رقم العمود الأخير لتلقي البيانات في الجزء الأخير من الكود ' Column F For i = 1 To TN For ch = 1 To s If slct(ch) = i Then GoTo 20 Next ch ready_row = Cells(999, 6).End(xlUp).Row + 1 If i > g Then x = i - g: dd = boy(x) Else dd = grl(i) Cells(ready_row, 6).Value = dd 20 Next i ليكون ' Column J For i = 1 To TN For ch = 1 To s If slct(ch) = i Then GoTo 20 Next ch ready_row = Cells(999, 10).End(xlUp).Row + 1 If i > g Then x = i - g: dd = boy(x) Else dd = grl(i) Cells(ready_row, 10).Value = dd 20 Next i (4) وأخيرا ، تغير رقم المجال الذي يتم مسحه في بدايات الكود من Range("D7:F" & LR).ClearContents إلي Range("D7:I" & LR).ClearContents توزيع التلاميذ4.rar

السلام عليكم أخي الفاضل / shakhawan تفضل المرفق توزيع التلاميذ3.rar

الصق الكود التالي في مودويل في ملف تحليل البيانات على ان يكونو الملفين في فولدر واحد Private Const Nm As String = "بيانات شهرية.xlsm" Private Const Adr As String = "$A$4" Public Sub Ali_Tr() Dim Wb As Workbook Dim Wbc As Workbook Dim W As Worksheet Dim De$, Pth$ N = ThisWorkbook.Name Set Wbc = Workbooks(N) Pth = ThisWorkbook.Path & "\" & Nm If Not Is_Opn(Pth) Then Workbooks.Open Pth End If Set Wb = Workbooks(Nm) For Each W In Wb.Worksheets If W.Name = Wbc.Worksheets(1).Range(Adr).Text Then De = W.Name Exit For End If Next Wbc.Activate Application.EnableEvents = False With Wb.Worksheets(De) With Wbc Lr = .Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row .Activate .Sheets(1).Range(.Sheets(1).Cells(6, 1), .Sheets(1).Cells(Lr, 3)).Copy End With L = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row .Range("A" & L).PasteSpecial xlPasteValues Application.CutCopyMode = False MsgBox "تم ترحيل البيانات بنجاح", vbInformation, "" End With End Sub Function Is_Opn(FileName As String) Dim iFilenum As Long Dim iErr As Long On Error Resume Next iFilenum = FreeFile() Open FileName For Input Lock Read As #iFilenum Close iFilenum iErr = Err On Error GoTo 0 Select Case iErr Case 0: Is_Opn = False Case 70: Is_Opn = True Case Else: Error iErr End Select End Function الترحيل_A.rar

أخى العزيز // أبوعمرو جزاكم الله خيرا ومتعكم الله بالصحة والعافية تفبل وافر احترامى وتقديرى

شاهد المرفق --------------------- اي ملاحظة او تعديل ارجو طرحها المرفق الاول شرح الية العمل على البرنامج بعد التعديل المرفق الاخر البرنامج تحياتي شرح2.rar برنامج_مقهى_3.rar

الاخوة الاعزاء عند تنفيز ماكرة فى شيت له حمايه ظهرت رساله بوجود خطاء رقم 1004 وبتتبع الخطاء ظهر الاتى Cells(nr, "I").PasteSpecial Paste:=xlPasteValues ما المشكله وما حلها شاكر مجهود الجميع

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

وعليكم السلام تفضل يابو عبدالله DATe CH.rar

Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[ID] = " & Str(Nz(Me![comboName], 0)) If Not rs.EOF Then Me.Bookmark = rs.Bookmark موظفين2.rar

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

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