نجوم المشاركات

السلام عليكم الاخت الفاضلة / سما محمد علي حسب علمي .... ان هذا الجزء او هذا السطر يتم استخدامه والغرض منه هو ( تسريع الأداء لأقصي حد ممكن ) يتم إستخدامه في أول الكود بالأعلي لانه عند إطفاؤه (False ) يوقف عمل تحديث الشاشة (ScreenUpdating) والحسابات في الاكسيل ويتم استخدامه في نهاية الكود ليتم تشغيله مرة اخري (True) ليعيد عمل تحديث الشاشة (ScreenUpdating) والحسابات .... والحصول علي اعلي كفاءة للكود ... جزاك الله خيرا

السلام عليكم يبدو ان هناك مشكلة حدثت للملفات في الترقية الجديدة ويارك الله فيك اخي ضاحي على مجهودك الطيب وهنا الملفات مرة اخرى الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء هنا ملف كامل لكيفية استخدام الUserForm وكيفية التعامل معه وبجميع أدواته المستخدمة مع شرح الخصائص المتعلقة به وبادواته كذلك تم شرح الاكواد الخاصة به وبادواته وتم استخدام الصور والامثلة العملية في الشرح وبصورة ميسرة وبسيطة حتى يتم استيعابها بالصورة المطلوبة وتم تقسيم العمل الى ستة ملفات وبصورة تسلسلية اخوكم عماد الحسامي الدرس الأول UserForm.rar الدرس الثاني.rar الدرس الثالث textbox.rar الدرس الرابع.rar الدرس الخامس.rar الدرس السادس.rar الدروس السته مجمعه.zip

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام علي سيدنا محمد النبي الامين وعلي من سار بهديه الي يوم الدين اما.....بعد في موضوع لي سابق طرحت كود تفقيط لتحويل الأرقام من أرقام إلى كتابة لكن (إنجليزي) http://www.officena.net/ib/index.php?showtopic=45828&hl= اليوم سأطرح لكم كود تفقيط أو ملف جاهز لإضافته في الفيجول بيسك بكل سهوله وإستخدامه كداله كاي داله أساسيه في الإكسيل طريقة إضافة ملف التفقيط : حمل ملف التفقيط من المرفقات وافتح ملف الإكسيل وإظغط على Alt+F11 وبعدها ستفتح لك صفحة الفيجول بيسك إذهب إلى File وبعدها Import File وضع الملف وأغلق الفيجول بيسك في الإكسيل إذهب الداله المعرفة من قبل المستخدم وستجدها NoToTxt وتابع الإدخالات كما في الصور المرفقة المميز في هذا التفقيط , يمكنك إضافة أي عمله مثل ريال"هلله_جنيه"قرش_دينار"فلس ملف تفقيط + إكسل شيت.rar

السلام عليكم الاخت الفاضلة / سما محمد علي حسب فهمي للطلب قومي بالبحث في ملفك عن طريق استخدام Ctrl+F عن هذا الحرف التالي [ أو ] في الملف بالكامل فستجدي أماكن الارتباط ( باذن الله ) وكل ما عليك هو تحديد مكانها وحذفها واليك رابط موضوعين بنفس الموضوع للقدير / عباد والرائع دائما / طارق محمود .... جزاهم الله خيرا http://www.officena.net/ib/index.php?showtopic=44114&hl=%D8%A7%D9%84%D8%A7%D8%B1%D8%AA%D8%A8%D8%A7%D8%B7%D8%A7%D8%AA http://www.officena.net/ib/index.php?showtopic=35476&hl= جزاكي الله خيرا

السلام عليكم جرب كليك يمين علي الخلية المراد التعديل عليها format cells custom ثم اكتب 00 ok تحياتي

السلام عليكم الاستاذ القدير / عبدالله المجرب عذرا للرد فلم اري ردك فهم في نفس الوقت تماما ولكنك دائما تسبق الجميع الي الخير وارجو ان اكون قد وفقت في ردي علي الاخت الفاضلة حيث بعد ردك استاذنا لا يوجد رد جزاك الله خيرا

السلام عليكم هذه الجملة لايقاف اهتزاز الشاشة في بداية الكود واعادة تفعيلها بانتهاء الكود اما وضيفتها في بعض الاكواد تهتز الشاشة نتيجة لقيام الكود ببعض العمليات (مثل التنقل وجلب البيانات من عدة اوراق عمل) وهذه الجملة لايقاف هذه الاهتزازات

السلام عليكم جزاكم الله خيرا منتدى رائع

السلام عليكم ورحمة الله أخي الكريم إيهاب، وضعت في الخلية A11 والخلية B11 معادلات شرطية حسب مجموع النطاق A4:A8 (نطاق قيم القروش) في الملف المرفق. ويمكن حجز المعادلات نفسها حسب نطاقات المختلفة للقروش في الجدول.... أرجو أن يكون العمل مقبولا ومستوفيا المطلوب... أخوك بن علية Desktop.rar

تفضل اخي المطلوب بالمرفق بخصوص طلبات للبحث ( جرب ذلك من زر البحث والاستعلام من الشاشة الرئيسية ) وبخصوص الطلب ( بالنسبة لايصال صرف نقدية / شيكات 1 فانا اريد ان يوضع به اسم الطبيب واسم المستشفى ) ... سيتم باذن الله الايصالات 10.rar

السلام عليكم الاخ الكريم / aspiran استخدام الكود التالي لتنفيذ طلبك Sub sama1() Application.Dialogs(xlDialogSaveAs).Show End Sub

تصحيح الكود كالتالى Private Sub Worksheet_Change(ByVal Target As Range) If Not IsEmpty(Target) Then For x = 13 To 290 If Cells(x, 41) > Cells(x, 40) And Cells(x, 44) = "" Then Cells(x, 44) = Cells(x, 41) Cells(x, 45) = Format(Now, ("HH:MM:SS")) End If If Cells(x, 41) > Cells(x, 44) And Not Cells(x, 44) = "" And Cells(x, 46) = "" Then Cells(x, 46) = Cells(x, 41) Cells(x, 47) = Format(Now, ("HH:MM:SS")) End If Next End If End Sub الملف المرفق عملت لك فيه ان الكود لايعمل مادام السوق مغلق حتي لايخرج نتائج علي بيانات اليوم السابق فتكون خاطئة وكذلك عند فتح الملف يحذف الارتفاعات القديمة H-activecell (3).rar

انظر التطبيق ونتيجة التعديل على الحقل النصي حيث وضعت التسمية في قيمة العلامة Log File_up4.rar

السلام عليكم الاخ الكريم / alsawy_hassan بارك الله فيك بالنسبة لازرار الخروج فانت تستخدم End وهي تعمل علي انهاء ظهور الفورم بالكامل وما عليك سوي تغيير هذا الامر في زر الخروج الي احد الخيارين التالين ووظيفتهم هي اخفاء الفورم الموجود امامك فقط Hide او استخدم Unload me ليكون بذلك الكود الخاص بزر الخروج كالتالي Private Sub CommandButton11_Click() Hide End Sub او استخدم Private Sub CommandButton11_Click() Unload me End Sub ولكني لم افهم المقصود بالنسبة لترتيب الادخال !!! وبخصوص شاشة الاستعلام تم عمل المطلوب في الشاشة الخاصة بذلك ويتم الاستعلام عن طريق رقم الموظف كما طلبت جزاك الله خيرا استعلام1112.rar

السلام عليكم الاخ الكريم / apt اكمل الدروس الباقية ستجد اننا قمنا بتلافي هذه المشكلة بوضع زر جديد لترتيب العمل ( وشاهد المرفق بالدرس الخامس في المشاركة 116# ) والملف المرسل منكم في المشاركة السابقة تم عمل اضافة بسيطة لكود الكومبوبكس الخاص بالاستعلام ليصبح اثناء استعلامك عن رقم معين لا يمكنك تسجيل البيانات الموجود امامك حيث انها مسجلة قبل ذلك وتم ذلك باضافة هذا الشرط للكومبوبكس If ComboBox1.Value <> "" Then CommandButton1.Enabled = False End If واليك اخي الكريم ملفك المرسل بعد التعديل ........ جزاك الله خيرا اكسيل ..طريقة عمل شاشة ادخال واستعلام 31.rar

السلام عليكم ورحمة الله وبركاته جرب الكود المرفق يقوم الكود بتلوين الصف النشط في النطاق A7:I429 وعند تغير الصف يعود الصف السابق بألوانه السابقة وايضا عند تلوين الصف النشط بلون اخر يحتفظ الصف النشط باللون الجديد ارجو ان يكون المطلوب الكود في حدث الورقة Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(ActiveCell, [A7:I429]) Is Nothing Then Set RnN = Intersect(ActiveCell.EntireRow, [A7:I429]) ColorN = 65535 If Not IsError(Me.[KDI_ColorSave]) Then Set RnO = Range(Split(Me.[KDI_ColorSave], ";")(0)) ColorO = Split(Me.[KDI_ColorSave], ";")(1) For Each T In Split(Split(Me.[KDI_ColorSave], ";")(2), ",") T1 = T1 + 1 If RnO(T1).Interior.Color = (ColorO * 1) Then RnO(T1).Interior.Color = (T * 1) Next T End If ReDim Arr(RnN.Cells.Count - 1) For R = 0 To RnN.Cells.Count - 1 Arr® = RnN(R + 1).Interior.Color Next R RnN.Interior.Color = ColorN Me.Names.Add "KDI_ColorSave", RnN.Address & ";" & ColorN & ";" & Join(Arr, ",") Set RnN = Nothing: Set RnO = Nothing: Erase Arr End If End Sub في أمان الله تلوين الصف النشط واعادة اللون.rar

لسلام عليكم ورحمة الله وبركاتة عشمى في الله ثم فيكم ان تردو على استفساراتى وما اريد فعله على الملف في اللينك اسم المف do to it الملفين في المرفقات الطلب الاول اولا الملف يتكون من ثلاث اوراق : اول ورقة هى sheet1 ,in وبها تقرير عن الاسم والرقم القومى ورقم بطاقة اخر المطلوب : واريد فعل ماكرو على الورقة sheet 1 وهو يقوم تحويل الورقة من الشمال الى اليمين عمل دمج للخلايا ثم توسيع الخلايا لكى يظهر بها الاسم كامل والرقم كامل ثم عمل فلتر بحيث لايوجد خلايا فارغة في اسم المواطن وليس التاجر لاننى لا اريد التاجر وهى العمود (e) ثانى ورقة هى control وبهذه الورقة اريد وضع الماكرو الذى ينفذ على sheet1 في المكان الاول ومكتوب بالون الاصفر ثالث ورقة وهى باسم main وهى تحتوى على جدول اريد ان يملاء بمحتويات الورقة sheet1 بعد تنفيذ الماكرو على الورقة sheet1 اريد ترحيل الداتا من هذا الشيت الى الجدول الموجود بالورقة main حيث يوجد اسم المواطن ويوجد الرقم القومى والرقم الاخر بحيث ان يعطى عدد االخلايا الغير فارغة من الورقة sheet1 التى سترحل الى main في رسالة تظهر ان عدد المواطنين هو ( ) ملحوظة اريد لتاكيد ان التقرير الموجود في الشيت sheet 1 سوف يتم تغير العدد فيه حيث ان عدد الاسماء فيه متغير ويزيد او يقل حسب كل شهر فيمكن زيادة عدد المسلسل الموجود في الورقة main حسب عدد المسلسل في الورقة sheet 1 مع العلم ان قمت بعمل عدد 2 ( command button ) وتم تسميتهم ولكن لا يوجد بهم اى كود فارجو ان يكون الكود بهم =========================================================================== الطلب الثانى لا يوجد به صله بينه وبين الطلب الاول هو على workbook مختلف تماما واليلنك بتعته هو : اسم الملف eso all اطلب في هذا الملف شئ بسيط جدا هو ان عند ترحيل الخلايا من الورقة batches الى الورقة monitor 1- اريد ان اعرف عدد الخلايا التى تم ترحيلها ( الخلايا التى تم فعلا اللصق لها كام خليه ) في رسالة تظهر امام المستخدم بعدد هذه الخلايا مع العلم ان بعد اللصق تظهر هذه الرسالة بعدد الخلايا التى تم لصقها فعلا 2- مع العلم ان الكود المعمول لعمل عملية النسخ واللصق لايوجد فيه حالة ان اذا تكرر التاريخ باليوم والاسم لايظهر اى رساله بالخلايا المكرره ولكن كل ما يحدث هو ان الاحدث يكون هو الملصق فانا لا اريد ذلك ولكن ماريده هو ان اذا تكرر التاريخ لنفس الاسم فيحدث عملية تنسيق للخليه المرحلة اليها بالورقة monitor بلون جديد وليكن احمر وبنفس الوقت يتم ظهور رسالة في النهاية بعدد الخلايا المكررة ثم بعد الضغط على ok يتم تحديد ;كل حالات التى يكون المكرر بالاسم والتاريخ في الورقة batches وعمل فلتر عليها لتظهر امام المستخدم ليستطيع اعادة كتابتها بطريقة يدوية مرة اخرى ملحوظة : عند فتح الملف سوف تفهم سيادتكم كل ما هو مطلوب واذا كان لدى سيادتكم اى استفسار فانا تحت امر سيادتكم الاكود موجودة بالداخل فارجو ان يضاف عليها المطلوب وتلوينه بلون اخر حتى افهم واذا لم يتاح هذا فاعمل الكود من الاول للاخر براحتك شكرا واسف لاخذ وقت طويل والاثقال بالطلبات الملفين في المرفقات ارجو الرد على في ما ارسلته حيث اننى مضغوط جدا جدا جدا واريد المساعدة المرفقات : tow.rar

للذين يتخوفون من استخدام excel2007 وللذين تعودوا على قوائم excel2003 يمكنك العمل على excel2007 باستخدام القوائم المستخدمة في excel2003 مرفق ملف يحتوي على كود لاظهار القوائم وكود اخر لاخفاء هذه القوائم 2003.rar