saad abed

للرفع

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

اخى ابوتامر فى المثال عدة تكسات اريد اكتب نص فى تلست 1 واعلمه وكليك يمين اختار كوبى والصق بكليك يمين كما يحدث فى خلايا الورقه !_Right&Left_Mouse_Click_On_UserForm.xls

اخى ابوتامر جزاك الله عنا خيرا كيف اكتب ماكرو يسمح لى بالكوبى بست فى الفورم(copy &paste) اى نقل محتوى الكنترول الى اخر اشكرك

لا اظن ان فكرة الضغط على مفتاح الشفت اثناء الفتح تلغى الحماية وتمكنك من الفتح وخصوصا بوجود كلمة سر خارجية للملف اشكر لك ردك على سؤالى

اخى wael_rafat هل ملف AAA.DLL يحتوى على اكواد ام لا ============================ ملفات الاكسيل المحمية بكلمات مرور خارجية صعب فتحها وهناك برامج لعمل ذلك ولكن تاخد وقت اما محرر الاكواد فتنجح بعض البرامج فى فتح المشروع

اخى شوقى عمل ممتاز جزاك الله خيرا

اخى ضاحى جزاك الله خيرا

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

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

Private cmdLots(40) As MSForms.TextBox Private Sub CommandButton1_Click() Dim MyFrmLeft As Double Dim ScHght As Double Dim i As Long Dim j As Long Dim k As Long Dim n As Long For j = 6 To 1 Step -1 For i = 1 To 40 k = i Set cmdLots(k) = Frame1.Controls.Add("Forms.textbox.1", Chr(97 + n)) With cmdLots(k) .Top = i * 20 .Width = 110 .Height = 30 .Left = (j * 110) - 50 .Text = .Name & k .TextAlign = 2 .Font.Bold = True .Font.Size = 12 .Font.Name = "Arial" cmdLots(k).BackColor = &H80000003 End With Next i n = n + 1 Next j '================================= End Sub هذا الكود من اعمال اخى ياسر خليل يضيف ما شئت من تكست بوكس بالاسماء التى اريدها ولكن ما اريده هو ان يكون العمود الاول والثانى .Width = 110 اكبر من ذلك Book1.xlsb

السلام عليكم ورحمة الله وبركاته هل يمكن اضافة صف كنترول كلما وصلت للتسجيل لاخر كنترول الكنترول مسمى بطريقة الاعمده a1-b1-b1-d1-e1-f1-g1 الهدف من التسمية هو كود اخى عبدالله باقشير فى الترحيل والهدف من الفرام ظهور شريط التمرير على الفريم اذا تخطى حجم الفرام وتظهر راس الفاتوره اشكركم Book1.rar

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

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

اخوانى الاعزاء ارفقت مثال يشابه الملف الاصلى فى الفكره فمشكلتى ان الاسعار متغيره فاريد الحصول على اخر سعر من اسعار متعدده كتب بينهم فاصل "-" فهل ممكن الحصول على اخر سعر بهذه الطريقه يفضل الاكواد من فضلك لا تقوم برفع ملف مضغوط طالما حجم الملف صغير ,تجنبا لعدم اهدار وقت الأساتذة فى الأطلاع على الملف-وطالما انك تريد الحل بالأكواد فكان من الأسهل والأفضل رفع الملف ب Xlsm. Book1.xlsm

اخى الرابط لا يعمل

اخى شوقى اعمالك رائعة وجديده وفقكم الله المرتجع يكون بكل بساطه من الفاتورة بإضافة نوع الفاتورة (شراء وبيع ومرتجع شراء ومرتجع بيع) اتابعكم باهتمام لانى اعلم امكانياتك البرمجية

اخى انس اعمالك رائعة في انتظار برنامج المحاسبة

اخى شوقى ربيع أولا وحشنى جدا جدا جدا الك وحشه يا غالى ابداع ابداع ابداع ابداع ابداع ابداع ابداع ابداع ابداع

اخى الزبارى نحن في الانتظار

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

اخى الفاضل جزاك الله خيرا مواضيعك مفيده تحياتى

اخى الزباري اكرمك الله وجزاك الله خيرا

اخى الزبارى اسمح لى اخى ان ابدى اعجابى باسلوبك جزاك الله خيرا هناك مواضيع فى vba لم يتطرق اليها احد فهل ممكن تشرحها باسلوبك مثلا :- Collection CreateObject("Scripting.Dictionary")

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