إبراهيم ابوليله

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

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

ActiveControl Property دى الى كانت مستخدمه فى الكود الاول يدون فريم صح ولا ايه ياريت لو تتفضل حضرتك بشرح الكود الاخير اى فى وجود فريم للاستفده اكثر من خبرات حضرتك تقبل تحياتى

اخى عبد الناصر استخدم هذا الكود Sub trs_invoice() ' Ýì åÐÇ ÇáßæÏ íÊã ÇáÊÑÍíá Ýì ÍÇáÉ æÌæÏ ÇÓØÑ ÝÇÑÛå Application.ScreenUpdating = False Dim LR As Long, LR1 As Long Dim WS As Worksheet Dim WS1 As Worksheet Set WS = Worksheets("INVOICE") Set WS1 = Worksheets("INVOICE DATA") LR1 = WS1.Range("c55555").End(xlUp).Row + 1 Dim FR For r = 3 To LR1 If WS1.Cells(r, 3) = WS.Range("f6") Then MsgBox "This invoice already exist, No shift will done": Exit Sub Next For FR = 16 To 37 If WS.Cells(FR, 2) = "" Then GoTo 7 WS1.Cells(LR1, 2) = WS.Range("d4").Value WS1.Cells(LR1, 3) = WS.Range("f2").Value WS1.Cells(LR1, 4) = WS.Range("f6").Value WS1.Cells(LR1, 5) = WS.Range("d8").Value WS1.Cells(LR1, 6) = WS.Range("h8").Value WS1.Cells(LR1, 7) = WS.Range("d10").Value WS1.Cells(LR1, 16) = WS.Range("d12").Value WS1.Cells(LR1, 12) = WS.Range("h8").Value WS.Range("c" & FR & ":i" & FR).Copy WS1.Range("i" & LR1).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False LR1 = LR1 + 1 7 Next FR Application.CutCopyMode = False WS.Select Application.ScreenUpdating = True End Sub تقبل تحياتى

واضح ان المشكله كانت من عندى ولا ايه دلوقتى قدرت احمل الملف على العموم هشوفه ورد عليك

على ما اعتقد انى فهمت ان اسطر ده Set oRealActiveControl = oTempObj.ActiveControl يعبر عن الكنترول النشطه فى الفورم بصرف النظر عن اسمها او نوعها

اخى عماد نرحب بك فى منتدانا العظيم ونتمنى ان نرى منك المزيد بارك الله فيك

بردو فيه مشكله ممكن تخاطب الاداره

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

اخى عبد الناصر جرب وضع الكود التالى فى حدث الورقه فاتورة مبيعات ثم اخبرنى بالنتيجه Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells.Count <> 1 Then Exit Sub '-------------------------------------------------------------------- Dim Lr As Long '-------------------------------------------------------------------- '-------------------------------------------------------------------- LRa = Sheets("ÇáÚãáÇÁ").[a10000].End(xlUp).Row + 1 If Not Intersect(Target, Range("c6:c6")) Is Nothing Then Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual For Each cll In Sheets("العملاء").Range("a6:a" & LRa) If cll.Value = Target.Value Then Target.Offset(1, 0) = cll.Offset(0, 1) Target.Offset(2, 0) = cll.Offset(0, 4) Target.Offset(3, 0) = cll.Offset(0, 7) Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic End If Next End If End Sub تقبل تحياتى

راجع المشاركة ستجدني قلت ضع موشر الماوس في آخر سطر ألا وهو End Sub تقبلوا تحياتي وكل عام وأنتم بخير وأراكم إن شاء الله بعد أجازة العيد في رعاية الله اخى ياسر بالفعل طلع من النوع Variant وبكده ضفت معلومه جديده الى الا وهى ايه ياريت لو كانت صح او غلط ترد عليا علشان اضيف المعلومه الى قاموسى ان فى حالة عدم كتابة نوع المتغير يتم ارجاع الوضع الافتراضى للمتغير وتعريفه على انه من النوع Variant .................................... وياريت يا اخ ياسر لو تضيف الينا شويه معلومات بسيطه عن المتغيرات خصوصا Variant لاننى بصراحه معنديش معلومات كافيه عنها تقبل تحياتى

اخى واستاذى ياسر بالفعل كما قلت انه من الخطأ التعبير فى لغة vba عن المتغير واعطاءه قيمة فى نفس السطر ............................................................ اما بخصوص الإعلان عن المتغيرين من النوع عدد ..فقط المتغير m هو المتغير العددي أما المتغير H في هذه الحالة يعتبر من النوع Variant فقد حاولت التطبيق ولكنى فشلت فحينما وضع مؤشر الماوس فى سطر الكود وعند الضغط على f9 ظهرت لى هذه الرساله على العموم انا اسعدنى جدا متابعتك للموضوع علشان لو فيه توضيح او اخطاء تلحقنا فيها منتحرمش منك ياريس تقبل تحياتى

السلام عليكم ورحمة الله وبركاته الدرس السادس 6-Variables المتغيرات بصراحة كده الموضوع ده كبير ولكن انا اخدت الى يمشينا وميعطلناش لاننا زى مقولنا اننا مش مطلوب مننا نكون محترفين على العموم نبدأ الدرس شروط تسمية المتغيرات : طبعا لازم نعرف اننا علشان نستخدم المتغيرات داخل الاكواد فلازم نقوم باعطاء كل متغير اسم يعبر عنه ازاى يعنى يعنى مثلا انت عايز تعبر عن متغير عدد او نصى او تاريخ يبقى لازم تعطى المتغير ده اسم معين الاسم ده بقى 1-يجب الا يبدأ برقم يعنى مينفعش نسمى المتغير بالشكل ده 12345 او 12hima على سبيل المثال 2-ان ممكن تستخدم الارقام فى تسمية المتغير ولكن يشترط ان يبدأ الاسم بحرف على سبيل المثال h123 3-لايجوز ان يحتوى اسم المتغير على مسافات او نقطه او رموز مثل(( ؟ ، * ، ) ، ( ، /......... إلخ )) وعلى سبيل المثال hima laila او hima.laila او hima-laila او hima*laila وهكذا ولكن يمكن استخدام المسافه السفليه _ على سبيل المثال hima_laila 4-يجب عدم تكرار تسمية المتغير انواع المتغيرات نشوف ازاى يتم الاعلان عن المتغير داخل الكود لو احنا عايزن نعلن عن متغير ذات قيمه عدديه يبقى هيكون بالشكل ده هنفترض ان اسم المتغير هو h Dim H As Integer ويجب ان نشير اناا يجب ان نبدأ بكلمة dim وذلك للاشاره باننا بصدد التعبير عن المتغيرات كما يمكننا التعبير عن اكثر من متغير فى سطر واحد فلو اننا نريد التعبير عن متغيرين فى نفس السطر وليكن اسمهما h و m يبقى سطر الكود هيكون بالشكل ده Dim H,m As Integer وهنا سنجد ان المتغير h تم تعريفه على انه من النوع Variant اما المتغير m فتم تعريفه على انه من النوع العددى ثم تأتى مرحلة اعطاء القيمه للمتغير الذى قمنا بتعريفه مثلا يتم اعطاء القيمه 10 للمتغير h والقيمه 20 للمتغير m وسيكون شكل الكود كالاتى Dim H,m As Integer h=10:m=20 واذا اردنا مثلا الاعلان عن متغير من نوع النصوص سيكون هكذا Dim h2 As String="hima" لاحظ اننا قمنا بتغير الاسم الى h2 لانه كما ذكرنا من قبل انه لايجب تكرار تسمية المتغير كما انه يجب الاشاره انه فى حالة الاعلان عن متغير من نوع النصوص يجب وضع الاسم بين علامتي التنصيص " ناخد ميثال على الماشى Sub Variables() Dim h As Integer h = 101 Dim h1 As Single h1 = 101.15 Dim h2 As String h2 = "ابراهيم محمد ابراهيم" Dim h3 As Date h3 = "24 / 9 / 1981" Dim h4 As Worksheet Set h4 = Sheet1 ' ............................................................ [a34] = h [a36] = h1 [a38] = h2 [a40] = h3 [a42] = h4.Name End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

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

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

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

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

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

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

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

اخى محمد طلبك عزيز عليا ولكن اسمح لى ان اصر على نفس نوع الخط مش عارف ليه يا اخى انا بحب الخط ده اوى بس علشان انا مقدرش على زعلك فخليت حجم الخط 22 وسمكله كمان ياعم تخين وبكده تبقى انت الكسبان انت اخد اتنين وانا اخدت واحده بس وخلينا حبايب ولا ايه .................................................. وعلى العموم نطلب من اخوانا ياسر يظبطلنا الحتى دى علشان يبقى حجم الخط واحد فى جميع المشاركات تقبل تحياتى

اخى ابو عبدالرحمن اليك الملف عند كتابة اسم المدرسة يدرج الكود تلقائي.rar تقبل تحياتى عند كتابة اسم المدرسة يدرج الكود تلقائي.rar

السلام عليكم ورحمة الله وبركاته اخى ابو عبد الرحمن فقط ضع هذا الكود فى حدث الورقه Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Target.Cells.Count <> 1 Then Exit Sub ' åÐÇ ÇáÓØÑ íãäÚ ÍÏæË ÇáÇÎØÇÁ Ýì ÍÇáÉ ãÓÍ ÇßËÑ ãä Îáíå ãÚ ÈÚÖåÇ '-------------------------------------------------------------------- Dim Lr As Long '-------------------------------------------------------------------- Application.ScreenUpdating = False Application.DisplayAlerts = False Application.EnableEvents = False Application.Calculation = xlCalculationManual '-------------------------------------------------------------------- LrT = ورقه1.[T10000].End(xlUp).Row + 1 LRB = ورقه2.[B10000].End(xlUp).Row + 1 If Not Intersect(Target, ورقه.Range("T2:T" & LrT)) Is Nothing Then For Each cll In ورقه2.Range("B2:B" & LRB) If cll = Target Then Target.Offset(0, 1) = cll.Offset(0, -1) Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Exit Sub End If Next End If '-------------------------------------------------------------------- LrU = ورقه1.[U10000].End(xlUp).Row + 1 LRB = ورقه2.[B10000].End(xlUp).Row + 1 If Not Intersect(Target, ورقه1.Range("U2:U" & LrU)) Is Nothing Then For Each cll In ورقه2.Range("B2:B" & LRB) If cll.Offset(0, -1) = Target Then Target.Offset(0, -1) = cll Application.ScreenUpdating = True Application.DisplayAlerts = True Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Exit Sub End If Next End If End Sub ملحوظه يمكنك البحث اما بكود المدرسه او باسم المدرسه تقبل تحياتى

السلام عليكم ورحمة الله وبركاته الدرس الخامس 5-Colors الالوان وسوف نتناول فى هذه الدرس الاتى استخدام الخاصيه color استخدام الخاصيه ColorIndex استخدام الخاصيه Interior.Color استخدام الخاصيه borders.color استخدام الخاصيه Tab.Color ............................................................. استخدام الخاصيه color تستخدم الخاصيه COLOR فى تلوين الخطوط FONT يجب ان نشير الى اننا حينما نتعامل مع color فاننا نستخدم الخاصيه الخاصه بالالوان RGB سنجد ان قيمة RGB مكونه من ثلاث معطيات هى الاحمر -- الاخضر --الازرق .RGB(red_value, green_value, blue_value) وسوف نقدم بعض القيم والالوان الخاصه ب RGB الان نتعرف على كيفية استخدام هذه الخاصيه فى تلوين الخط نفترض اننا لدينا الاسم HIMA فى الخليه A17 ونريد تلوين الخط باللون الازرق سيكون شكل الكود كالاتى Sub colorfont() Range("a17").Font.Color = RGB(0, 0, 255) ' blue End Sub وطبعا لو عايز تغير اللون لاى لون انت عايزه كل الى عليك ان هتغير الارقام الخاصه بالخاصيه RGB استخدام الخاصيه ColorIndex تستخدم ايضا فى التعامل مع تلوين الخطوط ولكن يتم الاشاره هنا الى الالوان بالارقام العدديه من 1 الى 56 راجع الصوره فمثلا لو لدينا الاسم HIMA فى الخليه A21 ونريد تلوينه باللون الاحمر سيكون شكل الكود كالاتى Sub ColorIndexfont() Range("A25").Font.ColorIndex = 3 'red End Sub استخدام الخاصيه borders.color تستخدم هذه الخاصيه فى تلوين حدود الخلايا وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR عن طريق RGB نفترض اننا عايزن نحدد الحليه B33:D33 باللون الازرق سيكون شكل الكود كالاتى Sub coloredborders() Range("b33:d33").Borders.Color = RGB(0, 0, 255) ' blue End Sub استخدام الخاصيه Interior.Color تستخدم هذه الخاصيه فى تلوين الخلايا وطبعا احنا عرفنا قبل كده ازاى نتعامل مع COLOR عن طريق RGB نفترض اننا عايزين نلون الخلايا من B41:D41 باللون الاخضر سيكون شكل الكود كالاتى Sub backgroundcolor() Range("b41:d41").Interior.Color = RGB(0, 255, 0) ' green End Sub استخدام الخاصيه Tab.Color تستخدم هذه الخاصيه فى التعامل مع تبويب الشيتات Sub colorwsheettab() Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue End Sub فلو احنا عايزين نلون تبويب الشيت المسمى ب 5-Colors باللون الازرق مثلا هيكون شكل الكود كالاتى Sub colorwsheettab() Sheets("5-Colors").Tab.Color = RGB(0, 0, 255) ' blue End Sub اتمنى ان يكون الدرس مفيدا مرفق شيت اكسيل به التطبيقات learnvba.rar تقبلوا تحياتى learnvba.rar

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