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

السلام عليكم ورحمة الله وبركاته رايت هناك حاجة لشرح بعض أدوات الفورم لاخواني بالمنتدي حتي يتمكنوا من معرفة كل اداة ووظيفتها ومثال عليها لكي يتمكنوا من عمل فورم بانفسهم وسوف ابدا خطوة خطوة بشرح كل اداة بمثال عملي الدرس الأول Tree View Control وهي تقوم بعرض البيانات علي صورة شجرة مثال الشرح والتطبيق بالمرفقات TreeViewControl.rar

رجو ان تساهم في ادراج قسم بالموقع تحت مسمى لغة لغة mql لانها لغة رائعة ولها تطبيقات رائعة http://www1.delta-search.com/?q=%D9%84%D8%BA%D8%A9+mql&affID=119529&tt=gc_&babsrc=SP_ss&mntrId=247918037338610B

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

http://www.kutub.info/library/category/19

السلام عليكم في البداية كل عام والجميع بالف خير تقرير يستخدم لتسجيل الحضور والغياب كيف يمكن ملئ هذه الحقول بايام الاسبوع والتاريخ لشهر معين يتم اختياره بدون يوم الجمعة من الشهر مثلا اذا كان لدينا الشهر تشرين الاول يبدأ من الثلاثاء 1 / 10 وهكذا صعودا وعندما ياتي شهر اخر اختار الشهر ويتم تلقائيا تعبئة الحقول مثال.rar

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

السلام عليكم الشكر واصل للجمع المبارك...جزاكم الله خيرا لاثراء الموضوع ولزيادة الحلول Sub Adr1() kh1_Hidden 2 End Sub Sub Adr2() kh1_Hidden 302 End Sub Sub Adr3() kh1_Hidden 602 End Sub Sub Adr4() kh1_Hidden 902 End Sub Sub kh1_Hidden(Adr) With Sheet1 .Rows(2 & ":" & .Rows.Count).Hidden = True .Rows(Adr).Resize(300).Hidden = False .Activate .Cells(Adr, "A").Select End With End Sub المرفق 2003 الاخفاء-kh.rar

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

السلام عليكم يتم استخراج البيانات لكل القيم الفريدة في العمود بي للورقة Data1 Option Explicit Private Const ContColmn As Integer = 5 '====================================================== '====================================================== Sub kh_Report() Dim obj As Object Dim Ar() As Double, XX() As Double, X() As Double Dim v As Double, vv As Double Dim Rng As Range Dim LastRow As Long, iCont As Long Dim i As Long, ii As Long, iii As Long, R As Long Dim C As Integer Dim tx '''''''''''''''''''''' On Error GoTo kh_ex Set obj = CreateObject("Scripting.Dictionary") ''''''''''''''''''''' '============================================ kh_Clear '============================================ With æÑÞÉ2 LastRow = .Cells(Rows.Count, "A").End(xlUp).Row Set Rng = .Range("A1:D" & LastRow) End With '============================================ ReDim Ar(1 To ContColmn - 1) For C = 1 To ContColmn - 1 Ar(C) = Range("B1").Cells(1, C).Value Next tx = Range("F1").Value '============================================ kh_Application False With Rng .Sort .Columns(2), xlAscending For i = 1 To .Rows.Count v = .Cells(i, "B").Value vv = Val(.Cells(i, "D")) If obj.Exists(v) Then iii = obj(v) '''''''''''''''''' If .Cells(i, "C").Value = tx Then For C = 1 To ContColmn - 1 If .Cells(i, "A").Value = Ar(C) Then XX(C + 1, iii) = XX(C + 1, iii) + vv Next End If Else ii = ii + 1 ReDim Preserve XX(1 To ContColmn, 1 To ii) obj.Add v, ii '''''''''''''''''' XX(1, ii) = v If .Cells(i, "C").Value = tx Then For C = 1 To ContColmn - 1 If .Cells(i, "A").Value = Ar(C) Then XX(C + 1, iii) = vv Next End If End If Next End With ''''''''''''''''''''''''''''''' iCont = obj.Count If iCont Then Erase Ar ReDim Ar(1 To ContColmn - 1) ReDim X(1 To iCont, 1 To ContColmn) For i = 1 To iCont X(i, 1) = XX(1, i) For C = 1 To ContColmn - 1 Ar(C) = Ar(C) + XX(C + 1, i) X(i, C + 1) = Ar(C) Next Next With Range("A2").Resize(iCont, ContColmn) If iCont > 1 Then .Rows(1).AutoFill .Cells, xlFillFormats .Value = X End With ''''''''''''''''''''''''' End If '============================================ kh_ex: kh_Application True '''''''''''''''''' '''''''''''''''''' '''''''''''''''''' Set obj = Nothing Set Rng = Nothing Erase XX, X, Ar '''''''''''''''''' If Err Then MsgBox "Err.Number : " & Err.Number Err.Clear End If End Sub شاهد المرفق 2010 Ex1.rar

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

جزاك الله كل خير على هذا الدعاء ولك بالمثل اضعاف مضاعفه وفقك الله تقبل تحياتي وشكري

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