أكواد اضافة الصور وملفات pdf الي صفحات الإكسل

 إكسل vba/ الدرس 324 / اضافة الصور وملفات pdf الي صفحة الإكسل من خلال الأكواد

الكود الأول

Sub PrintToPDF()   'طباعة صفحة اكسل في صفحة pdf

On Error Resume Next

Dim ws As Worksheet

Set ws = ActiveSheet

ws.PageSetup.Orientation = xlPortrait

ws.PageSetup.Zoom = False

ws.PageSetup.FitToPagesWide = 1

ws.PageSetup.FitToPagesTall = False

Dim x

x = Application.InputBox("من فضلك ادخل اسم الملف", "اسم الملف")

ws.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _

ThisWorkbook.Path & "\ملفات pdf\" & x & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False

MsgBox "تم طباعة الملف بنجاح"

End Sub

الكود الثاني

Sub OpenPDF() 'اضافة ملفات pdf الي صفحة الإكسل

On Error Resume Next

Dim strFile As String

strFile = Application.GetOpenFilename("PDF Files (*.pdf), *.pdf")

If strFile <> "False" Then

ActiveSheet.OLEObjects.Add FileName:=strFile

End If

MsgBox "تم اضافة الملف بنجاح"

End Sub

الكود الثالث

Sub AddImage() 'اضافة الصور الي صفحة الاكسل

On Error Resume Next

Dim myPic As Picture

Dim strFile As String

strFile = Application.GetOpenFilename("PDF Files (*.jpg), *.jpg")

Set myPic = ActiveSheet.Pictures.Insert(strFile)

With myPic

.Left = Range("A1").Left

.Top = Range("A1").Top

.ShapeRange.LockAspectRatio = msoTrue

.Width = 100

.Height = 100

End With

MsgBox "تم اضافة الصورة بنجاح"

End Sub

شرح الدالة SUMIF

تعد وظيفة SUMIF في Excel أداة قوية تتيح لك جمع القيم بسرعة وسهولة في نطاق من الخلايا بناءً على معايير محددة.

لاستخدام الدالة SUMIF، يجب عليك أولاً تحديد نطاق الخلايا التي تريد تلخيصها. يمكن القيام بذلك عن طريق تحديد نطاق الخلايا أو عن طريق كتابة مراجع الخلية.

بعد ذلك، يجب عليك تحديد المعايير التي يجب تضمين الخلايا فيها في المجموع. يمكن القيام بذلك عن طريق كتابة قيمة، مثل رقم أو سلسلة نصية، أو باستخدام تعبير منطقي مثل "> 10" أو "<= 20".

أخيرًا، يجب عليك تحديد مكان وضع نتيجة الدالة SUMIF. يمكن القيام بذلك عن طريق تحديد خلية أو كتابة مرجع خلية. 

بمجرد تحديد كل هذه المعلمات، سيقوم Excel تلقائيًا بحساب وعرض نتيجة الدالة SUMIF في الخلية المحددة.

بمعايير محددة. يكون بناء جملة الدالة SUMIF كما يلي:

 SUMIF (range, criteria, [sum range]) =

" range" هو نطاق الخلايا الذي تريد تطبيق المعايير عليه.

"ا criteria" هي المعايير التي يجب أن تلبيها الخلايا الموجودة في النطاق حتى يتم تضمين قيمها في المجموع. يمكن أن تكون المعايير قيمة أو مرجع خلية أو سلسلة نصية.

"Sum range" هي وسيطة اختيارية تحدد نطاق الخلايا التي تريد جمعها. إذا تم حذف هذه الوسيطة، فسيستخدم Excel وسيطة "النطاق" باعتبارها "sum range".

مثال على استخدام SUMIF:

= SUMIF (A1:A10, ">5")

ستجمع هذه الصيغة القيم الموجودة في النطاق A1: A10 الأكبر من 5.

= SUMIF (A1:A10, "apples", B1:B10)

ستجمع هذه الصيغة القيم الموجودة في النطاق B1: B10 إذا كانت الخلية المقابلة في النطاق A1: A10 تحتوي على النص "apples".

يمكنك أيضًا استخدام دالة SUMIFS إذا كنت تريد استخدام معايير متعددة.

= SUMIFS (sum range, criteria_range1, criteria1, [criteria_range2, criteria2], ...)