هادى محمد المامون سالم

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

بسم الله الرحمن الرحيم خبور باشا دائما رائع السلام عليكم

بسم الله الرحمن الرحيم اخى ابو اسامه انظر ماذا قلت هذا الامر يتطلب انشاء متغييرين و سلطلق عليهم عدادان (Counter) عداد للبدايه اطلقت عليه h ثم اعطيته قيمه 1و عداد للنهايه اطلقت عليه h1 ثم اعطيته قيمه 33 و بذلك استطعت السيطره على المجال المراد جمعه ,و فى نهايه جمله التكرار قبل Next ادرجت كود يقوم باضافه 33 على كل من h و h1 و بذلك يكون المجال الجديد من h= 1+33 = 34 و h1 = 66 = 33+33 وهكذا Sub sTotal() Range("C:C").ClearContents Dim RNG_Total As Range Dim h, h1, cont As Integer h = 1 h1 = 33 cont = 1 For i = 1 To 110 Set RNG_Total = Range(Cells(h, "A"), Cells(h1, "A")) Cells(cont, "C") = Application.WorksheetFunction.Sum(RNG_Total) / 33 cont = cont + 1 h = h + 33 h1 = h1 + 33 Next End Sub السلام عليكم

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

بسم الله الرحمن الرحيم اخى خالد : اساس الكود هو طريقه الاشاره الى المجال جرب الطريقه التاليه لتحديد المجال Sub sRange() Range(Cells(1, "A"), Cells(10, "C")).Select End Sub السلام عليكم

بسم الله الرحمن الرحيم اتبعت نصيحه اخى assahir مرفق ملف كخطوه أولى لعده شركات تظهر فى مربع تحرير و سرد و عند اختيار اى شركه تظهر بيانات التداول و الكميه و تستطيع اضافه اى شركه جديده قتظهر بالقائمه تلقائيا 0 تستطيع اضافه رسم بيانى و سوف بتم تحديثه عند تغيير قيم الخلايا لان النطاق سيظل ثابت عند 31 بالنسبه للطلب الثانى أفضل رفع الملف السلام عليكم Borsa.rar

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

بسم الله الرحمن الرحيم الله يفتح عليك اخى خبور و لكن تظهر رساله خطأ عندما يكون عدد الصفوف اقل من 3 مرفق الملف بعد التعديل السلام عليكم ____________01.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Total.rar

بسم الله الرحمن الرحيم ستجد موضوع مشابه هنا http://www.officena.net/ib/index.php?showtopic=16628 السلام عليكم

بسم الله الرحمن الرحيم للرفع "بعد ساعتان فقط" الصبر جميل لالغاء اخر 3 صفوف استخدم الكود التالى Sub sDelete() For i = 1 To 3 Rows.End(xlDown).Delete Next End Sub مرفق ملف تستطيع تطبيقه مع عدم وجود فراغات السلام عليكم Delete_1.rar

بسم الله الرحمن الرحيم جرب الملف المرفق ملحوظه : العنوان بالغاء 20 صف المشاركه بالغاء 3 صفوف الملف بالغاء اخر سجل و فى النهايه قمت بالغاء الاعمده الملونه باللون الاصفر السلام عليكم Delete_Row.rar

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

بسم الله الرحمن الرحيم لكى تفهم الكود يجب معرفه جمله For.....Next و هى احدى جمل التكرار اولا i هو العداد او عدد مرات تكرار الكود و ليس من الضروره ان تسميه i و يمكن تسميته اى حرف اخر مثال : اذا اردت ان تظهر لك رساله بالارقام من 1 : 5 مثلا استخدم الكود التالى Sub s_i() For i = 1 To 5 MsgBox (i) Next End Sub جرب تغيير الارقام من 2 : 6 مثلا و هكذا تستطيع تكرار الكود اذا وضعته بين For.....Next مرفق ملف الكود السلام عليكم Code_01.rar

بسم الله الرحمن الرحيم ستجد ماتريد على هذا الرابط بالمشاركه رقم 178 و السيريال فى نفس الصفحه http://www.officena.net/ib/index.php?showt...1469&st=165 السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Company_01.rar

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Combo_01.rar

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

بسم الله الرحمن الرحيم مرحبا بعودتك بهذه المشاركه الرائعه السلام عليكم

بسم الله الرحمن الرحيم لم استطع تحديد الخلايا التى تريد تحديثها اليك ملف يجمع قيم الخلايا فى A1 و يقوم بتحديث القيم باستمرار بعد ثانيتان السلام عليكم OnTime.rar

بسم الله الرحمن الرحيم الطلب غير واضح و لكن قدر مافهمت ان مكان الملف هو الذى ذكرته بالكود \\10.32.1.85\test.xls حيث ان الرقم 10.32.1.85 هو اسم الجهاز جرب استبداله بمكان و اسم الملف الذى تريد استخدامه السلام عليكم

بسم الله الرحمن الرحيم جرب الملف المرفق السلام عليكم Post.rar

بسم الله الرحمن الرحيم اخى ابو اسامة العينبوسي ربنا يزيدك علما السلام عليكم

بسم الله الرحمن الرحيم اخى إكسيلجي لم اجد فى الملف صافى المستحق = ZERO أضفت لك عمود اسمه Print اذا كانت القيمه فيه = 1 يتم معاينه الطباعه(تستطيع تغيير الكود الى طباعه) لجميع الموظفين طبعا هذا العمود تستطيع ربطه بصافى الدخل حتى تتحكم فى القيمه مرفق ملف بطريقه اخرى للطباعه السلام عليكم PAYROLL_AMENDED_01.rar

بسم الله الرحمن الرحيم أخى محمد عسكر أخى نزار سليمان عيد أخى ابو اسامة العينبوسي شكرا و بارك الله فيكم الترقيم الأول باستخدام الفيجوال بيزيك الترقيم الثانى يدوى لقد قمت بادراج مثال بسيط كما قلت حتى لا يكون الموضوع معقد 0 اليكم مثال اخر (بصراحه مثال مفيد جدا ) لتضح الصوره اكثر الهدف : انشاء مسلسل من 1 : 10 و مجموع الخلايا لعده اعمده ثم وضع ناتج الجمع فى نهايه العمود الخطوات : الخطوه الاولى : انشئ Class جديد و قد قمت بتسميته CTotal_Range بالضغط على F4 و تغيير اسمه و اليكم داله باسم RNGB_Total تجمبع عمود B و تستطيع نسخ هذه الكود لعد اعمده مع تغيير حرف "B" الى اى حرف عمود مع تغيير اسمها 0 كما هو بالملف المرفق Public Function RNGB_Total() Dim RNG_Total As Range Dim h As Integer h = Range("A1").CurrentRegion.Rows.Count Set RNG_Total = Range(Cells(1, "B"), Cells(h, "B")) Cells(h, "B").ClearContents Cells(h, "B") = Application.WorksheetFunction.Sum(RNG_Total) End Function الخطوه الثانيه : استدعاء Class الاول لانشاء المسلسل Class1 استدعاء CTotal_Rangeللعمود الذى تريد ايجاد مجموعه بالكود التالى Sub DOIT() Dim clas As New Class1 clas.To_10 Dim clas1 As New CTotal_Range clas1.RNGA_Total clas1.RNGB_Total clas1.RNGC_Total clas1.RNGD_Total clas1.RNGE_Total End Sub و قد قمت بارفاق ملف الورقه الاولى تقوم بجمع الاعمده من B الى E الورقه الثانيه تقوم بجمع العمود B و C الورقه الثالثه تقوم بجمع العمود B و D و ذلك لاستغلال Class واحد فى عده اعمده لا حظ انك بمكن تغيير المجال بتغيير كود المشاركه السابقه كم فعلت بتغيير نهايه I الى 11 السلام عليكم Class_01.rar