شوقي ربيع

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

السلام عليكم استاذي خالد القدس سعدت بمرورك العطر ولكلماتك الجميلة ولا شقاء عليك طول العمر ان شاء الله وليك طلبك سيدي الفاضل ملاحضة يجب ان تكون مسطب ل WindowsMediaPlayer في جهازك لكي يشتغل معك البرنامج تقبل تحياتي وشكري ترقبو النسخة الثانية للبرنامج في القريب ان شاء الله القرأن الكريم_اونلاين 2003.rar

شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=45870

هذا الكود للبحث عن البينات في العمود الاول ةاضهار النتائج في اليست فيو Private Sub Rabie_SearchNom() Dim M listviwlist With Me.ListView1 With .ColumnHeaders .Clear .Add , , Feuil1.Range("a1"), 246 End With .View = lvwReport .Gridlines = True .FullRowSelect = True .HideColumnHeaders = True .LabelEdit = 1 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' End With ListView1.ListItems.Clear M = TextBox1.Text If M = "" Then GoTo 1 With Feuil1 LR = .Cells(Rows.Count, 1).End(xlUp).Row Set A = Feuil1.Range("a2:a" & LR).Find(M) If Not A Is Nothing Then F = A.Address Do If Application.WorksheetFunction.Search(M, A, 1) = 1 Then With ListView1 .ListItems.Add , , A End With End If Set A = Feuil1.Range("a2:a" & LR).FindNext(A) Loop While Not A Is Nothing And A.Address <> F End If End With 1 End Sub

قلبى وعقلي معك استاذي سعيد بيرم

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

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

السلام عليكم اخي ابو جيداء يمكن استعمال التنسيق الشرطي لفعل ذالك وهذا مثال على ذلك اكتب اي شيىء في العمد A Classeur1.rar

ليس عليك حرجا استاذي احمد عبد الناصر

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

السلام عليكم شكرا اخي netcom199 على تشجيعك وعلى مرورك تقبل تحياتي وشكري

السلام عليكم بعد اذن الاستاذ احمد عبد الناصر جرب هذا =SI(A4=0;"0";SI(A4<=20;"20";SI(A4>20;"40";SI(A4<=40;"60")))) واعتقد ان الخاطاء هو خطاء منطقي خيث امر الاكسل امرين مختلفين انتيجة واحدة في قوله ""واذا كان المستخدم اقل او يساوي 20 يكون الهدر 20 "" ""واذا كان المستخدم اكبر او يساوي 20 يكون الهدر 40"" و الله اعلم

السلام عليكم استاذ خالد القدس تشرفت و سعدت بمرورك العطر تقبل تحياتي وشكري

فرضا لديك جدول بينات تريد ان يضهر كله وبتنسيقاته في ListView هذا الكود مستقى من احد الاكواد الخبورية لعمل المطلوب Private Sub UserForm_Initialize() Dim I, CEL, Y Set sh = Feuil1 LastRow = sh.Cells(sh.Range("A1").SpecialCells(xlCellTypeLastCell).Row + 1, 1).End(xlUp).Row LastColumn = sh.Cells(1, sh.Range("A1").SpecialCells(xlCellTypeLastCell).Column + 1).End(xlToLeft).Column With Me.ListView1 With .ColumnHeaders .Clear For I = 1 To 7 .Add , , sh.Cells(1, I), sh.Cells(1, I).Width Next End With .View = lvwReport .Gridlines = True .FullRowSelect = True .HideColumnHeaders = False .LabelEdit = 1 End With ListView1.ListItems.Clear With Feuil1 Set rng = sh.Range(sh.Range("a2"), sh.Cells(LastRow, 1)) For Each CEL In rng With ListView1 .ListItems.Add , , CEL For Y = 2 To LastColumn .ListItems(.ListItems.Count).ListSubItems.Add , , sh.Cells(CEL.Row, Y) Next End With Next End With End Sub هذا الكود لجلب محتويات جدول من 7 اعمدة وجميع الصفوف التي تحوي بينات في نطاق الاعمدة السبع حيث اسماء رؤس الاعمدة في اليست هي نفسها اسماء رؤس الاعمدة في الجدول عرض (Width)الاعمدة في اليست هي نفس العرض في الجدول للزيادة او انقاص في عدد الاعمدة غير في الحلقة التكرارية مثلا لجدول من 10 اعمدة نغي For I = 1 To 7 الىFor I = 1 To 10 ارجو ان تكون الفكرة قد وصلت

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

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

تفضل اخي البرنامج المعرب ولاي استفسار انا في الخدمة امر بمهمة.rar

السلام عليكم اخي ساعد عابد ما اجملك من انسان وما اجمل تهليلك سعدة بمرورك المبهج جزاك الله خيرا

بسيطة يا اخي سوف اعربه لك ويكون جاهز في الغد انشاء الله

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

السلام عليكم الاخ الحبيب ضاحي الغريب (القلب النابض للمنتدى) والله اخجلتني بكلماتك الجميلة هته سعدت بمرورك العطر اخي الغريب تقبل تحياتي وشكري

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

السلام عليكم لايوجد مرفق في مشاركتك اخي تفضل هذا البرنامج صممته لاحدى شركات النقل الصعيرة هوعبارة عن برنامج لانشاء وطباعة امر بمهمة تتبع مصاريف واجر الناقلات بانوعها يحفض اسم السائق ورقم تسجيل العربة به تقريير على كافة عمليلت النقل ايضا يحوي تقرير للاشخاص المرافقين (نقل العمال) ارجو ان يفيدك وان احتجت الى اضافات اخرى او التعديل عليه انا مستعد للمساعدة ORDRE DE MISSION v.2.rar

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

السلام عليكم استاذي واستاذ الكل عبد الله باقشير (خبور) سعدت وتشرفت بمرورك العطر تقبل تحياتي وشكري