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

السلام عليكم ورحمة الله وبركاته.. تهنئة من القلب بقدوم شهر رمضان المبارك.. أعاده الله علينا وعليكم بالأمن والإيمان والسلامة والإسلام.. والتوفيق لما يحب ويرضى. <><><><><><><><><><> مرفق ملف لـ يوزرفورم بمليء الشاشة (5) شاشات متتابعة بتضاؤل شفاف وفورم رقم (6) فيه معلومة بسيطة ..أرجو أن ينال رضاكم.. ..سلامي لكم جميعاً.. تهنئة_دعاء__موعظة_مباركة.rar

بعد السلام اليك هذا الحل القوائم المنسدلة مطاطة تستجيب لاي تغيير فقط اذا كان اسم المادة غير مكرر اضغط افضل اجابة اذا كان كذلك استخراج القيم حسب التاريخ salim.rar

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

السلام عليكم إخواني/أخواتي البرنامج الاصل هنا: http://www.officena.net/ib/index.php?showtopic=60235&p=386739 ولكن الظاهر ان بعض الشباب رأى بأن البرنامج اصبح معقد ، لذلك ، الغيت جميع النماذج والجداول التي لا علاقة لها بالماسح الضوئي scanner ولشرح اضافي لعمل البرنامج: الهدف من البرنامج هو سرعة العمل ، بحيث انك تضبط الاعدادات مرة واحدة ، وتحفظ كل اعداد بإسم Profile مختلف ، وفي عملية المسح ، كل ما عليك عمله هو اختيار Profile من القائمة المنسدلة ، وتضغط على الزر Scan 1. تستطيع ان تستعمل اكثر من ماسح ضوئي ، 2. لكل ماسح تستطيع ان تعمل اكثر من Profile واحد ، وكما تلاحظ في الصورة المرفقة ، فقد عملت 4 Profiles للماسح HP Officejet Pro 8500: أ- للمسح من زجاج Glass الماسح (لمسح ورقة واحدة) ، ب- للمسح من الملقم Feeder (لمسح اكثر من ورقة واحدة) ، (هناك بعض البرامج تسألك مسبقاُ عن عدد الاوراق التي تريد سحبها ، ولكن برنامجي لا يسأل ) ، ج- للمسح من الملقم Feeder ، Duplex (لمسح اكثر من ورقة واحدة ، من جانبي الورقة ، طبعا اذا كان الماسح يحمل هذه الميزة) ، . 3. لكل Profile ، تستطيع ان تضبط مجموعة اعدادات ، ومنها صيغة حفظ الصورة كـ pdf او jpg او png او tif ، والسبب ان عندي عدد 2 Profile للملقم Feeder ، هو ان احدها يمسح الاوراق ويحفظها جميعا في ملف بصيغة pdf ، بينما الـ Profile الاخر يحفظ كل ورقة بصيغة jpg متسلسلة ، (هناك بعض البرامج التي تقول بأنها تحفظ الصورة بصيغة jpg ، ولكن الصورة في الواقع بصيغة Bmp ، فمجرد تغيير اسم صيغة الملف لا يغير صيغة الملف نفسه) ، ملاحظة هامة: البرنامج لا يتأكد من وجود صور سابقة في مجلد الحفظ ، فإنه يحذف الصور السابقة ويستبدلها بصور جديدة. 4. الميزة في عمل اكثر من Profile لكل ماسح ، هو انه ، عند المسح ، فانك لا ترجع وتختار الاعدادات في كل مرة تريد المسح ، وانما تختار اسم Profile ، وتضغط على زر المسح (البرامج الاخرى ، إما انها لا تعطيك خيارات تضبيط الاعدادات ، او انك تضطر الى تضبيط الاعدادات في كل مرة تريد المسح) ، لاحظ في الصورة التالية ، الاعدادات التي تم حفظها مسبقا للـ Profile HP8500_Duplex ، فكل الذي تعمله هنا هو اختيار Profile من الرقم 1 ، ثم تضغط على الرقم 9 للمسح : . 5. العيب الذي يُوجه الى البرنامج ، انه يستخدم وسيط خارجي وهو NAPS2 ، بينما جميع البرامج الاخرى تستخدم وسيط خارجي ايضا مثل مكتبة wia جعفر Scan_Link_Images_pdf_Files2.zip

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

السلام عليكم ورحمة الله وبركاته رمضان كريم وأن شاء الله يعاد علينا بالبهجة والفرح على الأمة الاسلامية من فترة شهر تقريباً اتصل بي أحد الأصدقاء يعمل محاسب في احدى الشركات البسيطة والصغيرة في مجال الصرافة المالية الخاصة يريد برنامج بسيط على اكسيل في مجال الصرافة فقمت بتصميم وبرمجة برنامج مخصص له يوجد فيه الآتي: 1- فواتير شراء 2- فواتير مبيع 3- أيصالات قبض 4- ايصالات دفع 5- دفتر اليومية 6- كشف حساب 7- الميزانية والأرباح والخسائر البرانامج يعتمد السهولة والبساطة في نفس الوقت في العمل والبرنامج أساسا في قيد التجريب والتطوير وناقص فيه أشياء كثيرة من الأشياء الناقصة تعديل فاتورة لكن فكرته تعتمد على المحاسبة النظرية والعلمية وليس المحاسبة العملية فأحببت أن أفيدكم فيه لأنه صراحة بحثت كثيراً في المواقع ولم أجد برنامج خاص للصرافة المالية في إكسل وفي نفس الوقت مجاني فأرجو أن شاء الله أن ينال إعجابكم ويكون طريقاً في الخير وإذا كان الموضوع يستحق التثبيت يرجى تثبيته لتحقيق أكبر فائدة ممكنة للمستخدمين والسلام عليكم أخوكم في الله أنس دروبي الرقم السري لألغاء الحماية anas ‫‫منظومة الصرافة.rar

السلام عليكم ورحمة الله وبركاته أحبابى وأصدقائى : أعضاء منتدانا العريق ( منتدى أوفيسنا ) أقدم لكم كنترول الإبتدائى رجب جاويش للترمين والدور الثانى 2013 يشمل كل الأعمال الخاصة بالترم الأول والترم الثانى والدور الثانى تحية لمنتدانا الغالى ولأعضائه الكرام وعذرا لأى خطأ أوسهو أخوكم رجب جاويش ونبدأ أولا كنترول الإبتدائى أعمال فقط http://www.mediafire.com/?qocl83f8o5u2cgp ثانيا كنترول الإبتدائى أعمال ونصف ترم http://www.mediafire.com/?v5nd54smkm5m8fd

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

السلام عليكم .. مشاركة بسيطة.. في تغيير حجم الـ يوزرفورم بواسطة الماوس (بشكل مرن) مع الاحتفاظ بمكان زر الـ غلق أرجو أن ينال إعجابكم من جهة والانتفاع به من جهة أخرى. ..ومن الله التوفيق.. تغيير حجم اليوزرفورم بالماوس.rar

جرب الكود التالى وهو فى المرفق Option Explicit Sub FilterDataCopyTo() Dim WS As Worksheet Dim myDate As Date Set WS = Sheets("ادخال بيانات") Application.ScreenUpdating = False Application.DisplayAlerts = False With WS .AutoFilterMode = False .Range("A7:S7").AutoFilter Field:=12, Criteria1:="=محول إلى المدرسة", Operator:=xlOr, Criteria2:="=" .UsedRange.Offset(1).SpecialCells(xlCellTypeVisible).Copy End With Sheets("السجل").Activate Range("B8").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Sheets("ادخال بيانات").Select Selection.AutoFilter Application.CutCopyMode = False Application.ScreenUpdating = True Application.DisplayAlerts = True MsgBox ("المهمة انتهت بنجاج") End Sub ترحيل ما عدا .rar

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

أخي الحبيب: محمد حسن المحمد وعليكم السلام ورحمة الله وبركاته.. . .أشكر لك مرورك .. وكلماتك الرقيقة الغالية. . ..دمت بحفظ الله..

اخي محمد اعتماد الفاصلة او الفاصلة المنقوطة في المعادلات يعود الى اعدادات الجهاز التي يمكن تغييرها

أخي الكريم اسير الأحزان أولاً : الأخ الكريم عبدالرحمن هاشم لا بقصد بتغيير الأسماء الي الانجليزي التسمية التوضيحية ولكن يقصد أسماء الجداول و النماذج و الحقول ( حسب فهمي ) وليس جدول محدد بل كل بيانات القاعدة ثانياً : لا توجد اي مشكلة بقاعدة البيانت المرفقة وسبب ظهور #NAME هو كما أفادك الاخ عبدالرحمن

أخي غسان ...السلام عليكم بارك الله بهمتك وإتقانك لعملك حقاً أبدعت. راجياً لك دوام التقدم والنجاح

السلام عليكم كل عام وأنتم والأمة الاسلامية بخير الأستاذ غسان بارك الله فيكم وجعلت أعمالكم فى ميزان حضراتكم تحياتى

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

تفضل استخدمنا استعلام مساعد Govx.rar

استاذى الفاضل غسان العبيدى جزاكم الله خيرا وننتظر من حضرتك ما هو جديد ومفيد دائما تقبل تحياتى

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

انسخ هذه المعادلة الى اي مكان تريد في الصفحة ثم اضغط Enter =SUBSTITUTE(LEFT(CELL("filename"),FIND("*",SUBSTITUTE(CELL("filename"),".","*"))-1),"[","")

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

آمين .. وجزاك خيراً مثله.. ..أخي: أحمد الرشيدي..

آمين .. وإياكم.. أخي: أحمد الرشيدي..

بارك الله فيك و جزاك الله كل خير أخي مادمت استعملت الاوتوبلاي كواجهة تجميع للعمل لاحظت في ملف التصي المرفق تنبيه لضرورة غلق ملفات الايكسل كي لا يتم تعارض هذا الكود استعمله لغلق صفحات الايكسل ثم يليه كود فتح الامساكية processes = System.EnumerateProcesses(); for n, file_path in pairs(processes) do local file = String.SplitPath(file_path); if (String.Lower(file.Filename..file.Extension)) == "excel.exe" then System.TerminateProcess(n); end end طبعا الكود للاصدارات الارقى من7 موفق

أخي الفاضل صالح ما بالكم إخواني إذا طلبت منكم طلب بسيط تهربتم مني ! والله إني لأعجب .. أخبرتك أخي أن تضع بعض البيانات في الملف المرفق لتجربة الكود وسألتك عن الخلايا التي سيتم الترحيل إليها فلم تبالي بسؤالي .. التوضيح يوفر الوقت والجهد ويجعل الموضوع لا يطول حتى يتمكن الأعضاء من مساعدة الجميع أرجو تفهم الأمر بارك الله فيكم أخي إليك الكود التالي على قدر ما فهمت .... Sub TransferDataToClosedWB() Dim WB As Workbook Dim LR_A As Long, LR_B As Long Dim Answer As Long LR_A = IIf(Cells(Rows.Count, 1).End(xlUp).Row = 1, 1, Cells(Rows.Count, 1).End(xlUp).Row) Application.ScreenUpdating = False If Application.WorksheetFunction.CountA(Range("A1:A" & LR_A)) < 1 Then MsgBox "لا يوجد بيانات لترحيلها", vbInformation: Exit Sub ThisWorkbook.Sheets("Sheet1").Range("A3:Q" & LR_A).Copy Set WB = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & "اكسل2.xlsx") With WB.Sheets("Sheet1") LR_B = IIf(Cells(Rows.Count, 1).End(xlUp).Row = 1, 1, Cells(Rows.Count, 1).End(xlUp).Row + 1) .Range("A" & LR_B).PasteSpecial xlPasteValues .Range("A" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1).Select End With Answer = MsgBox("تم الترحيل بفضل الله" & Chr(10) & "هل تريد مسح البيانات التي تم ترحيلها؟", vbQuestion + vbYesNo) If Answer = vbYes Then ThisWorkbook.Sheets("Sheet1").Range("A3:Q" & LR_A).ClearContents Else: End If WB.Close SaveChanges:=True Application.CutCopyMode = False Application.ScreenUpdating = True End Sub أرجو أن يكون الحل صحيحاً وألا يكون فيه تعقيب لأنه لو به تعقيب فهذا بسبب قصور التوضيح ولك جزيل الشكر على اهتمامك بأمر التوضيح الذي طلبته منك Transfer Data To Closed Workbook YasserKhalil.rar

هل المشكلة تم حلها اخي الفاضل