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

السلام عليكم بارك الله فيك اخي الحبيب ابوحنين للفائدة هذا اثراء للموضوع عكس العملية بدلا من استخدام شرط Sub Button1_Click() With Sheets("Sheet1").Range("F:F,I:I,K:K,O:O").EntireColumn .Hidden = Not .Hidden End With End Sub تحياتي

بسم الله و ما شاء الله اهداء لمن قام بكل عمل و لا ينتظر مقابله اقل ما يقال لكم "عندما تنتهى كلمات الابداع عندكم و تبدأ من جديد و تنتهى عندكم" بارك الله لكم مدونة اعمال ايقونات الماس لمنتدى اوفيسنا _ شارك بتعديلاتك فكرة المدونة هى سهولة الوصول و البحث فى المنتدى 1_( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال_ الاستاذ/ حماده عمر 2_اول لعبة اقوم بانجازها على فورم الاكسل_ الاستاذ / عبدالله باقشير 3_لعبة اكسل_ الاستاذ / مجدى يونس 4_لعبة تركيب صورة للاطفال_ الاستاذ / مجدى يونس 5_برنامج بالاكسل لحل لعبة سودوكو_ الاستاذ / عبدالله المجرب 6_لعبة ( الكلمات المتقاطعة )_ الاستاذ / جمال عبد السميع 7_لعبة Snake مبرمجة على الاكسل_ الاستاذ / شوقى ربيع 8_كل مدة لعبة_ الاستاذ / ابو سما 9_لعبة طريفة احببت ان اشارككم اياها_ الاستاذ / عبدالله المجرب 10_كل مدة لعبة 2_ الاستاذ / ابو سما 11_مكتبة الموقع - لعبة تعليمية: تعليم الحروف الأبجدية للأطفال_ الاستاذ / اكرم الغامدى 12_لعبة تخمين الارقام_ الاستاذ / عبدالله باقشير 13_حل لعبة السدوكو عن طريق الاكواد_ الاستاذ / محمد دسوقى 14_لعبة خمن عمري (Guess my Age) بالإكسل_ الاستاذ / اسامه حسانين 15_لعبة ترتيب اجزاء الصورة_ الاستاذ / عبدالله باقشير 16_لعبة ترتيب اجزاء الصورة هدية للاخ مجدي يونس (بامكانية تغيير الصورة في فولدر الملف)_ الاستاذ / عبدالله باقشير 17_سبورة احرف متحركة_ الاستاذ / عبدالله باقشير 18_تحريك حرف اوكلمة الى المكان المطلوب_ الاستاذ / مجدى يونس 19_العاب مسليه المجموعه الثانيهExcel Games_ الاستاذ / احمد غانم 20_بالأكسل....بعض الألعاب المسليه_ الاستاذ / احمد غانم 21_من ألعاب الأكسيل_ الاستاذ / ابو سارة 1973 22_العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !!_ الاستاذ / حماده عمر 23_لعبة تخمين الرقم الذي اخترته_ الاستاذ / محمد صالح 24_لعبة الصورة المستخبية_ الاستاذ / مجدى يونس 25_لعبة الصورة والظل_ الاستاذ / مجدى يونس 26_مع المعادلات انس تعقيدات الكود ( ألعب وتعلم السودوكو ) هديه خاصه جدا لمعلمى الاستاذ // جمال عبد السميع_ الاستاذ / ابو اياد ( الاسيوطى ) 27_لعبتان معمولتان بالاكواد على الاكسل_ الاستاذ / عبدالله باقشير

بسم الله الرحمن الرحيم بناء على طلب بعض إخوانى بالمنتدى سأضع لكم المرجع الشافى للتعامل مع قارئ الباركود فى الإيكسل الحلقة الأولى بداية يجب أن تعلموا أن العلاقة بين قارئ الباركود و الإيكسل بسيطة جدا ووثيقة جدا فكل صانعى قارئ الباركود يختبرون قوارئهم على الإيكسل فى المقام الأول كيف يعمل ؟؟ الباركود مثل الكيبورد تماما و كل ما هو عليك هو تنشيط الخلية المراد كتابة الباركود فيها قبل الضغط على زر الباركود فالباركود يرسل الأرقام للخلية أو العنصر النشط كيف يقوم قارئ الباركود بإرسال الأرقام للإيكسل ؟؟ قارئ الباركود له 3 حالات وفقا لما سبق ضبط القارئ عليه يرسل الباركود للخلية النشطة و لا يفعل شيئ آخر يرسل الباركود للخلية النشطة ثم يرسل ضغطة ENTER و يتسبب ذلك فى تنشيط و تجهيز الخلية الأسفل تلقائيا يرسل الباركود للخلية النشطة ثم يرسل ضغطة TAB و يتسبب ذلك فى تنشيط و تجهيز الخلية المجاورة تلقائيا و غالبا ما يأتى قارئ الباركود و هو مضبوط على الحالة الثانية أى أنه يرسل الأرقام متبوعة ب ENTER كيف يمكن التغيير بين حالات قارئ الباركود الثلاثة ؟؟ كيف يمكننى برمجة قارئ الباركود ؟؟ هنا ستتعرفون على أمر غاية بالغرابة البرمجة تتم كالآتى لكل قارئ باركود كتيب و إحدى الصفحات تكون خاصة بالضبط (حتى هنا كل شيئ طبيعى) المفاجأة أن الضبط يكون فى صورة باركود راقب هذا مثال لضبط أحد أنواع قارئات الباركود بمجرد سحب أحد الصور بقارئ الباركود يتم ضبط قارئ الباركود بالقيم التى تقابل الرمز المسحوب حيث سيفهم القارئ أن الرمز هو رمز ضبط و ليس رمز قراءة و يعطى عندها صافرة حادة تفيد بتطبيق الإعداد لا شيئ أسهل من ذلك ماذا لو لم أجد كتيب الإعداد ؟؟ توجه لصفحة الصانع على الإنترنت و قم بطباعة رموز الإعداد فى ورقة عادية نهاية الحلقة الاولى

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

السلام عليكم ورحمة الله بارك الله بالفاضل / سليم حاصبيا كالعادة حلول مبتكرة ومتميزة بفكرتها واثراء للموضوع الكود التالي لمسح الخلايا في النطاق A2:H20 وبواسطة بحث واستبدال التنسيق Sub AL_KHALEDI() '''مسج الخلايا ذات لون خط احمر''' With Application.FindFormat .Clear .Font.ColorIndex = 3 Range("A2:H20").Replace "", "", , , , , True .Clear End With End Sub في امان الله

السلام عليكم أخي عصام تفضل الملف المرفق به بعض البيانات الإفتراضية لعدد 4 مديرين فقط ومايلزمهم من مساعدين / مشرفين / عمال إن شاء الله يكون هو ماتريد لاحظ التالي 1- يوجد ورقة مخفية إسمها Sample يأخذ منها الكود التنسيق والفورمات للشيتات المطلوبة - يمكنك إظهارها وتعديلها ثم إخفاؤها قبل تشغيل الكود 2- أول سطر بالكود For i = 1 To 4 لأنني فرضت فقط أربعة مدراء ، يلزمك التعديل للعدد الذي تريد 3- لابد أن تكون أسماء شيتات البيانات كما فرضتها انا D1 , D2 , D3 , D4 4- السطر السادس بالكود به الأعداد الذي تريد التقسيم عليها بالترتيب ، يمكنك تعديله إن شئت x = Array(11, 29, 50, 495) 5- سينتج بواقي نتيجة أن الأعداد لن تقبل القسمة صراحة علي أرقام التقسيم لذك إما أن تزيدها جميعا بمقدار 1 مثلا ويكون آخر مدير معه عدد أقل منهم جميعا أو تعيد توزيع البواقي يدويا (لن يكون كبيرا) الكود كاملا Sub Tawzee3() For i = 1 To 4 Sheets("Sample").Visible = True Sheets("Sample").Copy after:=Sheets(Sheets.Count) [B2] = "المدير المسئول / " & Sheets("Manager's").Cells(i + 1, 2) ActiveSheet.Name = "T" & Format(i, "000") x = Array(11, 29, 50, 495) For sh = 1 To 4 nr = [B99999].End(xlUp).Row + 1 ' new Row ready for data st_R = x(sh - 1) * (i - 1) + 2 ' start Row fn_R = x(sh - 1) * i + 1 ' finish Row Sheets("D" & sh).Range("B" & st_R & ":J" & fn_R).Copy Cells(nr, 2) Next sh [A4] = 1: [A5] = 2: LR = [B99999].End(xlUp).Row [A4:A5].Select Selection.AutoFill Destination:=Range("A4:A" & LR) Next i Sheets("Sample").Visible = False End Sub تفضل الملف وبه البيانات الإفتراضية و الكود نموذج الداتا2.rar

هذه الدوره الموجوده بقسم # دروس و خلاصة مشاركات الأكسيس # > :ج: الجداول على هذا الرابط ولقد قمت فقط بعمل جمع لجميع الدروس فى ملف PDF وايضا عمل مرفق واحد به جميع المرفقات الموجوده بالدوره وارجوا الاستفاده للجميع Attachments.part1.rar

السلام عليكم و رحمة الله و بركاته الاخوه الاحباب بمنتدانا الرائع اقدم لحضراتكم دعوه عامه لقراءة شروط و قواعد المنتدى على الرابط التالي : http://www.officena.net/Tips/Questions.htm حيث انني اجد الكثير من المخالفات لهذه القواعد من اعضاء كثر و الله المستعان و السلام عليكم و رحمة الله و بركاته

يحتوى برنامج الفيزيو 2010 على خاصية اضافة الملاحظات و علامات المراجعة Mark up و لكن للاسف لا يحوي امكانيات متقدمة مثل برنامج الوورد للتحكم فى طباعتها و لكن يوجد حل بديل عن طريق الماكرو حيث يتم انشاء مربع نص و نسخ قائمة بالتعديلات اليه و ذلك بجوار الرسم المصدر http://support.microsoft.com/kb/898514/en-us و هذا هو الكود Public Sub GetComments() Dim pagMarkup As Visio.Page Dim pag As Visio.Page Dim shp As Visio.Shape Dim sText As String Dim iRow As Integer Set pag = Visio.ActivePage sText = "Reviewer" & vbTab & "Date" & vbTab & "Comment" If pag.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then For iRow = 0 To pag.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pag.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If For Each pagMarkup In pag.Document.Pages If pagMarkup.Type = visTypeMarkup Then If pagMarkup.OriginalPage = pag Then If pagMarkup.PageSheet.SectionExists(Visio.visSectionAnnotation, Visio.visExistsAnywhere) Then sText = sText & vbCrLf sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.ReviewerID - 1, Visio.visReviewerName).ResultStr("") For iRow = 0 To pagMarkup.PageSheet.RowCount(Visio.visSectionAnnotation) - 1 sText = sText & vbCrLf & pag.Document.DocumentSheet.CellsSRC(Visio.visSectionReviewer, pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationReviewerID).ResultIU - 1, Visio.visReviewerInitials).ResultStr("") sText = sText & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationMarkerIndex).ResultIU sText = sText & vbTab & Format(pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationDate).ResultIU, "ddddd") sText = sText & vbTab & pagMarkup.PageSheet.CellsSRC(Visio.visSectionAnnotation, iRow, Visio.visAnnotationComment).ResultStr("") Next iRow End If End If End If Next pagMarkup Dim iAutoSize as Integer 'new iAutoSize = pag.AutoSize 'new pag.AutoSize = 0 'new Set shp = pag.DrawRectangle(-pag.PageSheet.Cells("PageWidth").ResultIU, 0, 0, pag.PageSheet.Cells("PageHeight").ResultIU) pag.AutoSize = iAutoSize 'new shp.AddSection visSectionUser 'new shp.AddNamedRow visSectionUser, "msvNoAutoSize", visTagDefault 'new shp.CellsU("User.msvNoAutoSize").FormulaU = 1 'new shp.Cells("Para.HorzAlign").Formula = "0" shp.Cells("VerticalAlign").Formula = "0" shp.Name = "Reviewers Comments" shp.Text = sText End Sub

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

بسم الله الرحمن الرحيم ( يا أيتها النفس المطمئنة أرجعي إلى ربك راضية مرضية فأدخلي في عبادي وأدخلي جنتي ) صدق الله العظيم "إِنَّا لِلَّهِ وَإِنَّا إِلَيْهِ رَاجِعُونَ " توفت اليوم والدة صديقنا الأستاذ رجب جاويش البقاء لله : ادعو لها بالرحمة والمغفرة اللهم اجزها عن الاحسان احسانا وعن االاساه عفوا وغفرانا . اللهم ان كانت محسنتا فزد في حسناتها وان كانت مسيئتا فتجاوز عنهايارب العالمين . اللهم ادخلها الجنه من غير حساب ولا سابقه عذاب . اللهم آنسها في وحدتها وآنسها في وحشتها وآنسها في غربتها . اللهم انزلها منزلا مباركا وانت خير المنزلين . اللهم انزلها منازل الصديقين والشهداء والصالحين وحسن اولئك رفيقا . اللهم اجعل قبرها روضه من رياض الجنه ولا تجعله حفره من حفرالنار . اللهم افسح لها في قبرها مد بصرها وافرش قبرها من فراش الجنه . اللهم اعذها من عذاب القبر وجاف الارض عن جنبيها . اللهم املأ قبرها بالرضا والنور والفسحه والسرور . اللهم قها السيئات ومن تقي السيئات يومئذٍ فقد رحمته . اللهم انقلها من ضيق اللحود ومن مراتع الدود الى جناتك جنات الخلود لا اله الا انت يا حنان يا منان يا بديع السموات والارض تغمد روحها برحمتك يا ارحم الراحمين

السلام عليكم ... لدي ملف اكسل ودائما احتاج الى اخفاء الاعمدة F-I-K-O هل بالامكان عمل ذلك عبر كود VBA بحيث يكون هناك زر واحد عند الضغط عليه تختفي تلك الاعمدة وعند الضغط عليه مرة ثانية تظهر ؟؟ جزاكم الله خير... اخوكم ابو ليمونه Hide-Show.rar

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

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

اخي العزيز جرب هذا الفورم واي تعديل علية سوف اعدلة لك. فاتورة 2014.rar

وأحب أن أوضح لك أنه بعد إدخال البيانات بالتاريخ الهجري ، وجد أن خانة احتساب عدد الأيام المتبقية لم تتمكن من إظهار النتيجة الصحيحة #VALUE! وأكرر لكم شكري وتقديري .. والله يحفظكم ويرعاكم .. اخي الكريم اين الخطأ برجاء ارفاق صورة من علي جهازك مع اني قمت بالتجربة من علي الفورم ويدوي ولم يظهر اخطاء شاهد الصور التالية وتم اضافة المعادلة مع الكود لضمان عدم تغيرها بالمرفق التالي برنامج الوثائق مع هجري الصور.rar

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

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

السلام عليكم ورحمة الله وبركاته صباح الخير موضوعي اليوم متشعب قليلا ولا ادري ما هو البرنامج المناسب ليخدمني في العمل، هل (الاكسل او الاكسس) سوف اطرح عليكم موضوعي بإختصار قدر المستطاع بداية : انا موظف في جهة حكومية ، وظيفتي مراقب ومتابعة السيارات من حيث : 1. دخولها وخروجها من موقع العمل. 2. متابعة صرفية الوقود (درهم / باللتر)+ حساب المسافة المقطوعة بالكيلومتر. 3. متابعة سير حركة المركبة من موقع العمل الى الجهة المقصودة. 4. متابعة الوقت المستغرق من وقت انتهاء مهمة السيارة الى وقت عودتها الى مقرها. سوف اتطرق الى شرح كل نقطة على حدى. بالاضافة الى استخراج تقارير شهرية عن كل سيارة من حيث (الادارة او القسم المستفيد). في المشاركة التالية سوف ارفق النموذج الذي استخدمه حاليا في برنامج الورد موضحا عليه بعض الامور لتوصيل الفكرة. هل يوجد لديكم برنامج جاهز لنفس الفكرة المطروحة ؟

شعار لمصرنا الحبيبة اللهم احفظها من كل سوء ومن كيد كل من يكيد لها اللهم امين

علي ما اظن انه موقع رااائع بالفعل جاري التجربة والاهم هو انكم دائما تقدمون اخي الحبيب / قنديل كل ما يمكن ان يفيد الجميع تقبل خالص تحياتي

مشكــــــور

طريقة عمل ( فورم ) فاتورة ووضع اكوادها وترحيل بياناتها واستدعائها وطباعتها !! خطوة خطوة =========================== كل الشكر والعرفان للكبير القدير العلامة الخبير / عبد الله باقشير .... جزاه الله خيرا =========================== ارجو أن يكون قد وفقني الله في الشرح وان اكون عند حسن ظنكم جزاكم الله خيرا طريقة عمل فاتورة ووضع اكوادها4اكسيل.rar

لم يستخدم SQL ؟ يستخدم SQL للتفاعل مع بيانات قاعدة البيانات الخاصة بك و.يستخدم الأكسس SQL للعديد من المهام: كلما تم تشغيل استعلام يستخدم SQL لتصفية البيانات كلما تم عرض التقرير يستخدم SQL لجمع البيانات ليتم عرضها ويوفر SQL البيانات المعروضة ضمن نموذج Access تشغيل الاستعلامات الأكسس يوفر للمستخدم واجهة ودية، وعرض تصميم الاستعلام، لبناء استفسار. هذه الواجهة تقدم تمثيل رسمي للاستعلام بدون ان يكون للمستخدم أي معرفة بال SQL . عندما يقوم المستخدم ب"تشغيل" الاستعلام يقوم الأكسس بترجمتها بيانياً الى عبارة SQL التي تمرر بدورها الى مشغل قاعدة بيانات Jet. يقوم Jet بإسترجاع البيانات المناسبة و يعرضها Access بطريقة عرض ورقة بيانات الاستعلام. في هذه السلسلة من الدروس سوف تجد كيفية بناء استعلامات جديدة وتغيير الاستعلامات الموجودة باستخدام VBA و SQL ، وسوف تعرف السبب الكامن في أن كثيراً من مطوري قواعد البيانات المحترفين يفضلون عدم استخدام الاستعلامات المخزنة على الإطلاق وللحديث بقية

جزاكم الله أخيراُ وقمت بتفيير اسمي للعربية

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

أتصل على 0559863509 أو bidheel1975@hotmail.com