البحث في الموقع

السلام عليكم ورحمة الله تعالى وبركاته بعد مواجهتى لمشكلة فى هذه النقطة عند التعامل مع ملفات الاكسل بسبب اختلاف النسخ والتنسيق لملفات الاكسل تبعا لاختلاف الاصدارات كانت هذه نتيجة وخلاصة افكاارى لحل مشاكلى اليكم الخطوات 1- انشاء وحدة نمطية عامة ليسهل استدعاء الدوال منها فى شتى زوايا التطبيق واعطائها الاسم التالى basFileUtilityKit بها هذه الكود Option Compare Database Option Explicit ' Enumeration for the types of file dialogs Enum EnumFileDialogType msoFileDialogFilePicker = 1 msoFileDialogFolderPicker = 4 End Enum ' Enumeration for different file extensions Enum EnumFileExtensions AccessFiles ExcelFiles WordFiles PDFFiles TextFiles ImageFiles VideoFiles AudioFiles AllFiles ' You can add additional file extensions as needed here End Enum ' Enumeration for different options related to file paths Enum EnumOptionFile DirectoryWithoutFileName DirectoryWithFileName FileNameWithExtension FileNameWithoutExtension ExtensionOnly End Enum ' Function to open the folder dialog and return the selected folder path Function GetFolderDialog() As String On Error Resume Next Dim folderDialogObject As Object Set folderDialogObject = Application.FileDialog(EnumFileDialogType.msoFileDialogFolderPicker) With folderDialogObject .Title = "Select Folder" .AllowMultiSelect = False .Show End With If folderDialogObject.SelectedItems.Count > 0 Then GetFolderDialog = folderDialogObject.SelectedItems(1) Else ' Handle the case where no folder is selected MsgBox "No folder selected.", vbExclamation GetFolderDialog = "" End If Set folderDialogObject = Nothing On Error GoTo 0 End Function ' Function to open the file dialog and return the selected file path Function GetFileDialog(ByVal EnumFileExtension As EnumFileExtensions) As String On Error Resume Next ' Check if the Microsoft Office Object Library is referenced ' Make sure to go to Tools > References and select the appropriate version ' e.g., "Microsoft Office 16.0 Object Library" for Office 2016 Dim fileDialogObject As Object Set fileDialogObject = Application.FileDialog(EnumFileDialogType.msoFileDialogFilePicker) With fileDialogObject .Title = "Select File" .AllowMultiSelect = False .Filters.Clear ' Adding filters based on the selected file extension Select Case EnumFileExtension Case EnumFileExtensions.AllFiles .Filters.Add "All Files", "*.*" Case EnumFileExtensions.TextFiles .Filters.Add "Text Files", "*.txt" Case EnumFileExtensions.ExcelFiles .Filters.Add "Excel Files", "*.xlsx; *.xls" Case EnumFileExtensions.ImageFiles .Filters.Add "Image Files", "*.jpg; *.jpeg; *.png; *.gif" Case EnumFileExtensions.VideoFiles .Filters.Add "Video Files", "*.mp4; *.avi; *.mov" Case EnumFileExtensions.AudioFiles .Filters.Add "Audio Files", "*.mp3; *.wav; *.ogg" Case EnumFileExtensions.PDFFiles .Filters.Add "PDF Files", "*.pdf" Case EnumFileExtensions.WordFiles .Filters.Add "Word Files", "*.docx; *.doc" Case EnumFileExtensions.AccessFiles .Filters.Add "Word Files", "*.accda , *.accdb,*.accdc , *.accde,*.accdr , *.accdt,*.accdw , *.mda,*.mdb , *.mde,*.mdf , *.mdw" ' You can add additional file extensions as needed here End Select .Show End With If fileDialogObject.SelectedItems.Count > 0 Then GetFileDialog = fileDialogObject.SelectedItems(1) Else ' Handle the case where no file is selected MsgBox "No file selected.", vbExclamation GetFileDialog = "" End If Set fileDialogObject = Nothing Exit Function If Err.Number <> 0 Then Select Case Err.Number Case 3078: Resume Next ' Ignore error if user cancels the file dialog Case 0: Resume Next Case Else ' Call ErrorLog(Err.Number, Error$, strProcessName) End Select ' Clear the error Err.Clear End If End Function ' Function to get the desired option for a file path Function GetFileOption(ByRef strFilePath As String, Optional ByRef EnumOptionFile As EnumOptionFile = DirectoryWithFileName) As String On Error Resume Next Select Case EnumOptionFile Case DirectoryWithoutFileName GetFileOption = Left(strFilePath, InStrRev(strFilePath, "\")) Case DirectoryWithFileName GetFileOption = strFilePath Case FileNameWithExtension GetFileOption = Mid(strFilePath, InStrRev(strFilePath, "\") + 1) Case ExtensionOnly GetFileOption = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, ".")) Case FileNameWithoutExtension GetFileOption = Mid(strFilePath, InStrRev(strFilePath, "\") + 1, InStrRev(strFilePath, ".") - InStrRev(strFilePath, "\") - 1) End Select On Error GoTo 0 End Function ' Function to get additional information about a file Function GetFileInfo(filePath As String) As String On Error Resume Next Dim fileInfo As String fileInfo = "File Information:" & vbCrLf fileInfo = fileInfo & "Path: " & filePath & vbCrLf fileInfo = fileInfo & "Size: " & FileLen(filePath) & " bytes" & vbCrLf fileInfo = fileInfo & "Created: " & FileDateTime(filePath) & vbCrLf GetFileInfo = fileInfo On Error GoTo 0 End Function شرح الوظائف فى هذه الوحدة النمطية Enumerations توفر طريقة لتعريف مجموعة من الثوابت التي يمكن استخدامها لتحديد أنواع معينة من القيم. EnumFileDialogType هذه الـ Enumeration تستخدم لتحديد نوع مربع الحوار الخاص بالملفات: msoFileDialogFilePicker: لفتح مربع حوار لاختيار الملفات. msoFileDialogFolderPicker: لفتح مربع حوار لاختيار المجلدات. EnumFileExtensions هذه الـ Enumeration تستخدم لتحديد نوع الامتدادات التي يمكن اختيارها من مربع حوار الملفات: AllFiles: جميع الملفات. TextFiles: ملفات النصوص. ExcelFiles: ملفات إكسل. ImageFiles: ملفات الصور. VideoFiles: ملفات الفيديو. AudioFiles: ملفات الصوت. PDFFiles: ملفات PDF. WordFiles: ملفات وورد. EnumOptionFile هذه الـ Enumeration تستخدم لتحديد الخيارات المختلفة المتعلقة بالمسارات: DirectoryWithoutFileName: المسار بدون اسم الملف. DirectoryWithFileName: المسار مع اسم الملف. FileNameWithExtension: اسم الملف مع الامتداد. FileNameWithoutExtension: اسم الملف بدون الامتداد. ExtensionOnly: الامتداد فقط. Functions GetFolderDialog هذه الدالة تفتح مربع حوار لاختيار المجلدات وتعيد المسار الكامل للمجلد الذي تم اختياره. إذا لم يتم اختيار أي مجلد، تعرض رسالة تنبيه وتعيد قيمة فارغة. GetFileDialog هذه الدالة تفتح مربع حوار لاختيار الملفات وتعيد المسار الكامل للملف الذي تم اختياره. يمكنك تحديد نوع الملفات المسموح باختيارها عبر الـ EnumFileExtensions. إذا لم يتم اختيار أي ملف، تعرض رسالة تنبيه وتعيد قيمة فارغة. GetFileOption هذه الدالة تستخدم لتحديد أجزاء معينة من مسار الملف بناءً على القيمة المحددة في الـ EnumOptionFile: DirectoryWithoutFileName: يعيد المسار بدون اسم الملف. DirectoryWithFileName: يعيد المسار مع اسم الملف. FileNameWithExtension: يعيد اسم الملف مع الامتداد. FileNameWithoutExtension: يعيد اسم الملف بدون الامتداد. ExtensionOnly: يعيد الامتداد فقط GetFileInfo هذه الدالة تعيد معلومات حول ملف محدد، بما في ذلك المسار، الحجم، وتاريخ الإنشاء. تعرض هذه المعلومات كجزء من نص مرتجع. ------------------------ 2- انشاء وحدة نمطية عامة ليسهل استدعاء الدوال منها فى شتى زوايا التطبيق واعطائها الاسم التالى basExcelDataImport بها هذه الكود Public Const strTableExcel As String = "tblImportExcel" Function ExcelDataImport(ByRef excelFilePath As String) On Error Resume Next ' Disable error handling temporarily Const xlOpenXMLWorkbook As Long = 51 ' Variables for Excel and Access Dim excelApp As Object Dim excelWorkbook As Object Dim excelOpened As Boolean Dim sourceFileName As String Dim mainDirectory As String Dim convertedExcelFilePath As String ' Check if the Excel file path is provided If Nz(excelFilePath, "") = "" Then Exit Function ' Check if the Excel file exists If Dir(excelFilePath) = "" Then Exit Function ' Extract file information sourceFileName = GetFileOption(excelFilePath, FileNameWithExtension) mainDirectory = GetFileOption(excelFilePath, DirectoryWithoutFileName) convertedExcelFilePath = excelFilePath ' Create Excel application object Set excelApp = CreateObject("Excel.Application") ' Check if Excel application is successfully created If Err.Number <> 0 Then Err.Clear Set excelApp = CreateObject("Excel.Application") excelOpened = False Else excelOpened = True End If ' Reset error handling On Error GoTo 0 ' Set Excel application visibility excelApp.Visible = False ' Open Excel workbook Set excelWorkbook = excelApp.Workbooks.Open(mainDirectory & sourceFileName) ' Save the workbook in xlsx format without displaying alerts excelApp.DisplayAlerts = False excelWorkbook.SaveAs Replace(mainDirectory & sourceFileName, ".xls", ".xlsx"), FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False excelApp.DisplayAlerts = True ' Close the workbook without saving changes excelWorkbook.Close False ' Quit Excel application if it was opened by the function If excelOpened = True Then excelApp.Quit ' Update the source file name with the new extension sourceFileName = sourceFileName & "x" ' Reset file attributes SetAttr mainDirectory & sourceFileName, vbNormal ' Import Excel data into Access table DoCmd.SetWarnings False 'acSpreadsheetTypeExcel8 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel8, strTableExcel, mainDirectory & sourceFileName, True ExitFunction: ' Enable system alerts before exiting the function DoCmd.SetWarnings True Exit Function ErrorHandler: ' Handle errors Select Case Err.Number Case 3078: Resume Next ' Ignore error if user cancels the file dialog Case 0: Resume Next Case Else ' Call ErrorLog(Err.Number, Error$, strProcessName) End Select End Function ' Function to delete all records from the specified table Sub DeleteAllRecords(Optional ByRef strTable As String = "") On Error Resume Next If Nz(strTable, "") = "" Then strTable = strTableExcel CurrentDb.Execute "DELETE FROM " & strTable ' Handle errors Select Case Err.Number Case 3078 If strTable = strTableExcel Then Resume Next Else Case Else ' HandleAndLogError strProcessName End Select End Sub شرح الوظائف فى هذه الوحدة النمطية الدالة ExcelDataImport تستورد بيانات من ملف Excel إلى جدول في قاعدة بيانات Access. strTableExcel: ثابت يحدد اسم الجدول في قاعدة بيانات Access الذي سيتم استيراد بيانات Excel إليه. excelFilePath: مسار ملف Excel الذي سيتم استيراد البيانات منه. ------------------------ 3- انشاء نموذج وفى الحدث عند النقر على زر الامر استخدم الكود التالى Private Sub cmdSubmit_Click() ' Get the path of the Excel file Dim strFilePath As String strFilePath = GetFileDialog(EnumFileExtensions.ExcelFiles) ' Check if a file was selected If strFilePath <> "Cancelled" Then ' Show status label Me!lblStatus.Visible = True Me!lblStatus.Caption = "Please wait ... " ' Clear TableData DeleteAllRecords ' Import data from Excel ExcelDataImport strFilePath ' Add Or Update Yor Table ' Hide the status label or reset any visual indicator Me!lblStatus.Visible = False Else ' User canceled the file selection MsgBox "File selection canceled", vbExclamation End If End Sub الان يتبقى عمل الاستعلام اللازم لاضاقة او تحديث وتعديل بياناتك طبقا لجدول الاكسس حسب رغباتك وتطلعاتك واخيرا مرفق قاعدة البيانات ImportFromExel.accdb

السلام عليكم ورحمة الله تحية طيبة ... وبعد لقد قمت بعمل قناة على اليوتيوب اشرح فيها الاكسيل بشكل اتمنى ان يفيدكم ولقد قطعت فيها شوطا لا بأس به مما شجعني ان اشارككم بهذا المجهود المتواضع امامكم بامكانكم ان تدخلوا على القناة من هذا الرابط https://www.youtube.com/channel/UCw-Na6Yxt3R_GZFy4n51juw واود ان ارشح بعض الدروس المميزة التي قد تفيد من له خبرة بالبرنامج لو نالت الدروس رضاكم ارجو ان تشتركوا في القناة وان تعلموني حتى اعرضها لكم هنا وكذلك الدروس الجديدة التي ستنزل في المستقبل القريب ان شاء الله ولكم جزيل الشكر

https://youtu.be/GEWA0QKZJ7A ملفات الدرس الخامس.rar

بعد اذنكم عايز أفك حماية الملف ده https://drive.google.com/open?id=1WfBPR2-OEsyUxh4QCBPvJ4yj39sKji11

السلام عليكم عندى ورقتين عمل عمليات 1 وعمليات 2 ويوجد عمودين للتواريخ فى كل ورقة منهم المشكلة ان عند تجميع الورقتين فى ورقة جديدة ثم وضعهم فى جدول محورى انة مثلا عندى تاريخ 30/6/2017 ومجموع عملياتة 362 للورقة الاولى لكن الورقة الثانية يجمع 6500 لنفس التاريخ فى الجدول المحورى مع انها المفروض تكون 500 فقط والسبب فى ذلك انة لكى يوازن نفس عدد البيانات يقوم بزيادة تاريخ جديد هل من حل لضبط ذلك فى الجدول المحورى بحيث يكون البيانات لنفس التاريخ دون زيادة وشكرا

السلام عليكم الاخوه الكرام برجاء المساعده فى الملف المرفق المطلوب البحث عن القيمه الموجوده فى العمود ( من عمود الكود الموجود فىجدول البيانات الاساسى ) وترتيبها افقيا فى جدول نتيجه البحث حسب التاريخ وشكرا لكم مقدما get all codes.xlsx

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

السلام عليكم انا مندوب مبيعات وعملت الشركة عرض ترويجي اذا اشترى الزبون 20كارتونة اعطيه 2 مجانا .. اريد معادلة لكي تنقص 2 مجانية من المخزن مباشرة اذا بعت 20 كارتونة لزبون واحد و شكرا

السلام عليكم ورحمة الله وبركاته .. فيديوهات لتعلم الاكسيل - دليلك لتعلم برنامج مايكروسوفت إكسل من خلال فيديوهات لشرح برنامج Excel من البداية فى كورس كامل لتعليم الاكسل بالعربي بسهولة تبدأ السلسلة بفيديو واحد لتعلم الاكسيل من الصفر فى اقل من نصف ساعة بطريقة مبسطة وبسهولة ويتضمن الكورس السريع الآتى: لمشاهدة الفيديوهات اضغط هنا دليلك لتعلم برنامج الاكسل من البداية فى فيديو واحد - 2018/2019 Microsoft Excel Tutorial دليلك لتعلم الطباعة في برنامج الاكسل كالمحترفين في 10 دقائق فقط - Excel Printing Tips 2018/2019 تعلم الأكسل | شرح أهم معادلات فى الاكسل - Excel Functions تعلم الأكسل| الرسم البيانى والمخططات - Excel Charts تعلم الأكسل|| أختصارات رائعة فى الأكسيل لم تكن تعرفها - Excel Shortcuts Tutorial 2019 تعلم الأكسل|| خمسة أختصارات رائعة ستوفر وقتك #Excel تعلم الاكسل || أفهم Pivot Table بسهولة في 6 دقائق فقط. أتمنى تجدوا فيها ما تريدون ... وأى شئ متشرحش فالفيديوهات خاص بالأكسل ممكن اعمل فيديو ليه مخصوص لو حابين. فقط أتركوه بالتعليقات.

كورس الدليل الكامل لتعليم اساسيات برنامج الاكسل 2019 دليلك لتعلم الاكسل من الصفر حتى الاحتراف في كورس واحد! 2018 - 2019 في الكورس ده هنغطي كل الاساسيات اللي لازم ولابد اي محاسب يبقي علي علم بيها بدايتاً من تعريف البرنامج واستخداماته وتوضيح واجهة البرنامج بالكامل وازاي تدخل بيانات وازاي تنسق البيانات بتاعتك بحيث تظهر بمظهر كويس وازاي تنشأ المعادلات وايه اهم المعادلات اللي هتحتاجها دايما في شغلك كمحاسب وازاي تعمل تخطيط للبيانات وازاي تستخدم الطباعة وازاي تحمي البيانات بتاعتك وازاي تحلل البيانات باستحدام ادوات التحليل المتوفرة داخل البرنامج وازاي تنهي الشغل بتاعك بوحدات الماكر.... عندنا حاجات كتير هيتم تغطيتها داخل الكورس يالا نبدأ... https://youtu.be/jSp7W4oALAk مع اخر الشهر هيكون الكورس كامل ولو في استفسار هكون سعيد اكيد بالرد تحياتي..

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts فتابعونا. جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 و 2019 و 365 excel keyboard shortcuts الحمد لله الذي وفقنا في جمع وترتيب وتبويب جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts مع توضيح فئة الاختصار ووصف عمله والمفتاح أو المفاتيح التي تقوم بهذا الإجراء ونتعرف أيضا على: أمثلة لكل اختصار وربطه مع باقي مفاتيح الاختصار والآن مع الجدول الذي يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts وهذا ملف Pdf يضم جميع مفاتيح اختصارات الإكسل 2003 و 2007 و 2010 و 2013 و 2016 excel keyboard shortcuts لمن يريد الاحتفاظ به وهذا الفيديو لنفس الغرض يمكن عمل إيقاف مؤقت Pause عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور

السلام عليكم وجدت بالمنتدى هذا الموضوع لتصدير الاستعلامات إلى إكسيل لكنى أبحث عن ميزة اختيار الحقول التى يتم تصديرها من الاستعلام يعى مثلا الاستعلام ينتج 45 حقلا أرغب فى تصدير الحقول من 19 : 45 و لكم جزيل الشكر

السلام عليكم و رحمة الله تعالى وبركاته. إخواني الاعزاء . أريد عمل كود لترحيل المعلومات للجدول يقارن ببين قيمتي التكست بوكس 1 و تكست بوكس 2 بحيث غند النقر على commanbutton1 : 1- - إذا كانت قيمة التكست بوكس 2 أكبر من قيمة تكست بوكس 1 : يظهر رسالة " إن القيمة المدخلة أكبر من الفيمة الابتدائية هل تريد المواصلة ؟" إذا كانت الإجابة نعم يتوقف الترحيل و يركز الماوس على التكست بوكس 2 . إذا كانت الإجابة لا . يتواصل الترحيل بصفة عادية. 2- إذا كانت قيمة التكست بوكس 2 أأصغر من أو يساوي قيمة تكست بوكس 1 يتواصل الترحيل للجدول بصفة عادية. 3- التكست بوكس 1 و تكست بوكس 2 لا يقبلان إلا أعداد من 0 إللى 10 مع رقمين بعد الفاصلة كحد أقصى. لكم جزيل الشكر مقدما. ملف 1.rar

السلام عليكم أستخدم دالة للتجميع باستخدام لون الخلية إسمها Sumbycolor وفيما يلي الكود الخاص بها Function SumByColor(CellColor As Range, SumRange As Range) Application.Volatile Dim ICol As Integer Dim TCell As Range ICol = CellColor.Interior.ColorIndex For Each TCell In SumRange If ICol = TCell.Interior.ColorIndex Then SumByColor = SumByColor + TCell.Value End If Next TCell End Function بلا شك الدالة مفيدة جدا في التقارير ، ولكن أحيانا يحدث أن تتوقف الدالة عن العمل ويظهر في خانة النتيجة #N/A ومع كثرة المعادلات في ملف الاكسل تسبب لي مشاكل ولكني وجدت حل مؤقت لذلك عن طريق الضغط على علامة التعجب واختيار edit in formula bar + Enter هل من طريقة أخرى لتفادي المشكلة في هذه الدالة ؟ّ!!!!!!! شكرا لمساعدتكم مقدما

السلام عليكم لو سمحتم كنت محتاج مساعدة بحيث إني أميز الخلية / أو الصف الذي يحتوي على تاريخ قريب للسداد بلون مميز ، ويختفي هذا اللون بعد هذا التاريخ . حسب المثال المرفق تاريخ اليوم هو: 20/09/2017 لو افترضنا أننا أريد تلوين الصفوف التي تستحق السداد خلال شهر ، معنى ذلك أنني أريد أن تكون تواريخ 23/09/2017 ، 17/10/2017 مميزين ، بينما تاريخ يوم 01/07/2017 بلون عادي حيث أنني قد قمت فعلا بالسداد أشكركم مقدما على مساعدتكم

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

السلام عليكم محتاج مساعدكم في عمل فورم أدخال على أكسل الاسم الاول عربي الاسم الثاني عربي الاسم الثالث عربي الاسم الرابع عربي ------------------------------------ الاسم الاول أنجليزي الاسم الثاني أنجليزي الاسم الثالث أنجليزي الاسم الرابع أنجليزي ------------------------------- Civil ID ---------------------- Brith day ---------------------- Sex ------------------------ Mobile ------------------------- amount KD بحيث اقوم بملئ البيانات من الفورم و يقوم الفورم بملئ الاكسل كما في الصورة المرفقة جزاكم الله كل خير عني

السلام عليكم أقدم لكم امتحان تجريبي لمادة الإكسل Excel 2013 الإصدار السادس ICDL V6 لشهادة الرخصة الدولية لقيادة الحاسب على الرابط التالي https://www.youtube.com/watch?v=oM_Po74iBfA&t=2106s المدرب أحمد الرفاعي

السلام العلیکم عندى اکثر من 2000 صفحات ولیس تسسلا (XFC10)عن طریق VLOOKUP اخترت اخر رصید فی کل صفحات فی خانة اريد جمع کل خانات (XFC10) في کل صفحات إلى خانة (B2) في صفحة مجموعة في کل صفحات إلى خانة (ب٢) في صفحة مجموعة آسف لغتي العربية سيئة أنا لا أتحدث العربية شكرا للمساعدة

السلام عليكم ورحمة الله وبركاتة الاخوة الزملاء السلام عليكم ورحمة الله وبركاتة ساشرح اليوم بطريقة بسيطة كيفية إستخدام Sum IF في هذا الفيديو يتم شرح دالة Sum If بالإضافة إلي استخدمها بطريقة احترافية في كشف المرتبات . أرجو نشر الفيديو ومتابعة القناة للمزيد من الفيديو لتعلم الإكسيل عبر اليوتيوب

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

السلام عليكم شرح فيديو طلب منى فارتأيت وضعه هنا لتعميم الفائدة لمن يريد كم عدد الطلاب الحاصلين على مجموع من 22 إلى 35 فيديو للمبتدئين

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

السلام عليكم ورحمة الله وبركاته من زمان كنت ابحث في المنتديات والمواقع التقنية عن كود لجلب الصور من فولدر الى الاكسيل لم اوفق في هذا البحث واقرب ما وجدته كان كود قديم لا يعمل الا على الاكسيل القديم 97 - 2003 وكان الملف حجمه كبير وبطيء على الجهاز ولا يناسب طبيعة عملي ثم تركت الفكرة لفترة ثم بدأت في الاطلاع على ال VBA وبدات في تسجيل بعض الماكرو البسيطة واستخدامها في عملي حتى تذكرت في يوم رغبتي القديمة فقلت ولم لا لما لا ابدء في عمل كود لجلب الصور من الملف بامكانياتي المتواضعه فبدأت في تسجيل ماكرو عادي ثم عدلت على الكود قليلا قليلا بمساعدة البحث وموقع Stack Overflow وكتاب VBA For Dummies حتى كانت النتيجه مرضية الى حد ما لي واردت مشاركة ما بدأته معكم والشكر موصول للاساتذة في منتدى اوفيسنا والذي تعلمت منه الكثير والان مع الملف وهو عبارة عن ملف اكسيل به عدد 2 شيت الشيت الاول DATA : يحتوي على جدول به ثلاث اسطر السطر الاول لتحديد المسار اي عنوان الفولدر الذي يحتوي على الصور وهو في الملف المرفق اسم الفولدر"1" في البارتيشن "D" ويجب الحرص على وضع شرطه مائلة بعد عنوان الفولدر مباشرة السطر الثاني لتحديد امتداد ملف الصور ويكتب نقطة ثم الامتداد السطر الثالث لتحديد عنوان الخلية المراد وضع اسم الصورة بها في الشيت الاخر "Gallery" الشيت الثاني Gallery : يحتوي على اطار الصورة التي سيتم استدعائها بناء على التغيير في الخلية الموجودة تحت اسم الملف وهذه الخلية يمكن تغيير موضعها عن طريق شيت DATA في ثالث سطر في الجدول - ملحوظة الصورة يمكن تعديل حجمها وتغيير مكانها حسب الحاجة وفي النهاية ارجوا ان تستفيدو من هذا الملف ولي رجاء من له اي استفسار لا يبخل به علينا ومن له تصحيح او نصيحة لا يبخل بها علينا والملف حقوقه محفوظة لكل مسلم سيحانك اللهم وبحمدك استغفرك واتوب اليك Great 1.zip

بسم الله والصلاة والسلام على خير خلق الله السلام عليكم ورحمة الله بالملف المرفق معادلة لاستخراج اسم الملف بدون اكواد وفي المثال العملي اسم الملف عبارة عن الشهر ثم شرطه ثم السنه ومن خلال الفورمات السابق تم استخراج عدد ايام الشهر وفقا للشهر والسنة, يمكن استخدام هذه المعادلات في الملفات المرتبطة بالشهر والسنه كملفات الرواتب الشهرية خصوصا المرتبات المرتبطة بعدد ايام كل شهر على حده . برجاء من له سؤال او تصويب ان لا يبخل به علينا ليستفيد الجميع. سبحانك اللهم وبحمدك لا اله الا انت Feb-2016.zip