البحث في الموقع
Showing results for tags 'vba'.
تم العثور علي 107 نتائج
-
يعطيكم العافية جميعاً وشكرا مقدماً أنا أقوم ببحث علمي وتوصلت لمجموعة من الاسهم التي يفضل اقتناؤها لدي حوالي 20 سهم اريد من برنامج اكسل أن يصنع لي 20000 محفظة من هذه الأسهم بحيث تضم كل محفظة جميع انواع الأسهم وكل محفظة تختلف عن سابقتها بنسبة كل سهم ضمن المحفظة وبعدها حساب بعض الأرقام كعوائد هذه المحافظ ومخاطرتها ومقاييس معينة ةذلك لاختيار المحفظة الأفضل ولكل من هذه المقاييس قانونه فهل هذا ممكن مع الvba وكيف ؟؟ شكراً جزيلاً -
السلام عليكم استخدم خاصية instr لتحديد موقع الكلمة المستخدمة من خلال الكود المستخدم . وبعد الفحص تبين أن كلمة "عقد" قد اعطت قيمة في كلمة "انعقدت" السؤال هل يوجد طرييقة لفحص الكلمة فقط دون أي زيادة ؟ مع جزيل الشكر
-
السلام عليكم اولا اود ان اشكر كل القائمين على هذا الموقع ومايحمله من معلومات فادتني انا كثيرا كثيرا انا اريد مساعده بحثت عنها كثيرا اريد عمل كود للاكسل او الورد بحيث عند عملية الكتابه على الملف والانتهاء من ملئه مجرد الضغط على تخزين ينتقل بي الى الاوت لوك لاقوم بارسال الملف ويكون الملف مرفق ويوجد رساله مختصره بالبريد مع العناوين التي سوف ترسل لهم TO وايضا CC وجدت مثله لاكن لااعلم كيف اجعله دائم يعني كل مره ادخل اغير المعلومات ويرسل انا ماعرفت كيف اخزن الشيت واخليها بهذا الامر يمكن عندي مشكله في عملية تركيب VBA فاتمنى حد يوضح لي بشكل ميسر التركيب والحفظ اتمنى مساعدتي لكم جزيل الشكر مع التوضيح كيف اخزن الملف بشكل دائم هذا عمله واذا فيه حد عنده مثل هالملف جاهز اكسل يحتوي على ايقونه بنهايته ارسال يضغط عليها وتتحول الى الاوتلوك اكون شاكر له يريحني كثير ان شاء الله وصلت فكرتي لكم برفق لكم الكود الذي لدي send cod.txt
-
ارجو المساعدة احفاء الصوف.rar -
السلام عليكم .. لدي طلب مستعجل .. انا مبتدئ في استخدام فيجوال بيسك مشكلتي اني اريد نقل اكثل من قائمة من فيجوال بيسك الى برنامج اكسل علما اني وجدت الرابط التالي وفيه شرح نقل قائمة واحدة فقط ---- http://fr.scribd.com/doc/19578575/%D8%B1%D8%A8%D8%B7-%D8%A7%D9%84%D9%81%D9%8A%D8%AC%D9%88%D8%A7%D9%84-%D8%A8%D9%8A%D8%B3%D9%83-%D8%A8%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D8%AC-%D8%A7%D9%84%D8%A7%D9%83%D8%B3%D9%8A%D9%84 ----- أرجوا الإفادة من خبراء البرمجة قريبا .. للتواصل السريع .. www.facebook.com/drnaoui -
السلام عليكم و رحمة الله و بركاته اريد ان اظهر رسالة خطأ يكون فيها عدة سجلات Array ارجو المساعدة Dim rSEL, rSUM, rDes As DAO.Recordset Dim vItem_id, vQnty, vSum As Integer Dim vDes As String If Not IsNull(itemId) And Not IsNull(qnty_in) Then If qnty_in <= 0 Or qnty_in > balance Or IsNull(balance) Then Cancel = True End If Set rSEL = CurrentDb.OpenRecordset("SELECT item_id,item_qnty FROM basketQnty_tbl WHERE basket_id=" & basketId) 'Check to see if the recordset actually contains rows If Not (rSEL.EOF And rSEL.BOF) Then rSEL.MoveFirst Do Until rSEL.EOF 'Save itemId into a variable vItem_id = rSEL!item_id vQnty = (rSEL!item_qnty) * qnty_in Set rSUM = CurrentDb.OpenRecordset("SELECT sum(qnty_in*qnty_type) as QN FROM sales_tbl WHERE itemid=" & vItem_id) Set rDes = CurrentDb.OpenRecordset("SELECT itemDesc FROM items_main WHERE itemId=" & vItem_id) vSum = rSUM!QN vDes = rDes!itemDesc 'Move to the next record. Don't ever forget to do this. If vQnty > vSum Then MsgBox "لديك فقط ( " & vSum & " ) من مادة ( " & vDes & " ) في المستودع" Cancel = True End If rSEL.MoveNext Loop End If rSEL.Close End If ArrayQT.rar
-
السلام عليكم احتاج الى مساعدتكم بتعديل الكود التالي : Sub CopyPriceOver() If Range("A1").Value > Range("B1").Value Then Sheet1.Range("A1").Copy Sheet1.Range("B1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Calculate Calculate ElseIf Range("A1").Value < Range("C1").Value Then Sheet1.Range("A1").Copy Sheet1.Range("C1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Calculate Calculate End If Call ScheduleCopyPriceOver End Sub ما اريد عمله هو التالي اذا القيمة في الخلية A1 اكبر من القيمة في الخلية B1 فيقوم بنسخ القيمة من A1 الى B1 و اذا القيمة في الخلية A1 اصغر من القيمة في الخلية C1 فيقوم بنسخ القيمة من A1 الى C1 خلية A1 خلية متغيرة فالغرض من الكود هو استخراج اعلى قيمة سجلتها الخلية A1 واستخراج اصغر قيمة سجلتها الخلية A1 اريد الكود ان يقوم بتطبيق العملية على الخلايا A1:A100 فينظر بكل خلية من A1 الى A100 اذا اي خلية في A اكبر من الخلية B يقوم بنسخها الى B واذا اي خلية في A اصغر من الخلية C يقوم بنسخها الى C مثال للتوضيح فقط: نفترض ان الخلية A79 اكبر من الخلية B79 فيجب ان يقوم الكود بنسخ A79 الى B79 نفترض ان الخلية A88 اصغر من الخلية C88 يقوم بنسخ خلية A88 الى الخلية C88 نفترض ان الخلية A45 اصغر من الخلية B45 لا يقوم بالنسخ ولا بمسح الخلية B45 لانها اصغر من A45 وليست اكبر نفترض ان الخلية A99 تساوي B99 او C99 لا يقوم بعمل شي ولا يمسح B99 و C99 ياليت اجد منكم المساعدة ولكم مني جزيل الشكر Test.zip
