البحث في الموقع

السلام عليكم أنا جديد بالبرمجة أرجو أن يتسع صدركم لآسألتي قد تكون كثيرة وأنتم الكرام سؤالي الأول : أريد أن أجري عملية جمع مجموعة خلايا في عمود الخلية الأولى بإسم متغير وكذلك الخلية الأخيرة بإسم متغير آخر أرجو أن يكون السؤال واضحا ذيادة في التوضيح : لدي فورم إدخال و عند أول إدخال يأخذ رقم الخلية ويضعه في متغير وبعد أكثر من إدخال يأخذ رقم آخر خلية ويضعه في متغير آـخر الآن أريد أن أجمع الخلايا بإستخدام المتغيرات أشكركم شكرا جزيلا

السلام عليكم ورحمة الله وبركاته اخواني الاعزاء هل من طريقة عند طباعة اي تقرير تظهر خصائص الطابعة كما مرفق في الصورة لتحديد عدد مرات الطباعة او اختيار نوع الطابعة. ولكم جزيل الشكر

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

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كل عام أنتم جميعا بخير أحبابي في الله اليوم موعدنا مع فيديو جديد للمتقدمين في الإكسل إلى عشاق التميز في التعامل مع نماذج إكسل يشرح كيفية تصغير نموذج الإكسل إلى شريط المهام إخفاء برنامج الإكسل Hide excel window إضافة زر تصغير للنموذج add minimize button to userform إضافة أيقونة لشريط عنوان النموذج add icon to title bar for userform إضافة أيقونة للنموذج في شريط المهام add icon to userform to taskbar تصدير موديول export module استيراد موديول import moduleأي استفسار لا تتردد في كتابة تعليق ادعمنا ب لايك كومنت شير ولا تنسوني من صالح دعائكم

السلام عليكم يفيد هذا الموضوع من يريد توسيع و تضييق ارتفاع حقول التقرير أوتوماتيكيا لتمتد فى صفحة واحدة عند الطباعة مهما اختلف عددها رد قيم للأستاذ جعفر

السلام عليكم تحية طيبة للجميع عندي معادلة صفيف في النطاق "H7:H26" تبدأ من الصف 7 إلى الصف 26 {=IF(OR(ISBLANK(C7:G7)),"",ROUND(SUM(C7,D7,E7,F7,G7),0))} المطلوب تحويها لكود vba حيث يتم تنفيذ كود المعادلة في النطاق "H7:H26" بدون إستخدام الأمر .FillDown تحويل خلايا النطاق إلى قيم .Value بدلا من معادلات يتم تحديث ناتج المعادلة تلقائي عند إدخال أو تغيير المعطيات ( بالضبط كما تعمل المعادلة بنفسها ) يا ريت الكود كاملا ولكم الشكر المثال مرفق Book100.zip

السلام عليكم ورحمة الله وبركاته من زمان كنت ابحث في المنتديات والمواقع التقنية عن كود لجلب الصور من فولدر الى الاكسيل لم اوفق في هذا البحث واقرب ما وجدته كان كود قديم لا يعمل الا على الاكسيل القديم 97 - 2003 وكان الملف حجمه كبير وبطيء على الجهاز ولا يناسب طبيعة عملي ثم تركت الفكرة لفترة ثم بدأت في الاطلاع على ال VBA وبدات في تسجيل بعض الماكرو البسيطة واستخدامها في عملي حتى تذكرت في يوم رغبتي القديمة فقلت ولم لا لما لا ابدء في عمل كود لجلب الصور من الملف بامكانياتي المتواضعه فبدأت في تسجيل ماكرو عادي ثم عدلت على الكود قليلا قليلا بمساعدة البحث وموقع Stack Overflow وكتاب VBA For Dummies حتى كانت النتيجه مرضية الى حد ما لي واردت مشاركة ما بدأته معكم والشكر موصول للاساتذة في منتدى اوفيسنا والذي تعلمت منه الكثير والان مع الملف وهو عبارة عن ملف اكسيل به عدد 2 شيت الشيت الاول DATA : يحتوي على جدول به ثلاث اسطر السطر الاول لتحديد المسار اي عنوان الفولدر الذي يحتوي على الصور وهو في الملف المرفق اسم الفولدر"1" في البارتيشن "D" ويجب الحرص على وضع شرطه مائلة بعد عنوان الفولدر مباشرة السطر الثاني لتحديد امتداد ملف الصور ويكتب نقطة ثم الامتداد السطر الثالث لتحديد عنوان الخلية المراد وضع اسم الصورة بها في الشيت الاخر "Gallery" الشيت الثاني Gallery : يحتوي على اطار الصورة التي سيتم استدعائها بناء على التغيير في الخلية الموجودة تحت اسم الملف وهذه الخلية يمكن تغيير موضعها عن طريق شيت DATA في ثالث سطر في الجدول - ملحوظة الصورة يمكن تعديل حجمها وتغيير مكانها حسب الحاجة وفي النهاية ارجوا ان تستفيدو من هذا الملف ولي رجاء من له اي استفسار لا يبخل به علينا ومن له تصحيح او نصيحة لا يبخل بها علينا والملف حقوقه محفوظة لكل مسلم سيحانك اللهم وبحمدك استغفرك واتوب اليك Great 1.zip

السلام عليكم ورحمة الله وبركاته تحيه طيبه للجميع انا جديده في التعامل مع الفيجوال بيسك سأشرح لكم مااريد وجزى الله من ساعدني خير الجزاء في الدنيا والاخره لدي ملف اكسيل متغير كل اسبوع يحتوي على الاعمده التاليه بنفس الترتيب Category Type User Name Unique ID First-Last Name Course Name Class Name Class Code Class Start Date Class End Date Vendor Name Class Location Class Actual Location Request Submitted Request Status Request Form Name Levels Required Levels Completed Escalated Managed by Class Type Email في كل مره افتح الملف يجب علي ان افلتر الملف واخذ معلومات منه احاول ان اعمل فورم بسيط بحيث بضغطه زر استطيع ان افتلر الجدول المحدد بدون ماافعله كل مره أولا أريد زر حذف جميع الصفوف التي تتوفر فيها هذي الشرطين لابد لي من حذف الصفوف اللي تحتوي على 0 من عامود Levels Completed وايظا حذف الصفوف التي تحتوي على 1 = Levels Completed و 3 = Levels Required ( لابد من توفر الشرطين في هذي النقطه ) الفورم اريد فيه1- ليست بوكس لعامود Vendor Name بحيث اختار الفندور من اللست ويظهر لي فقط مااخترته ( أريد خيار اني استطيع اختيار اكثر من فندور وليش فقط واحد ) 2- ليست بوكس لعامود Category Type بحيث ايظا استطيع اظهار الاعمده فقط اللي تحتوي على النوع الذي اريده( يوجد فقط خيارين في هذا العامود إما management أو technical ) 3- عامود Class Type وأيظا يحتوي على خيارين (internal or external ) ثم زر لما اضغطه يطبق لي جميع الخيارات المختاره ويظهر لي فقط مااخترته في أمس الحاجه للمساعده الله يفرج كربكم جميعا .. هذا الكود وجدته لحذف القيمه 0 من العامود Levels Completed Sub DeleteRowsWithX() maxRow = ActiveSheet.UsedRange.Rows.Count For i = 1 To maxRow Do While (StrComp(ActiveSheet.Cells(i, 17).Value, 0, vbTextCompare) = 0) Rows(i).Select Selection.Delete Shift:=xlUp Loop Next End Sub

بسم الله الرحمن الرحيم فورم رائع و افكار جيده من خلال فورم اضافة أكثر من يوزر و التعديل عليهم اقصد باسوردو دا شكل الفورم قبل التعديل عليه و دا النتاج النهائي التحميل من المرفقات و ايضا الفرم فقط كي تستخدمه مباشر multi username .rar

السلام عليكم فيديو لشرح إضافة وظيفة فىvba

بسم الله الرحمن الرحيم وبه نستعين السادة الزملاء الافاضل السلام عليكم ورحمته الله وبركاته الكود التالى طلب للأخ الفاضل // ناصر المصرى على الرابط أدناه حيث يشمل الطلب على شقين حسب مافهمت منه عبر الخاص وقد وفقنى الله تعالى لتنفيذ الشق الاول ألا وهو منع وإخفاء وطباعة أوراق محددة فى مصنف أما عن الشق الثانى فقد حاولت فيه ولكن لم يوفقنى الله فى تنفيذه والتى تخص الاوراق من stor1 حتى stor10لذا يرجى من الاخ ناصر برفع موضوع جديد موضحا به الاضافة التى يريد إضافتها على الكود المشار اليه حتى يتمكن السادة الزملاء الافاضل بتقديم المساعدة تقبلوا وافر تقديرى واحترامى وجزاكم الله خيرا Option Explicit Sub Print_SalmaSaied() Dim CurVis As Long, sh As Worksheet, HidShts, S Application.ScreenUpdating = 0 HidShts = Array("List", "Add", "Main store", "Archives", "Collection items", "Suppliers", "Customers") For Each sh In ActiveWorkbook.Worksheets S = Application.Match(sh.Name, HidShts, 0) If Application.WorksheetFunction.CountBlank(sh.Range("A10:I10000")) <> sh.Range("A10:I10000").Count Then If IsError(S) Then With sh CurVis = .Visible If CurVis >= 0 Then .Visible = xlSheetVisible .PrintOut sh.Range("A10:I10000").ClearContents .Visible = CurVis End If End With End If End If Next sh End Sub منع وإخفاء وطباعة اوراق عمل محددة فى مصنف - سعيد بيرم.rar

السلام عليكم ورحمته الله وبركاته سؤال بعد إذن حضراتكم بشأن طباعة مصنف يوجد به العديد من الصفحات المخفاه الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ فكيف يمكن التغلب عل هذة المشكلة أو ماهى الاضافة على أكواد الطباعة التى من شأنها تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين مثال من ص 1 الى ص 8.rar مثال طباعة مع اخفاء صفحات مختلفه.rar

بسم الله الرحمن الرحيم أول مشاركاتى فى منتديا أوفسينا بطاقة الإستخدام السريع لمايكروسوفت اكسل 2003 أتمنى ان ينال اعجابكم بطاقة الإستخدام السريع لمايكروسوفت اكسل 2003.zip

الاخوه الكرام السلام عليكم و رحمه الله الرجاء منكم المساعده فى الملف المرفق انا بشتغل مع مجموعه من الملفات و الرسومات و المراسلات الموجوده فى فولدر رئيسى و متفرع تحت منه مجموعه من الفولدرات مصنفه حسب نوع لمستند و محتاج انى اعمل كود بحث و كوبى حسب اسم الملف او الفولدر فى ملف الكسل المرفق العمود A مجموعه اسماء لملفات مختلفه الامتدادات ( وورد , اكسل و هكذا ) و الملفات دى موجوده تحت عدد من الفولدرات الفرعيه subfolder و كنت محتاج مساعده فى عمل فيجوال بيسك كود عشان اقدر عمل : 1 – محتاج ان الاكسل يبحث عن اسم الملف الموجود فى العمود A فى المسار المحدد فى الخليه C1 و بعيدن يعمل نسخه من الملف ده فى المسار المحدد فى الخليه C4 2 - محتاج ان الاكسل يبحث عن اسم الفولدر الموجود فى العمود A فى المسار المحدد فى الخليه C1 و بعيدن يعمل نسخه من الفولدر ده و جميع الملفات الموجوده فيه فى المسار المحدد فى الخليه C4 . اتمنى ان السؤال يكون واضح لحضراتكم و انا بصراحه محتاج خالص الكود ده للشغل هنا و دورت كتير على النت و لقيت كود ممكن يعمل كوبى للملفات بشرط انها كلها تكون فى فولدر واحد و ده مستحيل انى اعمل ده فى الشغل هنا عشان كميه الملفات اللى المفروض اجمعها تقريبا مائه الف ملف / فولدر جزاكم الله خير مقدما VBA.rar

السلام عليكم ورحمته الله وبركاته سؤال بعد إذن حضراتكم بشأن طباعة مصنف يوجد به العديد من الصفحات المخفاه الملف بدون إخفاءات لتلك الصفحات يعمل بدون مشاكل أما بالإخفاءات تظهر رسائل خطأ فكيف يمكن التغلب عل هذة المشكلة أو ماهى الاضافة على أكواد الطباعة التى من شأنها تذليل تلك العقبة ***** شاكر فضل حضراتكم وجزاكم الله خيرا اعتذر عن رفع الموضوع مرتين لخطأ فنى بالنت لذا يرجى حذف أحد الرابطين مثال من ص 1 الى ص 8.rar مثال طباعة مع اخفاء صفحات مختلفه.rar

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

السلام عليكم ورحمة الله ارجو المساعدة فى عمل كود VBA يقوم بترحيل (Row إجمالى اليومية ) الخاص بكل يومية بدءً من D:BL من شيت الى الشيت المجمع TDx (حيث x يطلق على رقم شيت بعد TD) بناءً على شرطين 1- التاريخ فى العمود A3 : A317 فى الشيت الاول يتطابق مع التاريخ فى العمود A3 : A280 فى الشيت TDx (حيث x يطلق على رقم شيت بعد TD) 2- الحرف فى اسم الشيت المراد الترحيل منه مثل (S7) يتطابق مع الحرف فى العمود B فى شيت TDx (حيث x يطلق على رقم شيت بعد TD) الملف فى المرفقات جزاكم الله خيرا للمساعدة FD-Test.rar

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

السلام عليكم ورحمة الله وبركاتة الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة ساشرح اليوم بطريقة بسيطة كيفية عمل زر الطباعة في الاكسيل شرح بالفيديوهات مع الاكواد

السلام عليكم ورحمة الله وبركاته قرأت موضوع " أريد عمل صفحه افتتاحيه " ووجدت إجابات كثيرة عن السؤال المطروح في الموضوع ولكن أعنقد أن هذه الإجابات لم تحقق طلب الأخ كاتب الموضوع ولما لم أعرف كيف أضيف رد لهذا الموضوع فكتبت موضوعى هذا وقد أرفقت ملف أكسل أرجو أن يكون فيه الإجابة على سؤال أخي mbaha والله الموفق ملاحظة : ما وضعته في الملف ليس إلا ما تعلمته من أساتذتي في هذا المنتدى (الموقع) فالشكر لله والحمد على ما أنعم علينا به من أساتذة أفاضل في علم الأكسل. Book1.rar

السلام عليكم ورحمة الله وبركاته "كل عام وأنتم بألف خير أخواني واحبائنا وعلمائناً وأساتذتنا الكبار في هذا الموقع أزادكم الله نوراً في طريق العلم والمعرفة ويظل هذا الموقع العملاق في الصدارة والتميز دائماً" "اللهم أمين" أخواني أن شاء الله يكون طلبي بسيط هو فكرة جديدة بعض الشي من خلال الموضوع نحن نتحدث أوامر الطباعة أريد أن أطبع صفحات متعددة وتبلغ حوالي 200 صفحة ولكن أريد كود يعطيني مجموع المبالغ لكل صفحة على حدا ويضع الرقم الأجمالي في اسفل الصفحة وهكذا كيف سوف تكون الطريقة والفكرة المتميزة من قبلكم طباعة ذكية.zip

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته بحثت فى المنتدى عن طريقة استيراد بيانات من ملف إكسيل إلى جدول بالأكسيس ووجدت والحمد لله مثال لحل هذه المشكلة (ومرفق الملف الخاص بها) وتم تنفيذه بنجاح. ولكنى وجدت أن الكود يحدد نوع إصدار واحد لمف الاكسيل إما xls أو xlsx ، فهل من طريقة أو إضافة على الكود تجعل الاستيراد من أى إصدار من الاكسيل؟؟ فأرجو المساعدة فى تنفيذ هذه الخطوة ولكم جزيل الشكر والتقدير والسلام عليكم ورحمة الله وبركاته استيراد بيانات.rar

كيف اقوم بعمل طباعة سجل معين في قاعدة البيانات باستعمال مث الرقم التعريفي بحيث بعض المعلومات في تقرير

مساء/صباح : الخير استفسار انا عملت نموذج وقاعدة بيانات للعضويات حيث انني استخدم برنامج لطابعة data card لطباعة كروت العضوية برنامج data card توجد فيه خانات تم تصميمها بنفس البرنامج هل من الممكن ربط خانات نموذج اكسس مع خانات برنامج الطباعه بحيث انه يدخل رقم العضوية ويقلل اخطاء تكرار رقم العضوية : توضيح : يتم تسجيل العضو عن طريق نموذج اكسس وعند الحفظ يتم توجيهه لبرنامج الطباعه وكتابة كود العضو وشكراً لكم اولاً واخيراً على ماتقدمونه للأمانه دخلت عالم الاكسس عن طريقكم وفي فترة 15 يوم تقريباً استفدت من مواضيعكم

كيف تنشئ تقويما روزنامة نتيجة سنوية بالأكسيس باستخدام دالة dateserial دالة mod حلقة التكرار for...next رابط ملف الشرح https://drive.google.com/file/d/0Bw4O7dVd4FBfUkt5VjZCejhvNDg/view?usp=sharing الكود Private Sub تفصيل_Format(Cancel As Integer, FormatCount As Integer) On Error GoTo 1 Dim i As Integer For i = 1 To 31 Me.Controls("j" & i) = Format(DateSerial([Forms]![mf1]![mmm], 1, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("no" & i) = Format(DateSerial([Forms]![mf1]![mmm], 11, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("de" & i) = Format(DateSerial([Forms]![mf1]![mmm], 12, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("oc" & i) = Format(DateSerial([Forms]![mf1]![mmm], 10, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("se" & i) = Format(DateSerial([Forms]![mf1]![mmm], 9, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 29 Me.Controls("f" & i) = Format(DateSerial([Forms]![mf1]![mmm], 2, Me.Controls("d" & i)), "ddd") Next i Dim ss As Integer ss = [Forms]![mf1]![mmm] Mod 4 Me.f29.Visible = ss = 0 For i = 1 To 31 Me.Controls("ma" & i) = Format(DateSerial([Forms]![mf1]![mmm], 3, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("ap" & i) = Format(DateSerial([Forms]![mf1]![mmm], 4, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("may" & i) = Format(DateSerial([Forms]![mf1]![mmm], 5, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 30 Me.Controls("yo" & i) = Format(DateSerial([Forms]![mf1]![mmm], 6, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("yl" & i) = Format(DateSerial([Forms]![mf1]![mmm], 7, Me.Controls("d" & i)), "ddd") Next i For i = 1 To 31 Me.Controls("og" & i) = Format(DateSerial([Forms]![mf1]![mmm], 8, Me.Controls("d" & i)), "ddd") Next i 1: End Subالفيديو https://www.youtube.com/watch?v=xwpO5KD-8wc