أبو حنــــين

الملف لا يحتوي على اي كود و لا ماكرو

مثال Book1.rar

البرنامج السابق يشغله برنامج : SWF Player و هذا شرح بالاكسل B.rar

أين الرسالة او الملف ؟

الشرح شرح.rar

هل تقصد هكذا B.rar

ارسل ملفا و هذا مثال للحذف حذف.rar

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

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

العفو اخي

جرب المرفق اخي نسيت أن اغير السطر : For ii = 1 To 100 '00 بالسطر التالي في بدية الكود For ii = 1 To 10000 date.rar

العفو اخي هشام

شكرا لك اخي جمال حسين على مرورك الطيب

فكرة ممتازة اخي هاني عدلي و يمكن استعمالها في الحدث Private Sub Workbook_Open مع وجود رسالة تنبيهية مثلا قبل اجراء الكود تقبل مروري

غير الكود السابق بهذا الكود Private Sub UserForm_Initialize() Dim RR As Control For i = 1 To 10 Set RR = Me.Controls.Add("forms.TextBox.1", "TextBox" & i, True) With RR .Left = 80: .Top = 10 + (i * 20): .Width = 60: .Height = 15: .Text = Cells(2, i) End With Next Dim LL As Control For s = 1 To 10 Set LL = Me.Controls.Add("forms.Label.1", "Label" & s, True) With LL .Left = 10: .Top = 10 + (s * 20): .Width = 60: .Height = 15: .Visible = True: .BackColor = &H80FF80 ' &H80000008 .Caption = Cells(1, s) End With With Me .ScrollBars = fmScrollBarsVertical .ScrollHeight = .InsideHeight * s / 5 .ScrollWidth = .InsideWidth * 9 End With Next s End Sub

كي يستوعب عدد أكبر غير العدد 5 في الكودين التاليين الى اي رقم آخر For s = 1 To 5 For i = 1 To 5

وقع خطأ حيث قمت بعملية عكسية و هذا هو التصحيح مايشبه الرقم 2القومى.rar

هذا بالنسبة للجزئ الاول اما في مايخص تعويض الكود باصفار ان كان ناقصا فلم افهم القصد و لو كان مثالا على ذلك لكان أحسن مايشبه الرقم القومى.rar

أخي هيثم : للتو إطلعت على المرفق و يبدو أنه أخذ جهدا و وقتا كبيرين بداية موفقة إن شاء الله ، و مشوار الألف ميل يبدأ بخطوة و أنت قد مشيت خطوات بالتوفيق إن شاء الله

مرحبا أخي الكريم اكتب الكود التالي Private Sub UserForm_Initialize() Dim RR As Control For i = 1 To 5 Set RR = Me.Controls.Add("forms.TextBox.1", "TextBox" & i, True) With RR .Left = 80: .Top = 10 + (i * 20): .Width = 60: .Height = 15: .Text = Cells(2, i) End With Next Dim LL As Control For s = 1 To 5 Set LL = Me.Controls.Add("forms.Label.1", "Label" & s, True) With LL .Left = 10: .Top = 10 + (s * 20): .Width = 60: .Height = 15: .Visible = True: .BackColor = &H80FF80 ' &H80000008 .Caption = Cells(1, s) End With Next s End Sub

انظر الصورة أخي 1.rar

عمل رائع أخي الشهابي ، بارك الله فيكم و زادكم علما

جرب المثال التالي مثال.rar

يمكن ان تضع هذا الكود حيث 123 تمثل كلمة الحماية Private Sub Workbook_Open() ActiveWorkbook.Protect Password:="123", Structure:=True, Windows:=True End Sub

أنعمت مساءا أخي الفاضل : دغيدي