اذهب الي المحتوي
أوفيسنا

alma_fandi

02 الأعضاء
  • Posts

    94
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

8 Neutral

عن العضو alma_fandi

البيانات الشخصية

  • Gender (Ar)
    أنثي
  • Job Title
    studant

اخر الزوار

886 زياره للملف الشخصي
  1. الفكرة صديقي انا دخلت منتديات اجنبية والصراحة شفت منهم الافضل من عنا مشرف بيدخل بيحكيلك شو تعمل هون المشرف ما بعرف اسمه عنا احتكار للمعلومة اذا انا مهتمة بموضوع فلان بشارك مو مهتمة بطلع بعوني وبهرب انا لما بنزل بوست وبحكي هاد فيديو لحدن عمله ومو راضي يزبط معي بكون عاطية حلول بس مو عرفانة خطاي وين اشي بحزن انه المنتديات الاجنبية افضل من عنا وما في دين بيجمعهم ولا لغة بتشوف كل اللغات بترد عليك شوف كل مواضيعي هما اتنين يلي بحكو وانا بحكي لهم شكرا مو المشكلة بالتعليم الذاتي المشكلة بلي بحكي لك ربع ساعه يوتيوب ليعطيك كود اربع سطور وبتحكي معه بالكومت ما برد خليني اشتري برنامج ع الفيجوال بيسك ب100دولار وريح راسي كل البرمجة اكواد معك كود بتشتغل ما معك بتضل تطلب من هاد وهاد وبتعاملو معك كانك من كفار قريش كانه حدن حاكيلهم انا سبب الانحباس الحراري لو المشرف حاب يعطيني بلوك مانى نددمانة بالنهاية ما بشكر الا ali mohamed ali ahmedkamelelsayed0 am3h80 بشكرك Khalf حكيت كتير ....بعتذر عن اسلوبي سلام
  2. جربت كثير _____ البرنامج مو كوبي من النت انا تابعت خطوة بخطوة وعملت صفحة من البداية مليت من البرنامج كله الصراحة من شهر وانا بفورمين شفت 37 ساعه يوتيوب ودخلت 3 منتديات و2 منتديات اجنبية الكل بدخل وبطلع رح احاول من جديد اشكرك جدا
  3. اشكرك سيد ali mohamed ali اتعبتك معي جدا استاذي لاحظ انه الموظف _ سائد + علي لا تضهر بياناته 😞 معقول جهازي بلزمه وندوز جديد ممكن اتواصل معك ع الواتس ا ب ؟ مابعرف اذا في طريقة ابعت لك الرقم برايفت
  4. اشكرك سيد ali mohamed ali هل من الممكن البحث بانفراد يعني انا بس بدي يعرض حسب الاجراء فقط مثلا بدون ما يعتمد ع اسم المؤسسة او اسم الموظف يعرض حسب اسم الموظف فقط مثلا بدون ما يعتمد ع اسم المؤسسة او الاجراء يعرض حسب اسم المؤسسة فقط مثلا بدون ما يعتمد ع اسم المؤسسة اوالاجراء . . . اتمنى تكون الفكرة واضحة
  5. اشكرك سيد am3h80 ارسلت لك ع ايميل الياهو am3h80 @ ياهو شوف اخر تعديل عملته اذا سمحت تدخل ع جهازي ونكمل البرنامج سوا بكون جواب مباشر لا استفسار انا بستعمل teamviwer alma1(Recovered).xlsm
  6. اذاممكن حد يدخل علي جهازي ( تيم فيوور ) ويحل لى البرنامج كل الرنامج فورمين صرت منزلة عشر بوستات عشانهم if any one can enter my laptop and solve my project problem by TeamViewer متت من النعس رايحة انام سلام
  7. اشكرك سيد احمد مسحت الصف 8 نفس الخطا
  8. السلام عليكم ورحمه الله وبركاته بالمشاركة الماضية ممكن حد يشوف وين الخطا بالكود المطلوب يبحث عن الاسماء يبن بتاريخين عملت كومبوبوكس 3 بحتوي على الاجراءات M ( الاجراء)الاسماء بالعمود (تاريخ المتابعة j)والتاريخ بالعمود بما انه ما حد بيعرف كيف بنعملها ع الفورم عملت الفلتر من خلال الشيت (sheet3 ) عملت الكود وبشتغل داخل المايكر و بس ع الشيت (sheet3) بيعطي خطا alma3(Recovered).xlsm مع الشكر
  9. او هاد الزد حصلته من المنتدى هاد Private Sub ComboBox1_Change() Dim MyValue Dim ib As Boolean Dim R As Integer, i As Integer, ii As Integer Dim dt1 As Date, dt2 As Date Dim LastRow As Integer LastRow = Range("h65536").End(xlUp).Row Me.ListFind.Clear If IsDate(Me.TextDate1) Then dt1 = DateValue(Me.TextDate1) Else dt1 = WorksheetFunction.Min(Range("j2").Resize(LastRow)): Me.TextDate1 = Format(dt1, DateFormt) If IsDate(Me.TextDate2) Then dt2 = DateValue(Me.TextDate2) Else dt2 = WorksheetFunction.Max(Range("j2").Resize(LastRow)): Me.TextDate2 = Format(dt2, DateFormt) '------------------------- With Range("A1") For R = 2 To LastRow Select Case .Cells(R, 3).Value2: Case dt1 To dt2 If Len(Trim(Me.ComboBox1)) Then ib = CStr(.Cells(R, 1)) = CStr(Me.ComboBox1) Else ib = True If ib Then Me.ListFind.AddItem For i = 1 To ContColmn If IsDate(.Cells(R, i)) Then MyValue = Format(.Cells(R, i).Value2, DateFormt) Else _ MyValue = .Cells(R, i).Value2 Me.ListFind.List(Me.ListFind.ListCount - 1, i - 1) = MyValue Next End If End Select Next End With End Sub هاد الكود انا حصلته من المنتدى هون عدلت عليه بس بدون فايدة form2.xls
  10. Private Sub DTPicker2_CloseUp() Me.ListBox1.Clear Dim i As Long For i = 2 To Sheet1.Range("j0000").End(xlUp).Offset(1, 0).Row If Sheet1.Cells(i, "m").Value = Me.ComboBox1.Value And Sheet1.Cells(i, "j").Value >= _ Me.DTPicker1.Value And Sheet1.Cells(i, "a").Value <= Me.DTPicker2.Value Then Me.ListBox1.AddItem Sheet1.Cells(i, 1).Value For x = 1 To 6 Me.ListBox1.List(ListBox1.ListCount - 1, x) = Sheet1.Cells(i, x + 1).Value Next x End If Next i End Sub هلاء هاد الكود رفع ضغطي حصلته من اليوتيوب https://www.youtube.com/watch?v=kpZkxToQfrk ما اشتغل معي ( ممكن المصدر تاع الكومبوكس خطا ) ممكن حد يشوف لى الموضوع ؟
  11. السلام عليكم ورحمه الله وبركاته ممكن حد يشوف وين الخطا بالكود المطلوب يبحث عن الاسماء يبن بتاريخين عملت كومبوبوكس 3 بحتوي على الاجراءات M ( الاجراء)الاسماء بالعمود (تاريخ المتابعة j)والتاريخ بالعمود alma_atend.rar
  12. يعني انا بدي يبحث عن المؤسسات التي تحتوي اسم الما 1 بتاريخ 18-5- 2018 البرنامج ببحث بكل شي منفصل يعني لو خلينا الاسم الما1 وبتاريخ 18-5-2018 بيعطي كل الاسماء بالاعتماد على التاريخ فقط احترامي سيد am3h80
×
×
  • اضف...

Important Information