أنس دروبي قام بنشر سبتمبر 21, 2012 مشاركة قام بنشر سبتمبر 21, 2012 السلام عليكم ورحمة الله أساتذتي وأخواني الكرام في المف المرفق المطلوب بالشرح وشكراً إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar رابط هذا التعليق شارك More sharing options...
أبو حنــــين قام بنشر سبتمبر 21, 2012 مشاركة قام بنشر سبتمبر 21, 2012 السلام عليكم إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 21, 2012 الكاتب مشاركة قام بنشر سبتمبر 21, 2012 الله يجزيك الخير أخي أبو حنين على الملف ولكن أخي تم أضافة صف واحد فقط والمقصود أخي هو أضافة صف كلما قم بالضغط على مفتاح enter يعني مثلاً عند الكتابة في الصف الثاني الذي أضيف والكتابة في تكسست بوكس رقم (8) والضغط على مفتاح(enter) يقوم الكود بإضافة صف تكست بوكس أخر وبعده كذلك الأمر يضيف الصف الثالث والرابع وبالنسبة للربط فلم ترتبط إدخال البيانات على الصفحة علماً أن الصف الجديد الذي يضاف يجب أن تضاف إدخالاته في الصفحة أرجو أن اكون قد أوفيت بالشرح وشكراً أخوكم أنس دروبي رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 ولكن أخي تم أضافة صف واحد فقط والمقصود أخي هو أضافة صف كلما قم بالضغط على مفتاح enter يعني مثلاً عند الكتابة في الصف الثاني الذي أضيف والكتابة في تكسست بوكس رقم (8) والضغط على مفتاح(enter) يقوم الكود بإضافة صف تكست بوكس أخر وبعده كذلك الأمر يضيف الصف الثالث والرابع تم عمل اللازم ولكن الربط تم بواسطة زر لاضافة سطر جديد وليس الضغط على انتر وبالنسبة للربط فلم ترتبط إدخال البيانات على الصفحة علماً أن الصف الجديد الذي يضاف يجب أن تضاف إدخالاته في الصفحة أرجو أن اكون قد أوفيت بالشرح وشكراً تم عمل اللازم في زر الترحيل جرب المرفق إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 (معدل) السلام عليكم بعد اذن الاساتذه الافاضل تعدد الحلول تفضل إظهار تكست_Ali_1.rar تم تعديل سبتمبر 22, 2012 بواسطه عباد رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 22, 2012 الكاتب مشاركة قام بنشر سبتمبر 22, 2012 (معدل) السلام عليكم ورحمة الله وبركاته الله يجزيك الخير أخي ومعلمي عبد الله والله أني أشتقت لعلمك الواسع والمتميز دائماً كان هذا هو المطلوب بكل معنى الكلمة وحتى إذا لم يكن أثناء الضغط على مفتاح enter وبالنسبة لعمل الأخ أبو نصار فكان أيضاً متميزا وهو المطلوب ولكن الكود في الملف مرة يعمل وأخرى لا يعمل كأنه في عطل أو نقص فيه ولا يتم حذف الأدخالات بعد الضغط على زر ترحيل والرجوع الى الأفتراضي وهو صف واحد أرجو مراجعة الكود وتصحيحه لو عذبتك أخي عباد والله يجزيكم الخير تم تعديل سبتمبر 22, 2012 بواسطه Creation World رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 السلام عليكم الاخ الفاضل Creation World حمل مرفق المشاركة السابقة تم التعديل ان شاء الله يزبط معك رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 السلام عليكم الشكر واصل للاخ الحبيب عبدالله والاخ الحبيب عباد حفظهما الله =============== لائراء الموضوع بميزة اخذ عرض وموقع الليبل عنوان العمود المرفق 2003 -2007 إظهار صف تكست بوكس جديد عند الضغط على مفتاح Enter.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 السلام عليكم الاستاذ الحبيب عبدالله باقشير عمل متقن وجميل بارك الله فيك معلومات ناخذها على طبق من ذهب زاك الله علما ورفعه رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 22, 2012 الكاتب مشاركة قام بنشر سبتمبر 22, 2012 الله يجزيك الخير أخي وحبيبي الأستاذ عبد الله باقشير فأنت لك فضل علي في تعلمي المحاسبة على إكسل كان هو المطلوب بكل معنى الكلمة ولكن المشكلة ذاتها عند الضغط على زر ترحيل وبعد وضع البيانات في الورقة لايرجع الكود الى الحالة الإفتراضية وهي الصف الواحد وبالنسبة لملف الأخ أبو نصار نفس المشكلة لم تتغير الذي بقي في الكود هو الإرجاع الى الحالة الإفتراضية والسلام عليكم أنس دروبي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 جربته الان شغال مزبوط بعد ضغط الزر يبقى السطر الافتراضي فقط ماهي المشكله التي تواجها ؟؟ رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 22, 2012 الكاتب مشاركة قام بنشر سبتمبر 22, 2012 أخي أبو نصار أرجع أغلق الفورم وأعيد فتحه من جديد وإدخل البيانات في السطر الأول وعند الضغط على مفتاح enter لأيضيف صف ثاني هذا الذي يحصل معي في ملفك ونشكركم على تعاونكم معناوأرجو أن لا أكون قد أزعجكم بطلبي والسلام أنس دروبي رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر سبتمبر 22, 2012 مشاركة قام بنشر سبتمبر 22, 2012 فعلا اخي انس الان مزبوط اعتقد جرب مرفق نفس المشاركه السابقة رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 22, 2012 الكاتب مشاركة قام بنشر سبتمبر 22, 2012 الله يجزيك الخير أخي أبو نصار الآن أشتغل الكود بطريقة صحيحة وفعالة شكراً لك على المعلومات التي قدمتها لي وصل المطلوب والسلام عليكم أنس دروبي رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 23, 2012 مشاركة قام بنشر سبتمبر 23, 2012 السلام عليكم الاستاذ الحبيب عبدالله باقشير عمل متقن وجميل بارك الله فيك معلومات ناخذها على طبق من ذهب زاك الله علما ورفعه اكرمك الله اخي الحبيب عباد تقبل تحياتي وشكري ===================================== الله يجزيك الخير أخي وحبيبي الأستاذ عبد الله باقشير فأنت لك فضل علي في تعلمي المحاسبة على إكسل كان هو المطلوب بكل معنى الكلمة ولكن المشكلة ذاتها عند الضغط على زر ترحيل وبعد وضع البيانات في الورقة لايرجع الكود الى الحالة الإفتراضية وهي الصف الواحد وبالنسبة لملف الأخ أبو نصار نفس المشكلة لم تتغير الذي بقي في الكود هو الإرجاع الى الحالة الإفتراضية والسلام عليكم أنس دروبي جزاك الله خيرا تحتاج اضافة هذه الاسطر نهاية كود الترحيل فقط Me.FrameList.Controls.Clear MyCont = 0 MyTop = Frmtop kh_AddContl هذا كود الترحيل مع اضافة الاسطر Private Sub CommandButton1_Click() Dim LastRow As Long Dim Addrs As String Dim cotl As Control '''''''''''''' LastRow = Sheets("Data").Cells(Rows.Count, "A").End(xlUp).Row + 1 ''''''''''''''' For Each cotl In Me.FrameList.Controls If Len(Trim(cotl)) Then Addrs = cotl.Name Sheets("Data").Cells(LastRow, "A").Range(Addrs).Value = cotl.Value End If Next Me.FrameList.Controls.Clear MyCont = 0 MyTop = Frmtop kh_AddContl End Sub رابط هذا التعليق شارك More sharing options...
Akram Galal قام بنشر سبتمبر 23, 2012 مشاركة قام بنشر سبتمبر 23, 2012 أستاذي الفاضل عبد الله بقشير عمل رائع جداً ولك كل الشكر والإحترام ولكن لدي طلب صغير وهو اريد أن لا يزيد عدد صفوف التكست بوكس عن 20 صف فقط لاغير وجزاكم الله خيرا. رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 23, 2012 مشاركة قام بنشر سبتمبر 23, 2012 أستاذي الفاضل عبد الله بقشير عمل رائع جداً ولك كل الشكر والإحترام ولكن لدي طلب صغير وهو اريد أن لا يزيد عدد صفوف التكست بوكس عن 20 صف فقط لاغير وجزاكم الله خيرا. تحتاج اضافة هذه السطر بداية الكود kh_AddContl If MyCont = 20 Then Exit Sub هذا الكود بعد اضافة السطر اعلاه Private Sub kh_AddContl() Dim MyName As String Dim MyFrmLeft As Double, ScHght As Double Dim MyLeft As Double, MyWidth As Double Dim i As Integer '''''''''''''''''''''''''''''''''''''''''''''''''''''''' If MyCont = 20 Then Exit Sub MyCont = MyCont + 1 ScHght = (MyCont * iTop) + Frmtop '''''''''''''''''''''''''''''''''''''''''''''''''''''''' With Me.FrameList If ScHght > .Height Then .ScrollHeight = ScHght MyFrmLeft = .Left + .Width - .InsideWidth End With '''''''''''''''''''''''''''''''''''''''''''''''''''''''' For i = 1 To 4 MyWidth = Me.Controls("LabelZ" & i).Width MyLeft = Me.Controls("LabelZ" & i).Left - MyFrmLeft MyName = Cells(MyCont, i).Address With Me.FrameList.Controls.Add("Forms.TextBox.1", MyName, True) .Move MyLeft, MyTop, MyWidth, iHt .TextAlign = 3 End With Next MyTop = MyTop + iTop ''''''''''''''''''''''''''''''''''''''''''''''''' End Sub رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر سبتمبر 23, 2012 مشاركة قام بنشر سبتمبر 23, 2012 السلام عليكم الاستاذ الحبيب عبدالله باقشير عمل متقن وجميل بارك الله فيك معلومات ناخذها على طبق من ذهب زاك الله علما ورفعه بالفعل عمل موفق وفكرة زر الانتر جميلة بارك الله لك وعليك وحواليك يا ابا علي على هذه الاعمال الرائعة رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 23, 2012 الكاتب مشاركة قام بنشر سبتمبر 23, 2012 (معدل) السلام عليكم ورحمة الله وبركاته الله يجزيك ألف خير أخي وأستاذي الحبيب عبد الله باقشير على هذه الإضافة الرائعة والمتميزة فكان هذا هو المطلوب والمقصود تماماً بدون زيادة أونقصان وإن شاء الله سوف تشاهدون هذا الكود في برنامج لي سوف أضيفه على المنتدى قريباً بإذن الله تعالى لن أتكلم عليه الآن وأنما هو مشروع تخرج لي في دراستي مرة أخرى الله يجزيك الخير وكل من ساهم معنا في إكمال هذه الفكرة الجميلة والسلام عليكم أخوكم طالب العلم أنس دروبي تم تعديل سبتمبر 23, 2012 بواسطه Creation World رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 23, 2012 مشاركة قام بنشر سبتمبر 23, 2012 السلام عليكم بالفعل عمل موفق وفكرة زر الانتر جميلة بارك الله لك وعليك وحواليك يا ابا علي على هذه الاعمال الرائعة جزاك الله خيرا اخي الحبيب عبدالله المجرب تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 23, 2012 مشاركة قام بنشر سبتمبر 23, 2012 السلام عليكم ورحمة الله وبركاته الله يجزيك ألف خير أخي وأستاذي الحبيب عبد الله باقشير على هذه الإضافة الرائعة والمتميزة فكان هذا هو المطلوب والمقصود تماماً بدون زيادة أونقصان وإن شاء الله سوف تشاهدون هذا الكود في برنامج لي سوف أضيفه على المنتدى قريباً بإذن الله تعالى لن أتكلم عليه الآن وأنما هو مشروع تخرج لي في دراستي مرة أخرى الله يجزيك الخير وكل من ساهم معنا في إكمال هذه الفكرة الجميلة والسلام عليكم أخوكم طالب العلم أنس دروبي الله يوفقك في مشروعك وجزاكم خيرا وبارك فيكم تقبل تحياتي وشكري رابط هذا التعليق شارك More sharing options...
عبدالله باقشير قام بنشر سبتمبر 25, 2012 مشاركة قام بنشر سبتمبر 25, 2012 السلام عليكم تعديل بسيط لمظهر الفورم في الملف المرفق 2003-2007 Enter.rar رابط هذا التعليق شارك More sharing options...
أنس دروبي قام بنشر سبتمبر 25, 2012 الكاتب مشاركة قام بنشر سبتمبر 25, 2012 السلام عليكم ورحمة الله أخي الحبيب عبد الله التعديل في الملف أعطاه مرونة في العمل وسهولة الأداء الله يجزيك الخير وأدعو الله أن يجعلك منارة للعلم نهتدي بها في طريقنا أخي لو سمحت وتكرمت علي أرجو مشاهدة هذا الرابط والمشاركة رقم(9) http://www.officena.net/ib/index.php?showtopic=43349&st=0#entry250437 والسلام عليكم أخوكم انس دروبي رابط هذا التعليق شارك More sharing options...
.thumb.jpg.546ec64fdc5bdcb6d1f6585dd86fc424.jpg)
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان