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

تفضل مطلوبك يجب ان تكون قاعدة الواجهات وقاعدة الجداول بجانب بعض وانقلهما الى اي مكان شئت ملحوظة : يمكن : الاستفادة من الوحدة النمطية لتثبيت مسار الجداول داخل الشبكة ثم الربط الآلي msjd.rar

اشكر استاذى خالد واستاذى علاء على اهتمامهم وجزاكم الله خير الجزاء لقد تم العمل واشكركم

السلام عليكم ورحمة الله تعالى وبركاته بفضل الله تعالى تم انجاز المشروع والحمد لله وذلك لطلب الاخوة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=62339&hl= الموضوع يتلخص فى نظام مراسلة وارسال رسالة بين المستخدمين لقاعدة البيانات شبيه بالفيس بوك صفحة تسجيل الدخول قمت باضافة شى مهم جدا وهو ربط نموذج باستضافة مجانيه به جدول وضعته اذا احببت ارسال تعليق لى بخصوص البرنامج شكر الله لكم جميعا والاكواد الخاصة بهذا الربط مدرجة فى هذا الموضوع http://www.officena.net/ib/index.php?showtopic=61514 الصفحة الشخصية بها قائمة الاصدقاء ونظام المراسلة منصة عرض الرسائل والارشفة قوائم الاعضاء ويمكنك اضافة الاصدقاء الى قائمة اصدقائك والان مع البرنامج تحياتى

انشاء ملف Word بنفس القيم الموجودة فى ملف الاكسيل Sub proWord() Dim varDoc As Object Set varDoc = CreateObject("Word.Application") varDoc.Visible = True Sheets("ورقة1").Range("A1:B15").Copy varDoc.documents.Add varDoc.Selection.Paste varDoc.activedocument.SaveAs ThisWorkbook.Path & "/" & "منتديات اوفيسنا.doc" varDoc.documents.Close varDoc.Quit Application.CutCopyMode = False End Sub جمع اكثر من خلية فى خلية Sub جمع() Range("h9").Value = Application.WorksheetFunction.Sum(Range("e7:g9")) End Sub جمع عمود فى خلية Sub جمع_عمود() Range("d5").Value = Application.WorksheetFunction.Sum(Range("d1:d4")) End Sub تحديد مجموعة خلايا Sub شكلبيضوي8_نقر() Range("A1:G5").Select End Sub مرفق ملف به كل الاكواد 123.rar

السلام عليكم خواتم مباركة نموذج بسيط للترحيل والبحث والتعديل هو طلب لاحدهم جعلته هنا للعموم الفائدة تم تعديل النسخة السابقة بهذه بعد ان حملت 80 مرة المرفق 2010-2003 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع البحث في جميع الاعمدة وطباعة الفورم المرفق 2003-2010 نموذج بحث وترحيل وتعديل.rar ================================== هذا نموذج مع زيادة زر حذف سجل المرفق 2003 نموذج بحث وترحيل وتعديل.rar

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

بسم الله الرحمن الرحيم الحمد لله رب العالمين والصلاة والسلام على اشرف المرسلين سيدنا محمد وعلى اله وأصحابه اجمعين بفضل الله وكرمة انتهيت من تطوير برنامج المصروفات الاصدار الثالث . وقد تم هذا التطوير بناء على رغبة الكثيرون والجديد فيه -زيادة عدد الحسابات الى 100 حسابات وزيادة عدد حركات التسجيل الى الضعف - امكانية عرض تقرير مصروفات لقسم معين ولفتره معينه - امكانية عرض تقرير سنوي - عمل نسخة احتياطيه للبرنامج تم عمل حماية للملف حفاظا على المعادلات والصيغ من التلف والباسورد 12345 ارجو من كل من يستفاد من هذا البرنامج نشره ومشاركته للجميع فزكاة العلم نشره الاصدارت السابقه الاول والثانى على على هذا الرابط http://www.officena.net/ib/index.php?showtopic=54319&hl= برنامج المصروفات الاصدار الثالث.rar

جزاكم الله خيراً أخي ياسر خليل أبو البرّاء

أخي الكريم أحمد الرشيدي جرب الملف التالي عله يفي بالغرض =VLOOKUP($D$3,INDIRECT(ADDRESS(MATCH($E$2,'بيانات أساسية'!B:B,0)+3,2,,,"بيانات أساسية")&":"&ADDRESS(MATCH($E$2,'بيانات أساسية'!B:B,0)+42,7)),3,0) لا تنسى أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي تقبل تحياتي Pupils Follow Up.rar

السلام عليكم و رحمة الله و بركاته بعد إذن أستاذنا الغالي ياسر خليل لم أفهم جيدا المطلوب لكن فقط كإضافة : حاول أخي أبو إلياس تغيير أسماء اليوزرفورم إلى أسماء مغايرة قبل جلب الملفات الأخرى . تحياتي

أخي الكريم أبو إلياس الملف الذي يحوي الفورم المراد نقله قم بفتحه وادخل على محرر الأكواد ثم كليك يمين على اسم الفورم من نافذة المشروع ستجد أمر Export File قم بتحديد المسار المراد تصدير الفورم إليه وليكن سطح المكتب افتح الملف الجديد المراد نقل الفورم إليه وكرر نفس الخطوات ستجد عند عمل كليك يمين الأمر Import File وحدد الملف الذي قمت بتصديره .. إن شاء الله تظبط معاك

إضافة بسيطة سطر لتجنب حدوث خطأ حيث أن العمود F لو كان فارغ أو قيمته صفر يؤدي لخطأ فقمت بإضافة سطر يقوم بجعل قيمة الخلية في العمود F قيمته 1 قبل تنفيذ السطر في الكود .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) ليصبح الكود بهذا الشكل Sub Goal_Seek() Dim I As Long With Worksheets("Sheet1") For I = 6 To .Cells(Rows.Count, "C").End(xlUp).Row .Range("F" & I).Value = 1 .Range("G" & I).GoalSeek Goal:=0.1, ChangingCell:=.Range("F" & I) Next I End With End Sub تقبل تحياتي

الكود التالي سيفي بالغرض Sub nnn() LR = [G9999].End(xlUp).Row For r = 6 To LR Cells(r, "G").GoalSeek Goal:=0.1, ChangingCell:=Cells(r, "F") Next End Sub

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

شكرا لك استاذنا الكريم وجزاك الله خيرا

أستاذنا الكبير أ / محمد طاهر بارك الله فيك ولا حرمنا الله من مواضيعك الجديدة والمميزة

تسلم ربنا يحفظك ماقصرت فى شيىء ابداٌ وجعلكم الله فى عون الناس وجزاكم الله خير الجزاء ورمضان كريم الكود بدء يعمل بشكل جيد فى الترحيل والمسح

الأخت الفاضلة رشا يوسف إليكي الكود التالي عله يفي بالغرض إن شاء المولى Sub Final() Dim WS As Worksheet Dim I As Integer Set WS = Sheets("Final") Application.ScreenUpdating = False With WS.Range("A3:L1000") .Offset(1).ClearContents .Borders.LineStyle = xlNone End With For I = 1 To 3 Sheets(I).Range("A4:L" & Sheets(I).Cells(Rows.Count, "C").End(xlUp).Row - 1).Copy WS.Range("A" & WS.Cells(Rows.Count, "A").End(xlUp).Row + 1).PasteSpecial xlPasteValues Next With WS.Range("C" & WS.Cells(Rows.Count, "C").End(xlUp).Row + 1) .Value = "الجملة" .Offset(, 2).Resize(, 5).Formula = "=ROUND(SUM(E4:E" & WS.Cells(Rows.Count, "C").End(xlUp).Row - 1 & "),2)" End With With WS.Range("A3:L" & WS.Cells(Rows.Count, "C").End(xlUp).Row) .Borders.Weight = xlThin .BorderAround Weight:=xlThick End With Application.CutCopyMode = False Application.ScreenUpdating = False End Sub قمت بإنشاء ورقة عمل باسم Final لعمل المطلوب في هذه الورقة .. إليكي أيضاً الملف المرفق فيه تطبيق الكود لا تنسي أن تحددي أفضل إجابة ليظهر الموضوع مجاب ومنتهي ، كما لا تنسي أن تضغطي على كلمة "أعجبني هذا" في حال أن المشاركة أعجبتك تقبل الله منا ومنكم Copy Sheets To Final Sheet YasserKhalil.rar

السلام عليكم اخى الحبيب ياسر ابو البراء اشهد الله انى احبك فى الله .... وجميع اعضاء المتدى اخى الحبيب لك كل الحق ....التوضيح سيد الاجابه جزاك الله كل الخير

أخي الكريم أبو حنين لا أدري هل تريد تنفيذ السطر قبل تحويل الملف لـ PDF أم بعد التحويل .. عموماً إذا كنت تريد الرسالة في بداية الكود قبل تحويل الملف لـ PDF فيمكنك ببساطة إضافة السطر التالي بعد المتغيرات If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub أما إذا كنت تريد أن تتم عملية التحويل إلى PDF أولاً ثم السؤال عن إرسال الملف من عدمه فيمكنك استخدام نفس السطر لكن في مكان آخر داخل الكود بهذا الشكل Sub PDF() Dim MyName As String MyName = "D:\Drivers Tarek\PDF\Drivers_" & Format(Date + 1, "dd-mm-yyyy") & ".pdf" Range("B5").Select Range("B5").Select Sheets(Array("حركة")).Select Sheets("حركة").Activate MyMsg = MsgBox("هل أنت متأكد من اتمام عمليه الحفظ", 4, "تنبيه") If MyMsg = 6 Then ChDir "D:\Drivers Tarek" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ MyName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ False If MsgBox("هل تريد إرسال الملف المرفق إيميل أم لا؟", vbYesNo, "Send Email") = vbNo Then Exit Sub OutlMail_PDF MyName, "ahmed@yahoo.com", " بيان بحركة السائقين ", vbNewLine & "مع تحيات ..إدارة الشئون الادارية بحقول طارق", False Else MsgBox "لم يتم الحفظ" End If Sheets("حركة").Select ActiveWindow.SmallScroll Down:=-12 Range("B5").Select End Sub أرجو أن يكون في هذا السطر حل لمشكلتك إن شاء المولى عزوجل

تفضل هذه روابط توجد فيها حلول مسألتك http://superuser.com/questions/301226/manually-change-filetype-icons-in-windows-7 http://www.winhelponline.com/blog/change-file-type-icon-windows-7-vista/

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

لو ارفقت مثالك لرجوت لك تفاعلا اكثر ، واحرص ان يكون مثالك على صيغة mdb

جزاك الله خيرا"

السلام عليكم.. تفضل أخي مرفقك بعد التعديل فبعد إدراجك مدة القرض والتاريخ قم بالضغط على زر تنفيذ qest---up.rar

تفضل ولعله المطلوب ! كما اقدم اعتذاري للاخوة الاعضاء عن الفترة السابقة واللاحقة في ندرة الدخول للنت لظروف شهر العبادة وخصوصا ايام العشر المقبلة اعاده الله علينا وعليكم اعوام عديدة وتقبل الله منا ومنكم صالح الاعمال ! تنبيه : اتمنى تعديل العنوان ليتناسب مع المطلوب . مثلا : تحويل بيانات عمود الى صف بالتوفيق karem.rar

بارك الله لك أخي خالد ولاختصار بعض الحروف يمكن كتابتها كما يلي: =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C10>=A2),--(C2:C10<=B2),--(WEEKDAY(C2:C10)<>6),--(WEEKDAY(C2:C10)<>7))

جزاك الله خيراً استازى الفاضل محمد ولعلى قد توصلت الى طريقة لتساوى المعادلتين فى النتائج =SUM(INT((WEEKDAY(A2-{1,2,3,4,5})+B2-A2)/7))-SUMPRODUCT(--(C2:C4>=A2);--(C2:C4<=B2);--(NOT(WEEKDAY(C2:C4)=6));--(NOT(WEEKDAY(C2:C4)=7))) تقبل فائق احترامى وتقديرى .................................................... التطبيق بالمرفق عدد ايام العمل الفعلية.rar

جزاك الله كل خير

أخي علاء يبدو إن عندك حق والدليل على كلامك المشاركة رقم 8 أعتقد أخي الوليد أنك غيرت اتجاه الموضوع تماماً .. ولم توضح بالشكل الكافي المطلوب الجديد .. هل المطلوب عد الغياب A أم عد تكرار المهنة ؟ وهل التواريخ تكون مكتوبة بهذا الشكل 1 و 2 و 3 و 4 ؟ يرجى إرفاق بعض النتائج المتوقعة ... لتسهيل الوصول لحل

الأخ الكريم طائع أعتقد ان الحل الأخيرللأخ الفاضل و أستاذى الكريم خالد الرشيدى يؤدى المطلوب ان شاء الله ، يرجى اختياره كأفضل أجابة اذا كان يؤدى الى ما ترمى اليه ، فى حالة اذا كنت تريد طلب جديد يرجى طرح موضوع جديد بأى طلب آخر و ان كان هناك ملاحظات يرجى طرحها دمتم بخير جميعا و أعزكم الله .

التغيير ممكن ولكن داخل وندز بمعنى : 1- سيكون التغيير عاما لكل ملف mde يتم تشغيله على الحاسوب 2- عند نقل الملف الى جهاز آخر سترجع الايقونة الى الاصل للتجربة لمن يملك وندز xp حيث اني لم اجدها في وندز7 : ادوات / خيارات المجلد / لسان التبويب انواع الملفات واختر الملف الذي تريد تغيير ايقونته الافتراضية ثم تابع الخطوات

السلام عليكم / واضح ان استازى علاء كان اقرب الى فهم المطلوب اكثر منى فجزاه الله خيراً وإذا سمح لى اخى الكريم ها هو المطلوب بالمرفق :- مساعدة فى قاعدة if_4.rar

جرب الأكواد بهذا الشكل (رغم أن الملف يعمل عندي على أوفيس 2013 بدون مشاكل) Sub TarhilByRegion() Dim WS As Worksheet Dim Cell As Range Dim strSheet As String Dim LR As Long Set WS = Sheets("الدفتر") Application.ScreenUpdating = False For Each Cell In WS.Range("J3:J" & WS.Cells(Rows.Count, "J").End(xlUp).Row) strSheet = Cell.Value On Error GoTo 1 LR = IIf(Sheets(strSheet).Cells(Rows.Count, "D").End(xlUp).Row < 3, 3, Sheets(strSheet).Cells(Rows.Count, "D").End(xlUp).Row + 1) Cell.Offset(, -8).Copy Sheets(strSheet).Range("D" & LR).PasteSpecial xlPasteValues Cell.Offset(, -6).Resize(, 8).Copy Sheets(strSheet).Range("E" & LR).PasteSpecial xlPasteValues 1 Next Cell WS.Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub Sub ClearAllExceptMain() Dim SH As Worksheet For Each SH In ThisWorkbook.Worksheets If SH.Name <> "الدفتر" And SH.Name <> "كود" Then SH.Range("B3:L1000").ClearContents Next SH End Sub لا تنسى أخي الفاضل أن تحدد أفضل إجابة ليظهر الموضوع مجاب ومنتهي ولا تنسى أن تضغط على "أعجبني هذا" .. لاحظت أن الإعجابات ليست من صاحب الموضوع نفسه إنما من أعضاء وأخوة آخرين بمجرد إطلاعهم على الموضوع فعجباً

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

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

السلام عليكم ورحمة الله وبركاته أجريت تجربة لما مر به الأخ السائل: جعلت اتجاه نص الفقرة من اليسار لليمين ومحاذاة النص لليسار وكتبت كلمات بالإنكليزية ثم بالعربية فكتبت كما أخبرنا...ولذلك فإنني أظن الحل باتجاه الفقرة والأفضل الكتابة بالأجنبية والعربية بفقرتين منفصلتين أي نكتب بالعربية منذ بداية الفقرة.. 1- حول اتجاه الفقرة من اليمين إلى اليسار. 2-ابدأ من بداية الفقرة بالعربية أرجو أن تكون قد وجدت ضالتك والسلام عليكم

أخي الكريم عبد الله شيخون إليك الكود التالي Sub TarhilByRegion() Dim WS As Worksheet Dim Cell As Range Dim strSheet As String Dim LR As Long Set WS = Sheets("الدفتر") Application.ScreenUpdating = False For Each Cell In WS.Range("J3:J" & WS.Cells(Rows.Count, "J").End(xlUp).Row) strSheet = Cell.Value On Error GoTo 1 LR = IIf(Sheets(strSheet).Cells(Rows.Count, "D").End(xlUp).Row < 3, 3, Sheets(strSheet).Cells(Rows.Count, "D").End(xlUp).Row + 1) Cell.Offset(, -8).Copy Sheets(strSheet).Range("D" & LR).PasteSpecial xlPasteValues Cell.Offset(, -6).Resize(, 8).Copy Sheets(strSheet).Range("E" & LR).PasteSpecial xlPasteValues 1 Next Cell WS.Activate Application.CutCopyMode = False Application.ScreenUpdating = True End Sub لا تنسى أن تحدد أفضل إجابة وأن تضغط على كلمة "أعجبني هذا" إذا أعجبك الحل تقبل تحياتي Transfer Data By Region YasserKhalil.rar

اخوانى الاعزاء البرنامج خطوة فقط لتسهيل التعامل مع مكتبة الاكواد لذا ارجو منكم الاستمرار فى تغذية المكتبة بما لديكم من اكواد وامثلة ، ويمكنك التأكد انها غير متكررة وارسالها حتى يتم التحديث بشكل شهرى او حتى ارسال تحديث لبعض الاكواد الموجودة مع ارفاق رقم الكود حتى اتمكن من تحديثه تعميم التحديث على الجميع

انسخ هذا الكود الى حدث الصفحة Private Sub Worksheet_selectionChange(ByVal Target As Range) lra = Cells(Rows.Count, 1).End(3).Row + 1 Set myrg = Range("a" & lra).Resize(1, 6) If Target.Address = Range("a" & lra).Address And Target.Count = 1 Then If Cells(lra, 1).Offset(-1, 0).Value <> "" Then With myrg.Borders .LineStyle = xlDouble .Color = 682978 End With End If End If End Sub

لا تنشرها جزاك الله خير ... ادخل وحمل وستعرف !! جمعة مباركة اخواني الكرام اللهم صلي علي سيدنا ((( محمد ))) وعلي آله وصحبه اجمعين جمعة مباركة.rar

الأخ KHMB اليك هذا الكود ربما يحل لك المشكلة select BF.rar

اليك مثالاً مع الشرح جدول تلقائى cond format.rar

السلام عليكم ورحمة الله وبركاته ما شاء الله تبارك الله الصراحة دروس مفيدة جداً جداً جداً والله لم انتبه لهذه الدروس قبل هذا اليوم وقد قررت ان ابداء من الصفر لقد طرحت سؤال في المنتدى للأكسل وتفاجئت بعدم الاجابة فكررت السؤال بصيغة ثانية بعد اسبوع ولم يجيبني احد الصراحة انني تضايقت من عدم الرد ولكن بحثت في المنتدى بالصدفة ووجدت هذه الدروس القيمة وقد قمت بتحميلها كاملة وعرفت عدم إجابتي ( لان السؤال كان في المكان الغير صحيح ) الحقيقة أن الاستاذ ابو حنين قد قام مشكورا بإجابة سؤالٍ لي منذ فتره وقد استخدمت الورقة والكود وكانت فعالة جداً ولكن عندما اردت ان انقلها الى قاعدة البيانات التي استخدمها لم استطع ذلك لعدم معرفتي ( كيف اعدل على الكود ) الكود يبداء من العمود A وأنا اريد أن أستخدمه من العمود AI والصف 92 مع بعض التعديلات المرفقة أرجوا النظر في المرفق والمساعدة في التغيير مع القليل من الشرح أشكرك جزيل الشكر A2.rar

كود لطباعة مدى من الخلايا تقوم بتحديده Sub طباعة() Range("a4:f24").Select Selection.PrintOut copies:=1, preview:=True, collate:=True A = MsgBox("هل تود طباعة التحديد الذى عاينته؟", vbYesNo + vbQuestion, "طباعة") If A = vbYes Then With ActiveSheet .PrintOut End With End If End Sub

اخفاء واظهار خطوط الشبكة ورؤس الصفوف والاعمدة Sub ToggleHeadingsGrids() Dim gridMode&, headingsMode& On Error Resume Next headingsMode = ActiveWindow.DisplayHeadings gridMode = ActiveWindow.DisplayGridlines If headingsMode And Not gridMode Then headingsMode = False ElseIf Not headingsMode And Not gridMode Then gridMode = True ElseIf Not headingsMode And gridMode Then headingsMode = True Else gridMode = False End If ActiveWindow.DisplayHeadings = headingsMode ActiveWindow.DisplayGridlines = gridMode End Sub مرفق ملف به التطبيق على الكود قنديل_1.rar

هذه قاعدة البيانات بها تصدير للاكسيل 2010 ، 2003 افتح القاعدة قم بتمكين الماكرو اختر اسم مستخد ستكون له كلمة السر نفس اسم المستخدم الذي اخترته المستخدم باسم ali له كل الصلاحيات اما Ahmed له بعض الصلاحيات قاعدة البيانات هذه تمت بمساعدة الاخواة الافاضل في المنتدى الكريم TheFinal.rar

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