صالح حمادي

الحمد لله أخي كلنا ننتفع و ننفع بإذن الله

هل تحقق لك المطلوب أخي

آسف أخي تفضل comb.rar

السلام عليكم تفضل هذا مثال على ما طلبت أخي

شكرا جزيلا أستاذي الوزير لقد وفيت و كفيت بارك الله لك وجعلها في ميزان حسناتك إن شاء الله الآن تقريبا إكتملت لدي معلومات التصدير و الإستيراد بفضل الله عز وجل الذي سخرك لنا لتساعدنا و تأخذ أجرك من عنك رب السموات و الأراضين. تقبل الله صيامك و قيامك بمزيد من الأجر و الثواب

العفو أستاذنا أنت أهل لها

السلام عليكم أخي الوزير كيف حالك إن شاء الله تكون بخير و عافية لقد لاحظت أنه لإستراد بيانات من أكسل يجب أن تكون الحقول لها تسميات محددة مثل (f1;f2;f3......) أو (mrk1;mrk2;mrk3;....) و هو لا يقوم بالإستيراد إذا وضعنا تسميات أخر مثل (name ,numero, adress,.....)أم هل هذا هو الصحيح أم أن هناك أمور أخرى أجهلها

السلام عليكم و رحمة الله تعالى وبركاته .بارك الله فيك يا أخي و أحسن الله إليك على المساعدة و الشكر موصول أيضا للأستاذ ياسر خليل أبو البراء الحمد لله لقد نجحت معي الفكرة بعد إجراء بعض التغييرات على الكود و أصبح كما يلي: lr = ws.Range("A1").CurrentRegion.Rows.Count .Range("f2").Formula = "=SUM(c2:e2)/count(c2:e2)" .Range("f2").AutoFill Destination:=.Range("f2:f" & lr), Type:=xlFillDefault .Range("h2").Formula = "= (G2 * 3 + F2 * 2) / 5" .Range("h2").AutoFill Destination:=.Range("h2:h" & lr), Type:=xlFillDefault

جزاكم الله كل خير على أعمالكم

ما شاء الله عليك أستاذ رمهان

ما شاء الله عليك أستاذ الوزير جعلها الله في ميزان حسناتك إن شاء الله

بارك الله فيك أخي و أستاذي سليم سوف أقوم بالتطبيق و أطلعك على النتائج إن شاء الله

تفضل الملف بعد التعديل و وضع مربع قائمة فتح نموذج لتعديل.rar

السلام عليكم لكم جزيل الشكر أخوتي على المداخلة ما أقصده هنا أن كل خلية من العمود E تساوي مجموع الخلايا التي قبلها من نفس السطر A1+B1+C1=E1 و A2+B2+C2=E2 و A3+B3+C3=E3 ...و هكذا. لأن الذي أحتاجه أنا هو F4= SUM(C4:E4)/COUNT(C4:E4) و F5= SUM(C5:E5)/COUNT(C5:E5) ......و هكذا. و H2= (G2*3+F2*2)/5 و H3= (G3*3+F3*2)/5 و هكذا. لكني أحببت أن أفعلها بــ VBA لأن هذا الملف سوف نقوم بتصديره من قاعدة بيانات أكسس و هذا المرفق يوضح ذلك. جمع وضرب عمودين.rar

أخي ملفك لم يفتح عندي لأن لدي أكسس 2007 لكن لا بأس سوف أشرح لك الطريقة إن شاء الله. 1- أنشئ إستعلاما واجعل فيه شرط المعيار اسم صاحب الجهاز = مربع نص اسم صاحب الجهاز في النموذج الفرعي للتصفية 2- أنشى نموذج يستند للإستعلام الذي أنشئته (من أجل التعديل فيه) 3-أنشى ماكرو في حدث عند النقر لمربع نص اسم صاحب الجهاز في النموذج الفرعي للتصفية و جرب طبق إن شاء الله تكون النتيجة تمام. وافني بالنتيجة بعد التطبيق أخي الكريم أدعوا لي و لجميع أعضاء المنتدى فتح نموذج لتعديل.rar

شكرا جزيلا أخي لكنني لا أريد وحدة نمطية فأنا ما أريده هو جعل قيمة العمود F تساوي جمع أو ضرب أو قسمة العمود D و العمود E بإستعمال VBA أو حتى جمع ثلاثة أعمدة مثلا : E=A+B+C و لك جزيل الشكر أخي

بارك الله فيك أخي كلامك هذا يسرني كثيرا و شهادة أعتز بها تقبل الله صيامك

آسف لقد أتعبتك معي لقد وجدتها بالفعل الله يجزيك على تعبك معي فأنا اقل من مستوى و لا أدري كيف أعيد لك جميلك هذا غير الدعاء لك

حتى هذه لم أجدها أخي. لا أدري أين الإختلاف

لكني لم أجدها عندي أنا أستخدم أكسس 2007 و هذا هو الرابط الذي أخبرتك به http://arabteam2000-forum.com/index.php?/topic/266790-استيراد-جميع-أوراق-الأكسل-إلى-أكسس/

خلال بحثي عن طريق تمكنني من إستراد جميع أوراق (شيت) ملف الأكسل وجدت هذه العبارة في إحدى المنتديات و سوف أبحث عنها إن وجدتها سوف أزودك بالرابط أخي الكريم. أنا مازلت أجهل طرق الإسناد إذا كان لديك رابط أو ملف pdf يفيدني في هذا الأمر أحسن الله لك و لوالديك حبيبي

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

بارك الله لك و عليك و أثابك الجنة إن شاء الله الكود يعمل بشكل ممتاز أخي لدي بعض الأسئلة شرح هذا السطر و ما هي فائدة الكلمة set Set xl = GetObject(.SelectedItems(1)) لماذا لم تقم بتعريف x1 و شرح هذا السطر sheets.AddItem xl.sheets(i).name مشكور أخي على كل اللي عملته.

هذا هو البرنامج مع ملف أكسل. إن شاء الله تكون وصلت الفكرة أخي استيراد.rar

نعم كلامك مضبوط أخي النسخة التي لدي عربية. شكرا جزيلا على الإضافات