أ / محمد صالح

إذا كان المطلوب تصدير جميع أوراق العمل الى ملف pdf واحد يمكنك استعمال هذا الكود Sub exportAllSheetToPdf() Dim sh As Worksheet, savpath As String For Each sh In ActiveWorkbook.Worksheets Worksheets(sh.Name).Select False Next sh savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets(1).Select MsgBox "Done by mr-mas.com" End Sub وإذا كان المطلوب صفحات محددة يمكن استعمال هذا الكود مع كتابة اسماء الشيتات المطلوب تصديرها في المصفوفة Sub exportSomeSheetsToPdf() Dim savpath As String ThisWorkbook.Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Select savePath = "C:\Users\hp\Downloads\moh-selmy\power Q.pdf" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True MsgBox "Done by mr-mas.com" End Sub بالتوفيق

بارك الله لك جميل جدا ورغم كل هذا نحن لا نستخدم الا 10٪ من مميزات الاكسل بالتوفيق

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

وفقكم الله لكل ما يحبه ويرضاه

يمكنك تجربة هذه الدالة المعرفة Function FILTER_AK(Where, Criteria, Optional If_Empty) As Variant Dim Data, Result Dim i As Long, j As Long, k As Long 'Create space for the output (same size as input cells) With Application.Caller i = .Rows.Count j = .Columns.Count End With 'Clear ReDim Result(1 To i, 1 To j) For i = 1 To UBound(Result) For j = 1 To UBound(Result, 2) Result(i, j) = "" Next Next 'Count the rows to show For i = 1 To UBound(Criteria) If Criteria(i, 1) Then j = j + 1 Next 'Empty? If j < 1 Then If IsMissing(If_Empty) Then Result(1, 1) = CVErr(xlErrNull) Else Result(1, 1) = If_Empty End If GoTo ExitPoint End If 'Get all data Data = Where.Value 'Copy the rows to show For i = 1 To UBound(Data) If Criteria(i, 1) Then k = k + 1 For j = 1 To UBound(Data, 2) Result(k, j) = Data(i, j) Next End If Next 'Return the result ExitPoint: FILTER_AK = Result End Function استخدامها مثل الدالة filter في اوفيس 365 مع فارق الضغط على Ctrl+shift+enter بالتوفيق

جميعا يا رب العالمين

يمكنك استعمال هذه المعادلة في C8 =IFERROR(IF(WEEKDAY(DATE(C2,B2,1),1)=6,DATE($C$2,$B$2,1)+2,IF(WEEKDAY(DATE(C2,B2,1),1)=7,DATE($C$2,$B$2,1)+1,DATE($C$2,$B$2,1))),"") وهذه في C9 وما تحتها =IFERROR(IF(IF(WEEKDAY(C8+1,1)=6,C8+3,C8+1)<=EOMONTH($C$8,0),IF(WEEKDAY(C8+1,1)=6,C8+3,C8+1),""),"") بالتوفيق

جميعا أخي الكريم

في هذه الحالة ستطول المعادلة قليلا =C3*D3*SUM(1,IF(G3<>"",-1*G3,0),IF(H3<>"",H3,0)) بالتوفيق

يمكنك استخدام عمود واحد للخصم والإضافة الخصم بالسالب والإضافة بالموجب واستعمال هذه المعادلة =C3*D3*(1+G3) بالتوفيق معادلة.xlsx

يمطنط استخدام هذه المعادلة في الخلية Q2 =SUMIFS(tr_acc[عدد النقل],tr_acc[رقم الوش],N5,tr_acc[التاريخ],M5) بالوفيق

أبسط هذه الطرق استعمال دالة image =IMAGE("https://quickchart.io/qr?size=100&text="&A2) خيث A2 هي الخلية التي بها النص المراد تحويله ولمن ليس لديه دالة image يمكن استخدام هذه الدالة المعرفة Function masqr(mytext As String) Dim URL As String, myrng As Range, myshp As Shape Set myrng = Application.Caller URL = "https://quickchart.io/qr?size=100&text=" & mytext On Error Resume Next ActiveSheet.Pictures("myqr" & myrng.Address(False, False)).Delete ActiveSheet.Pictures.Insert(URL).Select Set myshp = Selection.ShapeRange.Item(1) myshp.Placement = xlMoveAndSize With myshp .LockAspectRatio = msoFalse .Name = "myqr" & myrng.Address(False, False) .Left = myrng.Left .Top = myrng.Top End With masqr = "" End Function وطريقة استخدامها =masqr(A2) بالتوفيق

هذه مجموعة من الخطوط يمكنك تحميلها وتثبيتها في ويندوز واستعمالها في الاكسل أو الاكسس أو اي برنامج من برامج ميكروسوفت Code 128 Code 39 UPC-E QR Postnet UPC/ EAN I2of5 Intelligent Mail بالتوفيق

جميعا بإذن الله

يمكنك استعمال هذه المعادلة في الخلية G19 مع سحبها لأسفل =IF(D19="","",VLOOKUP($B$2,المقسطون!$B$27:$N$62,6,0)) بالتوفيق

يمكنك البحث في فيس بوس عن (كنترول رجب جاويش) برنامج جميل لصديق محترم

جميعا بإذن الله

يمكنك استخدام هذه المعادلة في الخلية C13 =MOD(SUM(C5:C12),1000) وهذه المعادلة في الخلية D13 =SUM(D5:D12,INT(SUM(C5:C12)/1000)) بالتوفيق

يفضل إرفاق ملف وتوضيح المطلوب بمنتهى الدقة

إن شاء الله تفيدك هذه النتائج https://www.officena.net/ib/search/?q=البحث بمجرد&quick=1&type=forums_topic&nodes=135&updated_after=any&sortby=relevancy&search_and_or=and بالتوفيق

أإذا كان فهمي للمطلوب صحيحا يمكنك وضع هذه المعادلة في الخلية C19 مع سحبها يسارا =LEN($B$19)-LEN(SUBSTITUTE($B$19,C18,"")) بالتوفيق

جميعا بإذن الله تعالى

بعد إذن الإخوة المشاركين حسب فهمي للمطلوب يمكنك استعمال هذه المعادلة لعرض عوامل العدد في أول 100 رقم =IFERROR(SMALL(IF(IF(ROW($A$1:$A$100)*$E$1/$G$1=INT(ROW($A$1:$A$100)*$E$1/$G$1),ROW($A$1:$A$100),"")<>"",ROW($A$1:$A$100),""),ROW(A1)),"") مع سحبها لأسفل وهذا التطبيق على ملفك بالتوفيق للجميع

عليمن السلام ورحمة الله وبركاته ربما تفيد هذه الموضوعات Showing results for 'جدارات' in content posted in منتدى الاكسيل Excel . - أوفيسنا (officena.net) بالتوفيق

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