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

السلام عليكم ورحمة الله تعالى وبركاته بعد مواجهتى لمشكلة فى هذه النقطة عند التعامل مع ملفات الاكسل بسبب اختلاف النسخ والتنسيق لملفات الاكسل تبعا لاختلاف الاصدارات كانت هذه نتيجة وخلاصة افكاارى لحل مشاكلى اليكم الخطوات 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

بسم الله الرحمن الرحيم بناء على طلب أخينا الكريم عبد الله المجرب (أبو أحمد) يتم هنا مناقشة دالة الرسائل التي تظهر لمدة محددة بالثواني ثم تختفي تلقائياً الصيغة العامة لها intButton = object.Popup(strText,[nSecondsToWait],[strTitle],[nType]) شرح البارامترات object : كائن wscript الذي تم إنشاؤه strText : نص الرسالة (مطلوب) nSecondsToWait : عدد ثواني بقاء الرسالة على الشاشة (اختياري) القيمة الافتراضية 0 وتعني عدم اختفاء الرسالة إلا بعد الضغط على زر فيها strTitle : عنوان الرسالة (اختياري) إذا لم يتم كتايته يظهر "Windows Script Host" nType : رقم يحدد الأزرار والأيقونات المستعملة في الرسالة (اختياري) وترجع الدالة رقم intButton الخاص برقم الأزرار التي ضغطها المستخدم حتى يخفي الرسالة ويهمنا في هذا المقام الأزرار والأيقونات وهي كالتالي وهي مثل دالة msgbox العادية في أنه يمكنك جمع قيمتين أو أكثر سواء بعلامة + أو بكتابة حاصل الجمع الفعلي فمثلا لعمل رسالة بها زر نعم أولا وأيقونة علامة الاستفهام نكتب 4+32 أو 36 نأتي الآن للقيمة التي ترجعها الدالة نأخذ مثالاً set WshShell = CreateObject("WScript.Shell") Result = WshShell.Popup("This is a popup box!", 10, "Title", 65) ويمكن تنفيذ الأمر بدون وضع القيمة الراجعة في متغير set WshShell = CreateObject("WScript.Shell") WshShell.Popup "This is a popup box!", 10, "Title", 65 ويمكنك استعمال هذه الدالة من تصميمي للتعامل مع popup Function msg(strText As String,nSecondsToWait as integer, strTitle As String, nType As Integer) CreateObject("WScript.Shell").Popup strText,nSecondsToWait,strTitle,nType End Function طريقة استعمالها Sub mas() msg "text", 2, "title", 4+256 End Sub .... وفي الأخير لا ينقصني سوى دعاؤكم وفقنا الله وإياكم لكل ما يحب ويرضى

بسم الله الرحمن الرحيم من هذا الصرح أدعو إخواني إلى استخدام أوفيس 2007 نظرا لمميزاته المتعددة وأول نصيحة أقدمها لمستخدمي 2007 ملف فلاش يحتوي على الأوامر الموجودة في أوفيس 2003 ومكانها في أوفيس 2007 ومعه برنامج مشغل الفلاش تسطيب صامت هنــــــا بانتظار رأي الإخوة ونصائحهم لمستخدمي 2007 من خلال بعض المعلومات البسيطة التي حصل عليها بعد بحث كبير

بسم الله الرحمن الرحيم أنا مبرمج بالأكسس وكنا إذا أردنا حماية البرنامج قمنا بتحويله إلى mde وبعد التحويل لا يستطيع ولا حتى صاحب البرنامج أن يطّلع على الكود المكتوب في vba فكيف يتم ذلك في الإكسل ؟؟ شكرا لكم مقدما

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته عذرا لانقطاعي عن هذا الصرح التعليمي الكبير نظرا لانشغالي بمهام زائدة عن طاقتي وأولا أرحب بكل الإخوة الأعضاء القدامى والجدد وأهنئ كل من تم ترقيتهم وأعود لكم اليوم بكود رائع كان يبحث عنه كثير من الأعضاء إرسال رسالة بريدية باستخدام برنامج microsoft outlook تحتوي على مرفق إلى قائمة من العملاء مميزات الكود استخدام outlook الإسال إلى قائمة من العملاء إرسال أكثر من مرفق للعميل الواحد السماح بإرفاق جميع الامتدادات يمكنك اتباع التعليمات الموجودة في الكود مع ملاحظة ضرورة التسجيل في برنامج outlook واستخدام حساب بريدي فعال وصحيح حتى يتم الإرسال الكود مقتبس من موقع أجنبي مع التعديل ليتناسب مع المبرمج العربي لا ينقصني سوى دعاؤكم mas_outlook_mailer.rar

بسم الله الرحمن الرحيم من خلال الواقع عملية وضع الجدول المدرسي عملية مرهقة وتحتاج لكثير من التركيز من حيث عدد الحصص لكل مدرس أو سقوط فصل من الجدول ( ليس موكلا إلى أحد الأساتذة) أو تضارب الحصص ( وجود الفصل الواحد عند أكثر من مدرس) وبعد الانتهاء من الجدول نأتي لعمليات الاستخلاص استخلاص جدول مدرس أو استخلاص جدول فصل أو استخلاص جدول مشرف في يوم معين أو مشرف لدور معين وبفضل الله تم الانتهاء من تصميم برنامج بسيط يوفر كل ماسبق ملاحظة: البرنامج لا يقوم بوضع جدول من الألف إلى الياء وإنما يساعد مسئول الجدول في إنجاز مهمته البرنامج يعمل على أوفيس 2007 وبانتظار اقتراحات المهتمين بالمجال لتطويره ولا تنسوني من صالح دعائكم mas-school-timetable.rar

بسم الله الرحمن الرحيم الحمد لله رب العالمين كثيرا ما يشغل بالي ولا أدري أيشغل هذا الأمر بال الإخوة الزملاء أم لا؟ موضوع توافق الدوال بين إصدارات الإكسل حيث أنني أستعمل أوفيس 2010 وأريد أن أعلم : هل هذه الدالة متوافقة مع إصدار 2003 مثلاً أو لا؟ وهل هي متوافقة مع 2007 أم لا؟ وما هي الدوال الجديدة في إكسل 2010؟ والحمد لله قمت بعمل هذا البحث البسيط الذي يضم كل هذه المعلومات وأكثر .............. ومن هنا أعرض على الإخوة أن يعرض كل واحد منا تجربته واستخداماته لكل دالة من هذه الدوال مع مثال حتى نتمكن من جمع كل ما يخص دوال الإكسل من شرح وأمثلة في هذا الموضوع بإذن الله ........... وبهذا المشروع بإذن الله تكتمل دائرة معرفة الإكسل فالإكسل معادلات وأكواد والأكواد وال vba يتم مناقشتها في الدورة وهنا يتم مناقشة المعادلات والدوال ولا تنسوني من صالح دعائكم ولا تنسوا مصر من صالح دعائكم ************** تم حذف المرفق لوجود نسخة أحدث هنا في المشاركة 11# ويمكن التحميل مباشرة من هنا http://www.officena....attach_id=49058

الحمد لله على عودة هذا الصرح التعليمي الكبير كنت قد وضعت برنامج لحساب نتائج مباريات كأس العالم للشباب والتي أقيمت في مصر 2009 واليوم قمت بتطوير الفكرة لجعلها مناسبة لأي بطولة تتكون من 24 فريق المطلوب من المستخدم: كتابة أسماء فرق المجموعات في مكانها الصحيح في جانب اللغات وكتابة نتائج المباريات والبرنامج يقوم بحساب الاحصائيات والترتيب ومن سيقابل من في الأدوار القادمة حتى نصل للبطل لا ينقصني سوى دعاؤكم لي بالتوفيق والسداد Mas24TeamsCup.rar

بسم الله الرحمن الرحيم، السلام عليكم ورحمة الله وبركاته، أسعد الله أوقاتكم من جديد موعدنا اليوم مع معلومة مفيدة جدا ومتقدمة جدا، ومهمة جدا في نفس الوقت، ألا وهي جميع مفاتيح اختصارات الإكسل 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 عند القراءة ولا ينقصني سوى دعاؤكم لي ولأهلي وأحبابي -وأنتم منهم- بخيري الدنيا والآخرة. ومشاركة الموضوع مع من يهمه الأمر لو بخل بها غيرك ما وصلت إليك ولا تنس تقييم المنشور

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 مع اخر الشهر هيكون الكورس كامل ولو في استفسار هكون سعيد اكيد بالرد تحياتي..

السلام عليكم وجدت بالمنتدى هذا الموضوع لتصدير الاستعلامات إلى إكسيل لكنى أبحث عن ميزة اختيار الحقول التى يتم تصديرها من الاستعلام يعى مثلا الاستعلام ينتج 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 بلون عادي حيث أنني قد قمت فعلا بالسداد أشكركم مقدما على مساعدتكم

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

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

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

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