ابو يوسف العلفي

كلها اقسام مفيده خاصة الشبكات وياريت تخصصوا قسم برمجة الميكروتك واجهزة بث الواي فاي

مع العلم بان هناك تكست بوكسات تظهر وتختفي بحسب القيمة يعنى من T1-T15 ثابتة ومن T16-T29 بحسب القيمة اذا كان في الاعدادات قيمة لها ستظهر مالم ستكون مخفية في الفورم موضح ذلك في الكود الثالث :- Private Sub CommandButton1_Click() æÑÞÉ24.Activate Application.ScreenUpdating = False lru = æÑÞÉ24.Range("e" & Rows.Count).End(xlUp).Row + 1 æÑÞÉ24.Cells(lru, 5).Value = TxtDate.Value æÑÞÉ24.Cells(lru, 6).Value = TextBox3.Value æÑÞÉ24.Cells(lru, 7).Value = TextBox4.Value æÑÞÉ24.Cells(lru, 9).Value = T1.Value æÑÞÉ24.Cells(lru, 10).Value = T2.Value æÑÞÉ24.Cells(lru, 11).Value = T3.Value æÑÞÉ24.Cells(lru, 12).Value = T4.Value æÑÞÉ24.Cells(lru, 13).Value = T5.Value æÑÞÉ24.Cells(lru, 14).Value = T6.Value æÑÞÉ24.Cells(lru, 15).Value = T7.Value æÑÞÉ24.Cells(lru, 16).Value = T8.Value æÑÞÉ24.Cells(lru, 17).Value = T9.Value æÑÞÉ24.Cells(lru, 18).Value = T10.Value æÑÞÉ24.Cells(lru, 19).Value = T11.Value æÑÞÉ24.Cells(lru, 20).Value = T12.Value æÑÞÉ24.Cells(lru, 21).Value = T13.Value æÑÞÉ24.Cells(lru, 22).Value = T14.Value æÑÞÉ24.Cells(lru, 23).Value = T15.Value æÑÞÉ24.Cells(lru, 24).Value = T16.Value æÑÞÉ24.Cells(lru, 25).Value = T17.Value æÑÞÉ24.Cells(lru, 26).Value = T18.Value æÑÞÉ24.Cells(lru, 27).Value = T19.Value æÑÞÉ24.Cells(lru, 28).Value = T20.Value æÑÞÉ24.Cells(lru, 29).Value = T21.Value æÑÞÉ24.Cells(lru, 30).Value = T22.Value æÑÞÉ24.Cells(lru, 31).Value = T23.Value æÑÞÉ24.Cells(lru, 32).Value = T24.Value æÑÞÉ24.Cells(lru, 33).Value = T25.Value æÑÞÉ24.Cells(lru, 34).Value = T26.Value æÑÞÉ24.Cells(lru, 35).Value = T27.Value æÑÞÉ24.Cells(lru, 36).Value = T28.Value æÑÞÉ24.Cells(lru, 37).Value = T29.Value MsgBox "Êã ÇáÊÑÍíá ÈäÌÇÍ" TextBox3.Value = "" TextBox4.Value = "" T1.Value = "" T2.Value = "" T3.Value = "" T4.Value = "" T5.Value = "" T6.Value = "" T7.Value = "" T8.Value = "" T9.Value = "" T10.Value = "" T11.Value = "" T12.Value = "" T13.Value = "" T14.Value = "" T15.Value = "" T16.Value = "" T17.Value = "" T18.Value = "" T19.Value = "" T20.Value = "" T21.Value = "" TextBox3.SetFocus Application.ScreenUpdating = True End Sub ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ كود لجمع ال30 التيكست بوكس في خلية واحدة هل ممكن استبدالها باستخدام وضع متغير واستخدام الدوال ؟ Private Sub Total_Change() Total.Value = TextBox3.Value + T1.Value + T2.Value + Value + T3.Value + T4.Value + T5.Value + T6.Value + T7.Value + T8.Value + T9.Value + T10.Value + T11.Value + T12.Value + T13.Value + T14.Value + T15.Value + T16.Value + T17.Value + T18.Value + T19.Value + T20.Value + T21.Value End Sub ----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- Private Sub UserForm_Activate() Me.TxtDate = Format(Date, "yyyy/mm/dd") 'ßæÏ ÇÙåÇÑ ÇÓãÇÁ ÇáãÕÑæÝÇÊ Ýí ÇáÝæÑã Application.ScreenUpdating = False æÑÞÉ3.Activate L1.Caption = [aw8] L2.Caption = [aw9] L3.Caption = [aw10] L4.Caption = [aw11] L5.Caption = [aw12] L6.Caption = [aw13] L7.Caption = [aw14] L8.Caption = [aw15] L9.Caption = [aw16] L10.Caption = [aw17] L11.Caption = [aw18] L12.Caption = [aw19] L13.Caption = [aw20] If [aw21] <> "" Then L14.Caption = [aw21] Else L14.Visible = False T14.Visible = False End If If [aw22] <> "" Then L15.Caption = [aw22] Else L15.Visible = False T15.Visible = False End If If [aw23] <> "" Then L16.Caption = [aw23] Else L16.Visible = False T16.Visible = False End If If [aw24] <> "" Then L17.Caption = [aw24] Else L17.Visible = False T17.Visible = False End If If [aw25] <> "" Then L18.Caption = [aw25] Else L18.Visible = False T18.Visible = False End If If [aw26] <> "" Then L19.Caption = [aw26] Else L19.Visible = False T19.Visible = False End If If [aw27] <> "" Then L20.Caption = [aw27] Else L20.Visible = False T20.Visible = False End If If [aw28] <> "" Then L21.Caption = [aw28] Else L21.Visible = False T21.Visible = False End If If [aw29] <> "" Then L22.Caption = [aw29] Else L22.Visible = False T22.Visible = False End If If [aw30] <> "" Then L23.Caption = [aw30] Else L23.Visible = False T23.Visible = False End If If [aw31] <> "" Then L24.Caption = [aw31] Else L24.Visible = False T24.Visible = False End If If [aw32] <> "" Then L25.Caption = [aw32] Else L25.Visible = False T25.Visible = False End If If [aw33] <> "" Then L26.Caption = [aw33] Else L26.Visible = False T26.Visible = False End If If [aw34] <> "" Then L27.Caption = [aw34] Else L27.Visible = False T27.Visible = False End If If [aw35] <> "" Then L28.Caption = [aw35] Else L28.Visible = False T28.Visible = False End If If [aw36] <> "" Then L29.Caption = [aw36] Else L29.Visible = False T29.Visible = False End If Application.ScreenUpdating = True End Sub

ارجوا الافادة

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

دخلت على هذا الرابط من موضوع قام بنشرة الاستاذ / محمود الشريف بشأن حماية ملفات الاكسل وتضمن عدة روابط نموذج للأستاذ / أحمد زمان حماية الملف وصلاحيات للمستخدمين http://www.officena.net/ib/index.php?showtopic=30498#entry152813 وقمت بتحميل الملف لغرض التطبيق وفعلا تم التطبيق واقفلتة واقفلت ملفي الخاص بشغلي وبعد فتح ملفي الخاص تفاجئت باخفاء شيتات المصنف الي اشتغل فية كامل ولا استطيع استعادتها ؟؟ ماهي الطريقة لاظهار الشيتات لو سمحتم ؟؟

اسعد الله اوقاتكم اساتذتنا الكرام .. 1- هل هناك طريقة لنسخ صفحة من مصنف الى اخر من المطور لان الصفحة مخفية بالامكان نسخ ورقة من مصنف الى مصنف اخر عن طريق استخدام الامرين Export File , Import 2- طريقة عمل نسخة احتياطية واستعادتها لملف الاكسل او قاعدة البيانات ..

الشكر لله اخي عبدالباري البنا تحياتي لك

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

دخلت على هذا الرابط نموذج للأستاذ / أحمد زمان حماية الملف وصلاحيات للمستخدمين http://www.officena.net/ib/index.php?showtopic=30498#entry152813 وقمت بتحميل الملف من الرابط وبعد اقفالة قام باخفاء شيتات المصنف الي اشتغل فية كامل ولا استطيع استعادتها

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

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

اسعد الله اوقاتكم .. انا عضو جديد واشكركم جميعا على استضافتي واتمنى اجد طريقة او كود يقوم بحصر استعمال البرنامج على جهاز كمبيوتر واحد عن طريق جلب السيريال اليا عند تثبيت او تفعيل البرنامج لاول مرة في الجهاز فكيف نقوم بها سواء اليا او يدويا جزاكم الله خير 2 - طريقة تحديث البرنامج كيف تتم او اضافة تحديثات او استعادة لنسخة احتياطية ارجوا الافادة