أ / محمد صالح

إذا كان المطلوب تصدير جميع أوراق العمل الى ملف 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)

بالتوفيق

3 ساعات مضت, يوسف عطا said:

لم تعمل معى و لم اعرف السبب

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

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

موفقين جميعا