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

نوفمبر 14, 2017

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

فبراير 26, 2017

مع العلم بان هناك تكست بوكسات تظهر وتختفي بحسب القيمة يعنى من 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

فبراير 26, 2017

في ٢٠‏/٢‏/٢٠١٧ at 22:25, ابو يوسف العلفي said:

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

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

فبراير 26, 2017

في ٢٣‏/٢‏/٢٠١٧ at 02:55, زيزو العجوز said:

السلام عليكم ورحمة الله

انسخ الكود التالى والصقه فى موديول

وخصص له زر


Sub TransrerData()
Dim ws As Worksheet, sh As Worksheet
Dim LR As Long, LS As Long
Dim R As Integer, S As Integer, p As Integer, Cod As Byte, Cod2 As Byte
Dim Qty As Long, Qty2 As Long
Set ws = Sheets("ÇÑÔíÝ")
Set sh = Sheets("ÈíÇä ÊÌãíÚì")
sh.Range("B10:K100").ClearContents
Application.ScreenUpdating = False
LR = ws.Range("E" & Rows.Count).End(xlUp).Row
For R = 10 To LR
Cod = WorksheetFunction.CountIf(Range(ws.Cells(10, "E"), _
ws.Cells(R, "E")), ws.Cells(R, "E"))
If Cod = 1 Then
sh.Cells(R, "B") = ws.Cells(R, "E")
sh.Cells(R, "C") = ws.Cells(R, "F")
sh.Cells(R, "D") = ws.Cells(R, "G")
sh.Cells(R, "F") = ws.Cells(R, "I")
Qty = WorksheetFunction.SumIf(Range(ws.Cells(10, "E"), ws.Cells(LR, "E")), _
sh.Cells(R, "B"), Range(ws.Cells(10, "H"), ws.Cells(LR, "H")))
sh.Cells(R, "E") = Qty
End If
Next
LS = ws.Range("M" & Rows.Count).End(xlUp).Row
p = 9
For S = 10 To LS
Cod2 = WorksheetFunction.CountIf(Range(ws.Cells(10, "M"), _
ws.Cells(S, "M")), ws.Cells(S, "M"))
If Cod2 = 1 Then
p = p + 1
sh.Cells(p, "G") = ws.Cells(S, "M")
sh.Cells(p, "H") = ws.Cells(S, "N")
sh.Cells(p, "I") = ws.Cells(S, "O")
sh.Cells(p, "K") = ws.Cells(S, "Q")
Qty2 = WorksheetFunction.SumIf(Range(ws.Cells(10, "M"), ws.Cells(LS, "M")), _
sh.Cells(p, "G"), Range(ws.Cells(10, "P"), ws.Cells(LS, "P")))
sh.Cells(p, "J") = Qty2
End If
Next
Application.ScreenUpdating = True
End Sub

في ٢٣‏/٢‏/٢٠١٧ at 02:55, زيزو العجوز said:

السلام عليكم ورحمة الله

انسخ الكود التالى والصقه فى موديول

وخصص له زر


Sub TransrerData()
Dim ws As Worksheet, sh As Worksheet
Dim LR As Long, LS As Long
Dim R As Integer, S As Integer, p As Integer, Cod As Byte, Cod2 As Byte
Dim Qty As Long, Qty2 As Long
Set ws = Sheets("ÇÑÔíÝ")
Set sh = Sheets("ÈíÇä ÊÌãíÚì")
sh.Range("B10:K100").ClearContents
Application.ScreenUpdating = False
LR = ws.Range("E" & Rows.Count).End(xlUp).Row
For R = 10 To LR
Cod = WorksheetFunction.CountIf(Range(ws.Cells(10, "E"), _
ws.Cells(R, "E")), ws.Cells(R, "E"))
If Cod = 1 Then
sh.Cells(R, "B") = ws.Cells(R, "E")
sh.Cells(R, "C") = ws.Cells(R, "F")
sh.Cells(R, "D") = ws.Cells(R, "G")
sh.Cells(R, "F") = ws.Cells(R, "I")
Qty = WorksheetFunction.SumIf(Range(ws.Cells(10, "E"), ws.Cells(LR, "E")), _
sh.Cells(R, "B"), Range(ws.Cells(10, "H"), ws.Cells(LR, "H")))
sh.Cells(R, "E") = Qty
End If
Next
LS = ws.Range("M" & Rows.Count).End(xlUp).Row
p = 9
For S = 10 To LS
Cod2 = WorksheetFunction.CountIf(Range(ws.Cells(10, "M"), _
ws.Cells(S, "M")), ws.Cells(S, "M"))
If Cod2 = 1 Then
p = p + 1
sh.Cells(p, "G") = ws.Cells(S, "M")
sh.Cells(p, "H") = ws.Cells(S, "N")
sh.Cells(p, "I") = ws.Cells(S, "O")
sh.Cells(p, "K") = ws.Cells(S, "Q")
Qty2 = WorksheetFunction.SumIf(Range(ws.Cells(10, "M"), ws.Cells(LS, "M")), _
sh.Cells(p, "G"), Range(ws.Cells(10, "P"), ws.Cells(LS, "P")))
sh.Cells(p, "J") = Qty2
End If
Next
Application.ScreenUpdating = True
End Sub

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

فبراير 26, 2017

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

نموذج للأستاذ / أحمد زمان

حماية الملف وصلاحيات للمستخدمين

http://www.officena.net/ib/index.php?showtopic=30498#entry152813

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

فبراير 26, 2017

اسعد الله اوقاتكم اساتذتنا الكرام ..

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

2- طريقة عمل نسخة احتياطية واستعادتها لملف الاكسل او قاعدة البيانات ..

فبراير 24, 2017

في ٢٢‏/٢‏/٢٠١٧ at 23:31, رشراش said:

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

اوفيسنا انت رائع وعمودك الفقري منتدانا..

واسيادك اساتذتنا يا اوفيسنا

تحية لكل اساتذتنا ولك اخي

عبدالباري البنا

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

فبراير 24, 2017

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

فبراير 24, 2017

دخلت على هذا الرابط

نموذج للأستاذ / أحمد زمان

حماية الملف وصلاحيات للمستخدمين

http://www.officena.net/ib/index.php?showtopic=30498#entry152813

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

فبراير 24, 2017

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

فبراير 24, 2017

في ٢٢‏/٢‏/٢٠١٧ at 00:42, ناصر سعيد said:

ربنا يبارك فيك ...

عندي سؤال طبعا انت بتسال هذا السؤال عشان تعمله على برنامج انت عامله وخايف عليه

هل افدتنا بمعلومه فذه من معلوماتك التي جعلتك تخاف على برنامج .. اريد ان اتعلم ليس الا

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

فبراير 20, 2017

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

تسجيل الدخول

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

Posts

تاريخ الانضمام

تاريخ اخر زياره

نوع المحتوي

المنتدى

مكتبة الموقع

معرض الصور

المدونات

الوسائط المتعددة

مشاركات المكتوبه بواسطه ابو يوسف العلفي

إستطلاع رأي عن اضافة أقسام جديدة بالموقع

اريد اختصار الاكواد التالية وتعديلها لتنفيذها بالفورم

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

تجميع الكميات الواردة والمنصرفه اعتمادا على كود الصنف

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

عمل نسخة احتياطية لملف الاكسل واستعادتها

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

عبدالباري البنا

جميع نماذج الحماية لملفات الأكسيل

جميع نماذج الحماية لملفات الأكسيل

حماية ملف اكسل من داخل الملف + صلاحيات لكل مستخدم + سجل لأسماء و مواعيد الدخول للملف

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

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

تصفح الموقع

تصفح جديد الموقع

Support

Important Information