alma_fandi

9 hours ago, Khalf said:

لا عليك فالطريق ليست قصيرة 

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

و لا مجال لذكر السبب الذي دفعني لذلك .

و قد شاهدت عشرات اليوتيوبات و تصفحت الكثير من المواقع .

هذه مشكلة التعليم الذاتي فالجهد المبذول و الوقت المصروف يفوق أضعافاً مضاعفة ما يمكن أن يبذل في أي معهد .

الفكرة صديقي
انا دخلت منتديات  اجنبية والصراحة شفت منهم الافضل من عنا

مشرف بيدخل بيحكيلك شو تعمل هون المشرف ما بعرف اسمه 

عنا احتكار للمعلومة

اذا انا مهتمة بموضوع  فلان  بشارك مو مهتمة بطلع  بعوني وبهرب

انا لما بنزل بوست وبحكي هاد فيديو لحدن عمله  ومو راضي يزبط معي

بكون عاطية  حلول بس مو عرفانة خطاي وين 

اشي بحزن انه  المنتديات الاجنبية افضل من  عنا وما في دين  بيجمعهم  ولا  لغة

بتشوف كل اللغات  بترد عليك

شوف كل مواضيعي هما اتنين  يلي  بحكو وانا بحكي لهم  شكرا

مو المشكلة  بالتعليم الذاتي  المشكلة بلي بحكي لك ربع ساعه  يوتيوب ليعطيك كود اربع  سطور

وبتحكي معه بالكومت ما  برد

خليني اشتري برنامج  ع الفيجوال  بيسك ب100دولار  وريح راسي  

كل البرمجة اكواد معك كود بتشتغل ما معك بتضل  تطلب من هاد وهاد  وبتعاملو معك كانك من كفار  قريش

كانه حدن حاكيلهم انا سبب الانحباس الحراري

لو  المشرف حاب يعطيني بلوك مانى نددمانة

بالنهاية ما بشكر  الا

ali mohamed ali

ahmedkamelelsayed0

am3h80

بشكرك 

Khalf

حكيت كتير ....بعتذر عن اسلوبي

سلام

جربت كثير _____ البرنامج مو كوبي من النت  انا تابعت خطوة بخطوة  وعملت صفحة من البداية

7 hours ago, Khalf said:

مبدئياً الكود يحتوي تسميات غير موجودة في البرنامج

أعتقد أنه بحاجة إلى إعادة كتابة  .

مليت من البرنامج كله  الصراحة من  شهر وانا بفورمين

شفت  37  ساعه  يوتيوب

ودخلت 3 منتديات  و2  منتديات  اجنبية

الكل بدخل وبطلع 

رح احاول من جديد

اشكرك  جدا

اشكرك  ali mohamed ali  

اشكرك  سيد ali mohamed ali

اتعبتك معي  جدا

استاذي لاحظ انه الموظف  _ سائد + علي  

لا تضهر بياناته 😞

معقول جهازي بلزمه وندوز جديد

ممكن اتواصل معك  ع الواتس  ا ب ؟

مابعرف اذا في  طريقة ابعت لك الرقم  برايفت

اشكرك  سيد ali mohamed ali

هل من الممكن  البحث بانفراد

يعني انا بس  بدي يعرض حسب الاجراء فقط  مثلا بدون ما يعتمد ع اسم المؤسسة  او اسم الموظف

يعرض حسب اسم الموظف فقط  مثلا بدون ما يعتمد ع اسم المؤسسة  او الاجراء

يعرض حسب اسم المؤسسة  فقط  مثلا بدون ما يعتمد ع اسم المؤسسة  اوالاجراء

.

.

.

اتمنى تكون الفكرة واضحة

اشكرك سيد

am3h80

  ارسلت لك ع ايميل الياهو 

am3h80 @ ياهو  

  شوف اخر تعديل عملته

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

انا بستعمل  teamviwer

alma1(Recovered).xlsm

اذاممكن حد يدخل علي جهازي ( تيم فيوور  )  ويحل  لى البرنامج

كل الرنامج  فورمين  صرت  منزلة عشر  بوستات عشانهم 

  if any one can enter my laptop and solve my project problem by TeamViewer  

متت من النعس رايحة انام

سلام 

اشكرك  سيد احمد

مسحت الصف 8

نفس الخطا

السلام عليكم ورحمه الله وبركاته

بالمشاركة الماضية

ممكن  حد يشوف وين الخطا بالكود

المطلوب يبحث عن الاسماء  يبن بتاريخين

عملت كومبوبوكس 3 بحتوي على الاجراءات

  M ( الاجراء)الاسماء  بالعمود 

(تاريخ المتابعة j)والتاريخ بالعمود

بما انه ما  حد بيعرف كيف بنعملها ع الفورم 

عملت الفلتر  من خلال الشيت (sheet3 )

عملت الكود  وبشتغل داخل  المايكر و

بس ع الشيت (sheet3) بيعطي  خطا

alma3(Recovered).xlsm

مع الشكر

    او هاد الزد حصلته من المنتدى هاد

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

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

ما اشتغل   معي ( ممكن  المصدر تاع الكومبوكس خطا )

ممكن حد يشوف لى الموضوع ؟ 

alma_atend.rar

السلام عليكم ورحمه الله وبركاته

ممكن  حد يشوف وين الخطا بالكود

المطلوب يبحث عن الاسماء  يبن بتاريخين

عملت كومبوبوكس 3 بحتوي على الاجراءات

  M ( الاجراء)الاسماء  بالعمود 

(تاريخ المتابعة j)والتاريخ بالعمود

alma_atend.rar

.

13 hours ago, am3h80 said:

عزيزي @alma_fandi

الكود يعمل بشكل طبيعي عند كتابة اسم المؤسسة في التكست بوكس تظهر المؤسسة المراد البحث عنها

صديقي  البحث تمام شغال  مو مختلفين  لكن المطلوب يبحث عن المؤسسات  التي   ضمن تاريخ  محدد

يعني  انا  بدي يبحث  عن المؤسسات  التي  تحتوي  اسم  الما 1 بتاريخ 18-5- 2018

البرنامج  ببحث بكل شي  منفصل  يعني لو خلينا الاسم الما1 وبتاريخ    18-5-2018

بيعطي كل الاسماء  بالاعتماد على التاريخ  فقط

13 hours ago, am3h80 said:

واقترح بان يتم تغيير التكست بوكس إلي كومبو بوكس وتحميل أسماء المؤسسات به حتي يمكن للمستخدم تحديد المؤسسة المرادة دون أي أخطاء إملائية في كتابة اسم المؤسسة

المؤسسات  اكثر  من  300 الاختيار   بكون ممل



وهذا هو كود تحميل الكومبو بوكس الخاص بالفورمة

    'The Excel workbook and worksheets that contain the data, as well as the range placed on that data
   ' Dim wbBook As Workbook
    Dim WS As Worksheet
    Dim rnData As Range

    'Variant to contain the data to be placed in the combo box.
    Dim vaData As Variant
    'Initialize the Excel objects
    Set WS = ThisWorkbook.Worksheets("sheet1")
    'Set the range equal to the data, and then (temporarily) copy the unique values of that data to the L column.
    With WS
        Set rnData = .Range(.Range("b3"), .Range("b200").End(xlUp))
        rnData.AdvancedFilter Action:=xlFilterCopy, _
                          CopyToRange:=.Range("z1"), _
                          Unique:=True
                'store the unique values in vaData
       vaData = .Range(.Range("z2"), .Range("z200").End(xlUp)).Value
      
    
        'clean up the contents of the temporary data storage
       .Range(.Range("z1"), .Range("z200").End(xlUp)).ClearContents
 
    End With
    'display the unique values in vaData in the combo box already in existence on the worksheet.
    With ComboBox3
        '.Clear
        .List = vaData
        .ListIndex = -1
    End With
   
 

كما اقترح عمل كومبو بوكس أخر يتم إضافة فيه تواريخ أسم المؤسسة المختارة لسهولة الاستخدام

احترامي  سيد  am3h80

اشكرك  😊

لاحظ الصورة

عند البحث عن اسم مثلا  سامر بتاريخ  معين  تم عرض جميع  الاسماء بالتاريخ  المحدد بغض النضر عن اسم سامر  

اشكرك  😊 

نسخة  البرنامج مع  صورة للمطلوب

alma1(Recovered).rar

السلام عليكم ورحمه الله وبركاته

باللست بوكس

ممكن كود  بحث بشرطين

الشرط الاول  من خلال  كومبوكس

والشرط الثاني من خلال تكست بوكس

Untitled.bmp

اشكرك 

ممكن ايميل  نتواصل ؟

ما بعرف  الادارة  بتسمح  🤣                                            

السلام عليكم ورحمه الله وبركاته

ممكن  كود    

معاينه  قبل الطباعة   وطباعه   طباعه  محتويات

listbox1

 اليوزر فورم

مع الشكر

اشكرك 
,,,, لسا  مشكلتين                                                                                                

.

السلام عليكم ورحمه الله وبركاته

الرجاء الاطلاع على البرنامج

هنالك بعض الاخطاء

1-  almafandi    عند التعديل او الحفظ يتم تخزين البيانات بسطر جديد  بالفورم    

2- UserForm2  عمل التقارير  من خلال فورم  

اولا عرض  جميع المؤسسات  بغض النضر عن التاريخ بلست بوكس        

  ( j ) ثانيا عرض زيارة  المؤسسات  بالاعتماد على تاريخ  المتابعة  من  تشيت  2012عمود

3- لا يعرض البيانات الا اذا تم الدخول للمايكرو userform1 

a1 save ,next privias delete (Autosaved).xls

مع الشكر

للرفع

a1.rar

عليكم السلام ورحمه الله وبركاته

اشكرك  جدا

اعترف باني اتعبتك معي

عملت  فورم لكل صفحة

ممكن  تعدل  ع الكودات 

بارك الله فيك 

a1.rar