شوقي ربيع قام بنشر مايو 7, 2013 الكاتب قام بنشر مايو 7, 2013 السلام عليكم الاخ ابو ادم لا عليك اخي الكريم تعبكم راحة بالنسبة لي وانا سعيد مرة اخرى لنجاحك في تطبيق الاكواد بالنسبة لطلب الاول الامر معقد شوي حيث انه لاتوجد في الاوفيس خاصية محاذات اليست وما سبق من اكواد هو عبارة عن تحايل على الاوفيس اما طلبك الثاني ارجو ان تعود للمرفق الاول ستجد فيه شرح تنسيقات اليست وان تلبس عليك في امر ما نحن في الخدمة
ضاحي الغريب قام بنشر مايو 9, 2013 قام بنشر مايو 9, 2013 أخي الحبيب // شوقي ربيع (( ربيع المنتدي )) وملك الحركات بارك الله فيك فعلا شرحك مبسط وجميل وعن نفسي استفد منه جزاك الله خيرا وما اجمل من طروحاتك الجميلة والمفيدة تقبل تحياتي
شوقي ربيع قام بنشر مايو 9, 2013 الكاتب قام بنشر مايو 9, 2013 السلام عليكم الاخ الحبيب ضاحي الغريب يسعدني ويشرفني مرورك العطر ولك مني جزيل الشكر لكلماتك الجميلة والحمد لله لاستفادتك من الموضوع فافادة الغير هي غايتنا تقبل تحياتي وشكري
علي سالم 75 قام بنشر مايو 9, 2013 قام بنشر مايو 9, 2013 انا الملف لا يعمل عندي ممكن تعطيني الحزمة الخاصة والتي من ضمنها ListView لكي اضيفها عندي في مكتبة الاكواد
saad abed قام بنشر مايو 10, 2013 قام بنشر مايو 10, 2013 اخى شوقى ربيع من شرحك الجميل ومن معرفة بالاداة فى الاكسيس اشتقت لاستخدامها عملت ستب اوفيس 2007 مخصوص دون جدوى عدم وجود listviewضمن toolbox كذلك toolboxتضغظ كليك يمين تظهر addional controls تضغط عليها فلا حراك اين الخلل اخى الحبيب عندى
شوقي ربيع قام بنشر مايو 19, 2013 الكاتب قام بنشر مايو 19, 2013 السلام عليكم الاخ علي سالم الملف مصمم على اوفيس 2007 ان كنت تستخدم اوفيس 2007 سيشتغل عندك البرنامج عادي اما ادا لم يشتغل معك فدلك راجع الى التحديث الاخير للونداوز ان عملت رسترينج لنصلم لتاريخ 24/4/2013 سيعمل مع البرنامج
شوقي ربيع قام بنشر مايو 19, 2013 الكاتب قام بنشر مايو 19, 2013 السلام عليكم الاخ سعد عابد شكرا جزيلا لمرورك ولكلماتك الجميلة اما بخصوص مشكلتك فقد واجهتني سابقا وادرجت طلب مساعدة بخصوصها في المنتدى في الرابط التالي http://www.officena.net/ib/index.php?showtopic=46367&hl= الا اني لم اجد الحل فضطررت الى اعادت تثبيت الونداوز من جديد تقبل تحياتي وشكري
ali abdu2010 قام بنشر مارس 28, 2014 قام بنشر مارس 28, 2014 عجزت عن شكرك دمت مبدعا ماشاء الله ربنا يحفظك ويبارك فيك
على قام بنشر أكتوبر 2, 2014 قام بنشر أكتوبر 2, 2014 الاخ والاستاذ شوقي ربيع ماشاء الله عليك تمت التجربة واكثر من رائع بارك الله فيط وزادك علما اخي الكريم هل من الممكن شرح مبسط لما تم لجعل البيانات من اليمين لليسار ولي طلب اخر بع اذن حضرتك هل من الممكن التحكم في تنسيق البيانات داخل الليست فيو معلش ارهقتك بطلباتي لكن كرمك هو الذي شجعني جزاك الله كل خير ممكن اخي ترفق ملف تجربتك لتعم الفائدة لانني حاولت وصادفتنى بعض الاخطاء
محمود ربيع قام بنشر أكتوبر 28, 2017 قام بنشر أكتوبر 28, 2017 استاذنا القدير / شوقي ربيع عمل اكثر من رائع وجاري تحديث نسخة الويندوز للوصول الي عنصر الليست فيو جعله الله في ميزان حسناتك وزادك من علمه وفضله
arsalan قام بنشر ديسمبر 17, 2017 قام بنشر ديسمبر 17, 2017 في 5/6/2013 at 12:46, شوقي ربيع said: هذا الكود للبحث عن البينات في العمود الاول ةاضهار النتائج في اليست فيو 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
الردود الموصى بها