رجب جاويش

أخى الفاضل أولا : لك منى دعوة طيبة لتغير اسم الظهور الى اللغة العربية حتى يسهل التواصل بيننا ( طبقا لسياسة المنتدى ) ثانيا : الملف المرفق لا يوجد أى توضيح لما تريد

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

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

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

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

أخى الفاضل من خصائص الفورم الوضع الافتراضى للخاصية RightToLeft هو False فى هذه الحالة يكون الفورم من الشمال الى اليمين أما اذا تم تغيرها الى True يكون الفورم من اليمين الى الشمال وفى الحالتين يؤثر على الليست معه

أخى الفاضل / أبو جيداء بالنسبة لتنسيق النسبة المئوية يكون مثل السطر التالى arr(2, i) = Format(cll.Offset(0, 2), "yyyy/m/dd") مع تغيير الجزء "yyyy/m/dd" بالجزء "%0" أما بالنسبة لتغيير الليست من الشمال الى اليمين فهو فى المرفق هام جدا3.rar

تفضل أخى هام جدا3.rar

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

تفضل أخى طباعة.rar

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

أخى الفاضل أولا : لك منى دعوة طيبة لتغيير اسم الظهور الى اللغة العربية ( طبقا لسياسة المنتدى ) ثانيا : تفضل ما تريد اعلى وادنى.rar

وهذا حل به كود مختلف قليلا هام جدا3.rar

أخى الفاضل / أبو جيداء تفضل ما تريد هام جدا2.rar

أخى الفاضل / طلعت محمد حسن شكرا جزيلا اخى الفاضل على كلماتك الطيبة

أخى ابراهيم جرب الملف المرفق انجزت جزء كبير من المطلوب جرب وأخبرنى بالنتيجة حتى نكمل معا print invo 3.rar

أخى الفاضل أرفق الملف الذى يحتوى على المشكلة لكى يتضح الامر

أخى الفاضل / الأستاذ : ابو احمد ( رافد العزاوي ) شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الفاضل / طلعت محمد حسن تسلم ايديك ولاثراء الموضوع هذه حل آخر عن طريق كود فى حدث ال TextBox1 Private Sub TextBox1_Change() Dim arr() LR = Cells(Rows.Count, 1).End(xlUp).Row Set Rng = Range("A2:A" & LR) x = Val(Me.TextBox1) '======================================= On Error Resume Next For Each cl In Rng If cl = x Then Me.TextBox2 = cl.Offset(0, 1) Exit For End If Next For Each cll In Rng.Offset(0, 1) If cll = Me.TextBox2 Then i = i + 1 ReDim Preserve arr(1 To i) arr(i) = cll.Offset(0, 1) End If Next Me.ListBox1.List = arr End Sub هام جدا.rar

أخى الفاضل / أبو جيداء ما رأيك فى عمل كمبوبوكس يحتوى على جميع الأرقام بدلا من كتابة الرقم وعند اختيار الرقم من القائمة تظهر بياناته كما تريد

الأخت الفاضلة / أم عبد الله جهد ممتاز وعمل احترافى رائع جزاك الله كل خير

أخى الفاضل / الفرس جزاك الله كل خير

أخى الفاضل / الأستاذ : أكرم جلال شرفنى جدا مرورك العطر وكلماتك الطيبة فجزاك الله كل خير

أخى الفاضل / عبد الحميد شقير ملف ممتاز تسلم ايديك

أخى الفاضل / الفرس الكود يعمل تمام فى الملف المرفق جرب الكتابة فى الخلية H3 أو الخلية H13 أو الخلية H23 للتأكد