عبدالله باقشير

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

السلام عليكم اول قيمة R هي 1 واول عنصر عندنا الايتم حقه = صفر

السلام عليكم Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Range("E29").Address Or _ Target.Address = Range("F29").Address Then Cells(5, 7) = Cells(29, 7) Range("e6:f29").ClearContents End If On Error GoTo 0 End Sub

السلام عليكم الاخ جيلاني -----------------------حفظه الله الاسئلة الان تكون في اطار الدرس حتى لا تتشتت الافكار بارك الله فيك الاخ احمد يعقوب -----------------حفظه الله نحن عرفنا تابع او متغير باسم kh تكون المتحولات حقه رقم صحيح الاخ/ سوزي كارم -----------------حفظه الله جوابك في المرفق الاخ / محمدي-----------------حفظه الله الشق : Cells(LastRow, R + 1 الخلايا التي نريد وضع البيانات فيها مربوطة بالسلسلة R بالنسب للعمود وLastRow بالنسبة للصف اول عمود نريد وضع البيانات فيه هو B يعني رقم 2 وبداية السلسلة R تبدا بالرقم 1 اضفنا الرقم واحد ليصبح 2 اول صف نريد وضع البيانات فيه هو نهاية صف في العمود B وهو LastRow ما تم شرحه اعلاه الشق : Me.Controls.Item(R - 1).Value نحن باستخدام هذه الطريقة استخدمنا الكنترول للتعريف بالعناصر التي نريده بدلا عن التسميات وهي الخطوة الاساسية في هذه الدروس التي اختصرنا بها الكود ME تستخدم للدلالة على الفورم وممكن تكتب اسم الفورم بدلا عنها المعنى : العناصر او الكائنات للفورم (التاكست بوكس ) التي ستاخذ منها البيانات بدلالة رقم تسلسلي وهو ( رتبة انشاءها مقارنة بباقي العناصر داخل الفورم ) بالنسبة ITEM رقم 1 هو صفر رقم 2 هو 1 رقم 3 هو 2 الاخ / ابو اسامة -----------------حفظه الله بارك الله فيك اخي ايوه ساعدنا في الشرح جزاك الله الف خير ايضا لو عندك تفسير اكثر وضوحا لمعنى الكنترول حتى يوضح المعنى بالشكل المطلوب ____________________.rar

السلام عليكم بارك الله فيك اخي نزار استراحة طيبة من اخ طيب

السلام عليكم الموضوع ده إن شاء الله انا عازم بتوصيله لكم بقدر استطاعتي رغم انني في الشرح اشوف نفسي ركيك شوية ومش عارف كيف طريقة القائي هل هي مفهومة؟؟ ولقد اضفت في الكودين فيما سبق متغير غير موجود لم يسالني احدكم ايه لزمته ده الا وهو Dim S As Long ده احذفوه ما لهوش داعي لانه غير موجود اساسا هو موجود في الدروس الاخرى

السلام عليكم تابع للدرس الاول عند انشاءك للفورم هنا تعين ماتريده فتبدا مثل ما اخبرتكم اعلاه باضافة العناصر التي تريد الترحيل منها انت طالب عدد خمسين اضفنا خمسين ابتدأنا من الشق الايمن من الفورم (راي العين) باضافة عشرة بالتوالي تحت بعض ثم عملت لهم تجميع ونسختهم ولصقتهم اربع مرات بالتوالي جنب بعض صار لدينا خمسين تاكست بوكس انظروا ماذا غيرت في الكود Private Sub CommandButton1_Click() On Error Resume Next Dim KH As Integer Dim S As Long, R As Long LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 For R = 1 To 50 ' سلسلة الاعمدة Cells(LastRow, R + 1) = Me.Controls.Item(R - 1).Value Next MsgBox "تم الترحيل بنجاح", 524288, "تم الترحيل" End End Sub في السطر الخامس من الكود For R = 1 To 50 ' سلسلة الاعمدة رقم عشرين غيرناه خمسين فقط لا غير وصلت المعلومه والا عاده ________________.rar

السلام عليكم الاخوان جميعا ----------------حفظكم الله نريد ان نمشي في هذا الشرح خطوة خطوة وعدم الانتقال الى الدرس الآخر حتى يفهم ما قبلة بشكل صحيح لان ما بعده سيكون مرتبطا بفهم ما قبله بارك الله فيكم الاخ / جيلاني LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 هذا السطر من الكود معناه آخر صف في العمود B زايدا واحد

السلام عليكم سلسلة دروس الترحيل عبر فورم بطرق بسيطة جدا وبكود مختصر يغنينا عن تسمية العناصر بداخل الفورم تصور لو لديك 100 تكستبوكس داخل الفورم وتريد الترحيل منه الى ورقة العمل اذا استخدمنا التسميات TextBox سنحتاج الى كود كبير لتعريف هذه التسميات في الكود الدرس الاول : ترحيل عبر الفورم لصف واحد متسلسل يحتوي على 20 عمود Private Sub CommandButton1_Click() On Error Resume Next Dim KH As Integer Dim S As Long, R As Long LastRow = Cells(Rows.Count, "B").End(xlUp).Row + 1 For R = 1 To 20 ' سلسلة الاعمدة Cells(LastRow, R + 1) = Me.Controls.Item(R - 1).Value Next MsgBox "تم الترحيل بنجاح", 524288, "تم الترحيل" End End Sub الخطوة الاولى والهامه: هي عند اضافتك للفورم في البداية قم باضافة العناصر (التاكستبوكس او الكومبكس) التي تريد الترحيل منها في الفورم قبل اضافة اي عناصر اخرى ليكون تسلسلها من الصفر ثم 1 - 2 وهكذا الى آخر عنصر تريده مثلا في مثالنا هذا قمت باضافة عشرين تاكسبوكس بالترتيب الذي اردته ثم اضفت العناصر الاخرى مثل زر الترحيل والليبلات لتعريف موقع الترحيل للاعمدة وقبل الانتقال الى الدرس الثاني منتظرين ردودكم لمعرفة فهمكم للكود المستخدم _______________________________1.rar

السلام عليكم جرب الكود التالي: Sub KH_Tkrar() On Error Resume Next Set ww = Application.WorksheetFunction Application.ScreenUpdating = False [L4:P100].ClearContents LastRow = Cells(Rows.Count, "A").End(xlUp).Row M = 4 For R = 4 To LastRow If ww.CountIf(Range("A4:A" & R), Cells(R, 1).Value) = 1 Then Cells(M, 12) = Cells(R, 1) M = M + 1 End If Next ' Last = M + 3 For X = 4 To Last For V = 4 To LastRow If Cells(X, 12).Value = Cells(V, 1).Value Then For T = 2 To 5 Cells(X, T + 11) = Val(Cells(X, T + 11)) + Val(Cells(V, T)) Next End If Next Next On Error GoTo 0 End Sub

الاخ / ابو عبدالله الجزيرة ________ حفظه الله الاخ / محمدي________ حفظه الله الاخ / ahh________ حفظه الله الاخ / احمد يقوب ________ حفظه الله تقبلوا تحياتي وشكري الاخ / هات________ حفظه الله ولك امثال دعائك اضعاف مضاعفة ولك مني شي آخر في وقت آخر تحياتي وشكري

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

السلام عليكم الاخ /هات --------------------------- حفظه الله بارك الله فيك و تقبل شكري وتقديري الاخ /محمد عسكر ------------------------ حفظه الله بارك الله فيك و تقبل شكري وتقديري الاخ /جيلاني--------------------------- حفظه الله بارك الله فيك و تقبل شكري وتقديري تفضل الشرح بالصور بالمرفق Multipage.rar

السلام عليكم امم اوربا 2008 م التعامل المباشر من خلال فورم في ترحيل النتائج وفي التجربة ما يغني عن الشرح تحياتي وشكري __________2008_.rar

السلام عليكم بارك الله فيك

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

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

السلام عليكم ملفك لم يفتح عندي انا اعمل على اوفيس 2003

السلام عليكم انا سميتك في نفسي من قبل هذا (الجندي المجهول) تشارك بهدوء ثم تختفي فترة ثم تعاود من جديد وتعطي ماعندك وحديثك : له طابع خير الكلام ما قل ودل الكلام الذي قالوه عنك في محله تستاهل كل خير بارك الله فيك ولك تحياتي وشكري

تفضل ونحن تحت الخدمة إن شاء الله

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

الاخ الفاضل / محمدي -------------------------------- حفظه الله حضرتك من الكرماء الله يحفظك لاهلك واولادك وذويك ولكل محبيك الاخ الفاضل / هادي سالم-------------------------------- حفظه الله تقبل شكري وتقديري الاخ الفاضل / ahh-------------------------------- حفظه الله شكرا جزيلا

تصحيح: السلام عليكم بعد التحية ثلاثه هي اعمدة كل صنف في النطاق البيانات

السلام عليكم استخدم الكود بعد التعديل Sub kh_round() Dim kh_no As Range With Selection For Each kh_no In Selection If Not IsNumeric(kh_no) Then GoTo 1 If kh_no - Int(kh_no) = 0 Then kh_no = kh_no ElseIf kh_no - Int(kh_no) <= 0.5 Then kh_no = Int(kh_no) + 0.5 Else kh_no = Int(kh_no) + 1 End If 1 Next End With End Sub

السلام عليكم الاخ ahh _________ المحترم انا اولا اطلعت على هذا الطلب في منتدى جامعة اهلا عرب http://www.hiarab.net/article17388.html و قد حملت ملف اخر بعده اتضح لي من كلامك انه من منتدانا هذا وقد اشتغلت الملف ووضعته في منتدى جامعة اهلا عرب واستاذنت من صاحب الملف هناك بوضعه في منتدانا هذا في رسالة خاصة لواضع المشاركة ضانا ان الملف لشخص واحد ولا ادري انه لشخصين مختلفين الخلاصة : اننا اشتغلت الملف ان كان لك او لغيرك عرفت الموضوع ؟؟؟؟؟