نجوم المشاركات

اعلنت مايكروسوف 22-8 دمج بايثون في اكسيل والبداية في 365 beta طبعا تعتبر مكتبات بايثون كpandas, matp, ذات اداء خرافي في تحليل البيانات وتتفوق على الاكسيل اذا كان لديك بيانات بعشرات الاف و الملايين من السجلات اعتقد ان الشركات في الوقت القادم ستشترط معرفة استخدام بايثون داخل اكسيل

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

لا مشكلة في حدث قبل التحديث للكمبو0 نضع الامر If Application.CurrentProject.AllReports("sos").IsLoaded = True Then DoCmd.Close ObjectType:=acReport, ObjectName:="sos", Save:=acSavePrompt Else End If الملف مرفق اخونا الشايب Database110(1).accdb

اذا اردت بالكود وجب عليك ارفاق ملف xlsm بناء على مرفقك وقلة التفاصيل لا تتوقع احد ان يجيبك . حتى تجد تفاعل اكثر ضع النتائج المتوقعة في الشيتات المستهدفة . عندما تكون الاكواد ضعيفة مع حجم بيانات كبيرة على الرغم من ان بياناتك قليلة جدا عندها استخدم الفلترة هذا مجرد تخمين واذاكان هناك شيء نسيته او شرحته بطريقة خاطئة وجب عليك تطويع الكود بنفسك . Sub CopyData() Application.ScreenUpdating = False Dim ws1 As Worksheet, ws2 As Worksheet Set ws1 = ThisWorkbook.Sheets("بيانات") Set ws2 = ThisWorkbook.Sheets("سجل قيد") Set ws3 = ThisWorkbook.Sheets("سجل حالات") With ws1 .Range("A1").AutoFilter 10, "" .AutoFilter.Range.Copy With ws2 .Range("A1").PasteSpecial xlPasteValues End With .Range("A1").AutoFilter End With With ws1 .Range("A1").AutoFilter 10, "<>" .AutoFilter.Range.Copy With ws3 .Range("A1").PasteSpecial xlPasteValues End With .Range("A1").AutoFilter End With Application.ScreenUpdating = True End Sub Book1.xlsm

أهلاً وسهلاً بك وجزاك الله خيراً.. بالنسبة لحفظ الملفات واحد تلو الآخر فيجري عمله الآن والأمر ياخذ وقت والله المستعان وصلت الملف 35 وبعد الانتهاء ان شاءالله والتطبيق سأعود بالنتيجة

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

السلام عليكم أخي الكريم جرب الكود التالي في حدث المصنف ThisWorkbook Private Sub Workbook_NewSheet(ByVal Sh As Object) Dim R As Integer, G As Integer, B As Integer Randomize R = Int(Rnd() * 256) G = Int(Rnd() * 256) B = Int(Rnd() * 256) Sh.Tab.Color = RGB(R, G, B) End Sub سيعمل الكود فقط عند إضافة ورقة عمل جديدة

أخي الكريم مطلوبك سهل بإذن الله لكن يوجد بعض الخطوات قبل تنفيذه وهي: إعادة حفظ الملفات باسم (ولو بنفس الاسم) حيث أنها تظهر خطأ عند فتحها ضبط مكان الارقام في العمود K حيث أنها في معظم الملفات في العمود K بعدها اصنع ملفا وضع به هذا الكود Sub GetDataFromFiles() Dim oFSO As Object, oFolder As Object, oFile As Object Dim lr As Long, iCnt As Long, iTotalRows As Long Dim src As Workbook, dst As Workbook Set dst = ActiveWorkbook Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(ActiveWorkbook.Path) Application.ScreenUpdating = False For Each oFile In oFolder.Files If oFile.Name <> ActiveWorkbook.Name And Left(oFile.Name, 1) <> "~" Then Set src = Workbooks.Open(oFile.Path, True, True) iTotalRows = src.Worksheets(1).Cells(Rows.Count, "K").End(xlUp).Row For iCnt = 1 To iTotalRows lr = dst.Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row dst.Sheets(1).Range("A" & lr + 1).Value = src.Sheets(1).Range("K" & iCnt).Value Next iCnt src.Close False End If Next oFile Set oFSO = Nothing: Set oFolder = Nothing: Set oFile = Nothing Application.ScreenUpdating = True MsgBox "Done by mr-mas.com" End Sub ثم قم بتنفيذ هذا الإجراء سيتم جلب بيانات العمود K من الملفات في العمود A في الملف الجديد الذي به الكود بالتوفيق

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

أهلا بكم.. لكن كيف تقوم الأداة بتخزين البيانات في حقل مصدر التحكم؟ وأيضا ماذا لو كان النموذج غير مرتبط بمصدر بيانات؟ هذه الأسئلة لا يمكن تجاهل الإجابة عنها!! عندما واجهت أبا جودي مشكلة عدم تطابق البيانات، قام بفحص البيانات العائدة من صندوق التحرير والسرد بالتابع TypeName، ليتفاجأ أن البيانات العائدة من نوع (متعدد، متنوع)! فلماذا لم يقبل صندوق الرسائل عرض البيانات كنص؟! السبب في ذلك أن البيانات العائدة وإن كانت من النوع (متنوع)، إلا أنها على هيئة مصفوفة بيانات! ومصفوفة البيانات أفرادها من النوع (متنوع). وكان الأولى فحصها البيانات العائدة من صندوق التحرير والسرد بالتايع VarType. يعيد هذا التابع رقما يشير إلى نوع البيانات كما هو مبين في الرابط التالي: VarType function بعد معرفة أن البيانات العائدة من صندوق التحرير والسرد هي مصفوفة بيانات؛ كيف يمكن قراتها جميعا دون الحاجة إلى عمل دوارة For... Next؟ يمكن استخدام التابع Join لهذا الغرض.. Private Sub cmdRequired_Click() Debug.Print VarType(cboEmpSection.Value) 'تعيدالرقم 8204، انظرالاقتباس أعلاه MsgBox Join(cboEmpSection.Value, ", ") ' يمكن استخدام محدد الفصل Debug.Print Join(cboEmpSection.Value) ' يمكن تجاهل محدد الفصل End Sub

عملك صحيح فقط غير IIf(Len([Forms]![frm]![city] & ' ')=0;[id_city];[Forms]![frm]![city]) الى IIf(Len([Forms]![frm]![city] & "")=0;[id_city];[Forms]![frm]![city]) ومن رأي اخونا الفاضل شايب انك تغير اسم الكمبوبوكس في النموذج الملف مرفق Felter.accdb

الموضوع أبسط مما تتخيل لكن الأكسس عاجز وحده والسبب لا يمكن ارسال نسق التشفير الـ ( Encoding ) لذلك استعن بلغة اخرى حمل هذا البرنامج مكتوب بلغة #C ثم قم بتعديله https://www.codeproject.com/Articles/12711/Google-Translator ثم قم بعمل نداء بواسطة CommandLine يرسل 3 امور رئيسية: اولاً: اللغة المراد الترجمة منها ثانياً: اللغة المراد الترجمة اليها ثالثاً: النص المراد ترجمتة سيقوم البرنامج المساعد بترجمة النص وفق المعطيات ومن ثم سيقوم بإرجاع المخرجات لك على شكل Args قم بقراءتها في برنامج، وانتهى الموضوع.

اخي وجيه شرف الدين مشكور مرورك اخي Ali Mohamed Ali مشكور مرورك واشكرك علي السؤال عني اخي محمود_الشريف بارك الله فيك عمل ممتاز واعذرني لم اراه تحياتي اخي حراثي تواتي لابد من تحديد اسم الملف طبعا وحسب الكود لابج وان يكون في نفس مكان الملف v2 ومرفق ملف بطريقو اخري تمكنك من اختيار امتداد الملف سواء كان xlsm او xls وكذلك تحديد المدي في كلا الملفين trans_2.rar

السلام عليكم بعد اذن الاخوة هذا حل اخر بسيط بأستخدام المصفوفات تحياتي للجميع بحث.rar

السلام عليكم اريد كود لارشفة البيانات في الاكسل والإحتفاظ بها على شكل ترشيف الملف التالي bon_commande_new.rar

يمكنك استعمال هذا الملف وهذا الماكرو التابع له (اسرع من الاول) Sub salim() Dim lr As Integer lr = Cells(Rows.Count, 2).End(3).Row Range("a2:a" & lr).ClearContents Set myrg = Range("b2:b" & lr).SpecialCells(2, 23).SpecialCells(12).Offset(0, -1) myrg.Cells(1) = 1 myrg.DataSeries Rowcol:=xlColumns, Type:=xlLinear, _ Step:=1, Stop:=myrg.Count End Sub PROBLEM salim.rar

جرب الملف تم التعديل MultiCat UDF Function2.rar

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

الأخ الغالي أبو حنين إليك هذا السطر يمكن إضافته في بدايات الكود بعد تعريف المتغيرات بحيث لو كانت الخلية فارغة يتم إظهار رسالة ثم الخروج من الإجراء If IsEmpty(Range("A1")) Then MsgBox "الخلية فارغة يرجى كتابة بيان بها", vbInformation: Exit Sub تقبل تحياتي

الأخ الحبيب أبو حنين بارك الله فيكم الأخ الحبيب Creation World بالله عليك غير اسم الظهور الكود التالى للحفظ بناء على A1 وفى نفس مسا ر ملف الاكسل ومن غير مربع حوارى Sub PDF() Dim Rng As Range Dim fName As String fName = ThisWorkbook.Path & "\" & ActiveSheet.[a1].Value Set Rng = Sheets("ورقة1").Range(Cells(1, 1), Cells(Rows.Count, 6)) Application.ScreenUpdating = False Rng.Activate Selection.ExportAsFixedFormat Type:=xlTypePDF, FileName:=fName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True Sheets("ورقة1").Range("A1").Select Application.ScreenUpdating = True End Sub بالنسبة لطلبك الثانى الخاص بالصورة اعمل موضوع جديد لتعم الفائدة ومؤقتا شوف الموضوع ده http://www.officena.net/ib/index.php?showtopic=58031

السلام عليكم ورحمة الله وبركاته برنامج جديد في بداية تصميمه والمطلوب كما هو موضح أفتح قائمة Definition إختر Employees clearance للدخول الى الصفحات أختر Back to main والمطلوب كما هو موضح بالصورة تحياتي Hold Caf.rar

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

لسلام عليكم ربنا يشفيك ويحفظ لك والدتك من كل شر وتسلم على هذا البرنامج بخصوص استفسارك حول تغير لون الشريط يكون ذالك في هذا الكود Sub ParametresHtml() CURRENCY_FORM.WebBrowser1.Navigate _ "about:<html><body scroll='no'><font color= " & LaCouleur & " size='6' face='NEW'>" & _ "<marquee>" & LeTexte & "</marquee></font></body></html>" End Sub هذا الكود عبارة عن دمج بين لغتي html & VBA font color هو لون الخط

السلام عليكم و رحمة الله و بركاته أرسل أخونا (هشام العشرى) رد علي الخاص أيضا أرجو أن تكون الردود في الموضوع لتعميم الفائدة طالما لايوجد مايدعو للخصوصية بالملف يقول الأستاذ / هشام وردا عليه أقول أخي الكريم ، علي عجالة ستجد بالمرفق بعض العملاء (إثنين كمثال) قطعت دفعاتهم مرتين فقط فيجب عليك إدخال يدوي لوقت الدفع الثاني ثم بالراجع تقفل قبلها بيوم الدفعة الأولي جرب المرفق حسابات الجيم2.rar

السلام عليكم أهلا ومرحبا بك أخي الكريم كان عندي من وقت قريب مشكلة قريبة من هذه وكنت قد حللتها بطريقة طويلة عن طريق دالة IF باستخدامها لتغطي كافة الإحتمالات Case1 الحالة الأولي - الشهر الذي أوله في الصف1 وآخره في الصف 2 ليس في مجال مدة العقد Case2 الحالة الثانية - مدة العقد كلها في مجال الشهر الذي أوله في الصف1 وآخره في الصف 2 Case3 الحالة الثالثة - الشهر الذي أوله في الصف1 وآخره في الصف 2 يقع بالكامل في مجال مدة العقد Case4 الحالة الرابعة - مدة العقد تبدأ خلال الشهر الذي أوله في الصف1 وآخره في الصف 2 Case5 الحالة الخامسة - مدة العقد تنتهي خلال الشهر الذي أوله في الصف1 وآخره في الصف 2 أنظر المرفق وقد يكون هناك حل أفضل لحساب تقاطعات المدد الزمنية تفضل المرفق علي الرابط http://www.4shared.com/file/VWpQ78Ig/__2.html التحميل فيه مشكلة عندي