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

تقف بالماوس بعد العلامة السوداء مباشرة ثم تتحرك بالماوس يسارً فى اتجاه السواد فتفاجأ بتغير السواد الي اللون الرصاصي مع التعجب الشديد ! ثم تضغط CTR+Shift+S لتستدعي أمر Apply Styles و تضغط Reapply فتحل المشكلة فى كامل ترقيم الملف !!! و نقول الحمد لله 😄 المصدر

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

اتفضل حذف امر.accdb وان كنت تريد استخدام الامر مرة واحدة فقط حتى بعد اغلاق القاعدة اخبرنى

انظر الى التنسيق الـ Format New Microsoft Access قاعدة بيانات (3) (1).accdb

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

لك كل الود والتقدير

للأسف لا يمكن حفظ ورقة عمل بنوع PDF وهي مخفية فلابد من التحايل بعمل كود إظهار ورقة العمل قبل الحفظ وكود آخر يقوم بإخفاء ورقة العمل مرة أخرى بعد الحفظ مع خالص تحياتي

وهذه هي المشاركة اللي اشار لها اخي كاسر ، واللي يتفق معاها اخوي ابو ابراهيم و جعفر

السلام عليكم 🙂 اخوي @kaser906 كل الدلالات كانت تشير الى انك بالفعل خبير ، وانما هذه التسمية تأكيد لذلك 🙂 جعفر دائما سبّاق للخير اخوي ابا جودي 🙂

يأستاذ @مسفر لم يأتى فى دماغى شيىء عند وضع السؤال الا اغلاق مساعد اكسس و ما يشابهه ولم أدرك انها بهذه البساطة

QR-Code_Generator_v2.zip كنت على عجلة من امرى ولم انتبه للمرفق اثناء الرفع وقمت برفع مرفق خاطئ من فضلك قم بالتحميل المرفق مرة أخرى تم التعديل جرب يا استاذ @الوسيط واخبرنى بالنتيجة ان واجهت اى مشاكل ولا تنسي ان تحدد هذه المشاكل التى قد تواجهك من فضلك QR-Code_Generator_v2.zip

تفضل حل بسيط وبدون برامج يمكنك رفع الملف المحمى على هذا الموقع مباشرة وسيتم فك الملف لك -وذلك كما بالصورة الموضحة لك http://www.ensode.net/xls-crack.jsf

اصبح يعمل التعديل لكل على حسب الـ ID التعديل باضافة تقرير للكل تم تعديل المرفق QR-Code Generator v2.zip

جزاك الله خيرا أستاذى @ابا جودى If KeyCode = vbKeyF1 Then استخدم اسم المفتاح و أشكر استاذى @kanory و أستاذى @مسفر

Private Sub Form_Load() Me.KeyPreview = True End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 112 Then DoCmd.OpenReport "rptName", acViewPreview KeyCode = 0 Exit Sub End If End Sub 112=F1 F7=118 F12=123

جرب هذا الملف لعله يفي بالغرض تعديل كود حفظ PDF.xlsm

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

لا تزعل علينا يا أخ محمد تفضل بالكود جرب وننتظر منك الرد ضغطF1.mdb

تم إضافة الجزئين فى الفورم أما بالنسبة للتسلسل فيوجد دالة في ورقة العمل في العمود A لاحظ أن الليبل المقابل للتكست بوكس 1 مكتوب باسم الوردية والتسلسل يعمل بمجرد إدخال أي بيانات في العمود B بالنسبة للطلب الأخير قم بإضافة ورقة عمل واكتب النتائج المتوقعة ( التي يجب أن تأتي بمعادلات ) حتى يمكننا التعامل معها فكل أعضاء المنتدى لا يتعاملون مع الصور Book1(1).xlsm

تفضل لك ما طلبت بالمعادلات _الأحوال الثانية - نسخة.xlsm

تفضلوا هذا هو الملف بعد اذن الأستاذ محمد فؤاد طبعا لكى تعم الإستفادة للجميع المبيعات و العملاء.xlsm

أهلا بك في منتدانا تفضل يتم ذلك مباشرة بمجرد دخولك على هذه الروابط-اختر منها ما يناسبك : https://smallpdf.com/ar/pdf-to-excel https://www.hipdf.com/ar/pdf-to-excel https://www.freepdfconvert.com/ar/pdf-to-excel https://www.pdftoexcel.com/ar https://convertio.co/ar/pdf-xlsx/ https://www.ilovepdf.com/ar/excel_to_pdf

حفظك الله اخي وبارك الله لك في دعائك لي ولك ضعف ما دعوت ان شاء الله تعالي ساحاول في احد الملفات

السلام عليكم ورحمة الله جرب المرفق... مطلوب (1).xlsx

بالتأكيد ملف وكود ممتاز جعله الله في ميزان حسناتك

ابداع استاذ سليم معادلات رائعة بارك الله فيك

تفضل اخى الكريم هذا كان برنامج جاهز عندى 2.xls

بارك الله فيك وجزاك الله كل خير

تفضل اخى الكريم حسن -تم عمل قائمة منسدلة بأسماء العملاء ثم بعد ذلك عمل معادلات مصفوفة بمجرد اختيار اسم العميل سوف يتم جلب كل بياناته ولكن كان لزاما عليك من البداية رفع مشاركة مستقلة بما تريد فقد تم فصل مشاركتك ووضعها بمشاركة جديدة مستقلة Book1.xlsx

وعليكم السلام -انظر الى هذه الصورة فبها طلبك

احسنت استاذ هادى عمل ممتاز بارك الله فيك

بارك الله فيك

احسنت استاذ ياسر بارك الله فيك عمل رائع

تم التعديل على المديول رقم 2 ليصبح بهذا الشكل Sub Macro1() Dim Arr With Sheets("Sheet1") Arr = Array(.Range("g2"), .Range("C1"), .Range("E1"), .Range("E3"), .Range("C3"), .Range("H21"), .Range("H22"), .Range("H23")) End With With Sheets("íæãíå ÇáãÈíÚÇÊ") .Range("B" & .Cells(Rows.Count, "B").End(xlUp).Row + 1).Resize(1, UBound(Arr) + 1).Value = Arr End With MsgBox "Done...", 64 Range("C6").Select ActiveWindow.SmallScroll Down:=-3 Range("g2").Select Sheets("Sheet1").Select Sheets("Sheet1").Copy After:=Sheets(1) Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = "Sheet1 (2)" Sheets("Sheet1 (2)").Select Sheets("Sheet1 (2)").Name = Range("g2").Value Range("B11").Select ActiveWindow.SmallScroll Down:=-3 Sheets("Sheet1").Select ActiveWindow.SmallScroll Down:=0 Range("c5:f20").Select Selection.ClearContents Range("C3").Select Selection.ClearContents ActiveWindow.SmallScroll Down:=-18 Range("g2").Select Selection.Copy Range("I9").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("C3").Select End Sub كما انه تم عمل باقى الطلبات ومن ضمنها -تم انجاز كشف حساب العميل بمعادلات المصفوفة وهذا هو الملف بعد التعديل gedyana.xlsm

بارك الله فيك

اعتذر من حضرتك أستاذ محمد لضيق الوقت فقد تم عمل الطلب الأول تفضل gedyana.xlsm

وعليكم السلام أستاذ خالد يمكنك ذلك بدون اى برامج من خلال هذه الروابط والشرح https://www.youm7.com/story/2014/11/18/بالخطوات-اغلق-جهاز-الكمبيوتر-فى-الوقت-الذى-ترغب-فيه-دون/1955803 http://www.computer-wd.com/2018/11/auto-shutdown-windows-10.html http://www.doniacomputer.com/2016/10/blog-post_19.html https://www.wikikeef.com/shutdown-pc-automatically/ https://sigma4pc.com/11639/sigma-auto-shutdown https://wingiz.com/c/100024583 وهذا كمان فيديو للشرح https://www.youtube.com/watch?v=IY0xla7b9jE

وعليكم السلام -اهلا بك في منتدانا الكريم https://www.officena.net/ib/topic/32270-لأول-مرة-في-الأكسل-شجرة-الحسابات-بهذه-الطريقة/page/2/

تفضل هذا كان موضوع مطروح من قبل لأستاذنا الكبير مجدى يونس له منا كل المحبة والإحترام فكان عليك من البداية قبل طرح وعرض المشاركة استخدام خاصية البحث فى المنتدى https://www.officena.net/ib/topic/80119-فورم-طباعة-الفورم-بالكامل/?tab=comments#comment-512478

أحسنت استاذ سليم بارك الله فيك وجزاك الله كل خير

السلام عليكم ورحمة الله استخدمى هذه الاكواد الثلاثة Sub Get_Data() Dim ws As Worksheet, Sh As Worksheet Dim Arr As Variant, Temp As Variant Dim LR As Long, i As Long, j As Long, p As Long Dim PatName As String Set ws = Sheets("تقرير بحالات الاعاقة") ws.Range("B5:I1000").ClearContents PatName = ws.Range("D2").Value Set Sh = Sheets("اعاقات خاصة") LR = Sh.Range("C" & Rows.Count).End(xlUp).Row Arr = Sh.Range("B3:I" & LR).Value ReDim Temp(1 To UBound(Arr, 1), 1 To UBound(Arr, 2)) For i = 1 To UBound(Arr, 1) If Arr(i, 4) = PatName Then p = p + 1 For j = 1 To UBound(Arr, 2) Temp(p, j) = Arr(i, j) 'Temp(p, 1) = p Next End If Next If p > 0 Then ws.Range("B5").Resize(p, UBound(Temp, 2)).Value = Temp Call Get_Photo End Sub Sub Get_Photo() Application.ScreenUpdating = False Dim StudName As String, E As String, Dpath As String Dim pics As Object Dim Sh As Worksheet Dim C As Range, H Application.ScreenUpdating = False Set Sh = Sheets("تقرير بحالات الاعاقة") For Each pics In Sh.Pictures pics.Delete Next pics On Error Resume Next For Each C In Sh.Range("J5:J1000") StudName = C.Offset(0, -8).Value If C.Offset(0, -8).Value <> "" Then Dpath = ActiveWorkbook.Path myDir = Dpath & "\" & "صور" & "\" E = ".jpg" Sh.Shapes.AddPicture Filename:=myDir & StudName & E, _ linktofile:=msoFalse, savewithdocument:=msoTrue, Left:=C.Left, _ Top:=C.Offset(0, 8).Top, Width:=C.Offset(0, 8).Width, Height:=C.Offset(0, 8).Height End If Next Application.ScreenUpdating = True End Sub Sub Delete2_Photos() Application.ScreenUpdating = False Dim pics As Object Dim ws As Worksheet Set ws = Sheets("تقرير بحالات الاعاقة") For Each pics In ws.Pictures pics.Delete Next pics Application.ScreenUpdating = True End Sub

وعليكم السلام-تفضل بطاقات العمل.xlsx

بارك الله فيك وجزاك الله كل خير واحسن الله اليك

أحسنت بارك الله فيك

اهلا بك فى المنتدى أحسنت استاذى الكريم عمل رائع جعله الله فى ميزان حسناتك

تفضل هذا الرابط هيفيدك https://www.officena.net/ib/topic/88238-طريقة-تحديد-خلايا-معينة-حسب-مجموع-معين/?tab=comments#comment-556938

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

تفضل تجربة.xlsx

جرب على جهاز اخر انا اللاب توب عندى 64 او الاوفيس

اريد شيت من خلاله احسب التكاليف الخاصه بالمطعم حساب تكاليف