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

السلام عليكم ورحمة الله وبركاته .. اليوم جايب لكم موقع وظيفته يقرأ أو يشرح لك الكود بلغة إنجليزية مفهومة ، ويمكنك عن طريق المترجم تحويلها إلى اللغة العربية 🙂 وهذا هو الموقع : https://denigma.app الموقع بفضل الله يتعامل مع معظم اللغات البرمجية تقريبا ، ومن ضمنها الفيجوال بيسك VBA .. وهذا شرح مبسط للاستخدام .. بعد فتح الموقع ننزل تحت إلى هذي الخانة، يوضع الكود في الخانة اليسرى ويظهر التفسير في الجهة اليمنى : نجرب نلصق دالة حساب العمر بالسنة والشهر واليوم ونضغط على [Explain it!] : ولترجمته باللغة العربية ، تأخذ النص لمترجم جوجل فيعطيك النتيجة هكذا : 🙂 هذا وسلامتكم ☺️🌹

السلام عليكم ورحمة والله تعالى وبركاته طيب ببساطه انظر للسلسلة النصية الاتية "Moh8202281012343434" ونريد التعديل عليها لتظهر بهذا الشكل "Moh-820-228-101-234-343-4" او بهذا الشكل "Moh,820,228,101,234,343,4" او بهذا الشكل Moh820/228101/234343/4 يتم عمل ذلك من خلال الكود الاتى Function ReFormat(ByVal strText As String, Optional strSymbol As String = "-", Optional intCountDigits As Integer = 3) Dim i As Long ReFormat = "" For i = 0 To Len(strText) - 1 Step intCountDigits If i = 0 Then ReFormat = Mid(strText, i + 1, intCountDigits) Else ReFormat = ReFormat & strSymbol & Mid(strText, i + 1, intCountDigits) End If Next i End Function syntax code ReFormat(string ,Symbol, Count Digits) Result By default syntax used ReFormat(string) Symbol >-->> - Count Digits >-->> 3 اذا من خلال استدعاء الكود عن طريق البنية المفضلة الاتية: ReFormat(string) تحصل على اضافة العلامة - بعد كل 3 مواضع فى السلسلة النصية اما اذا اردت التعديل فى شكل الرمز وعدد المواضع يمكنك استخدام الكود الاتى : ReFormat(string ,Symbol, Count Digits) مثلا لو اردت استخدام الرمز $ بدلا من الرمز - وتريد وضع الرمز فى السلسلة النصية بعد كل خمس مواضع يكون الكود كالأتى: ReFormat(string ,"$", 5)

السلام عليكم ورحمة الله وبركاته .. تحية طيبة إخواني .. 🌹 أحضرت لكم اليوم كود وظيفته استخراج الملفات المخزنة في جداول الأكسس كمرفقات داخلية إلى خارج قاعدة البيانات دفعة واحدة 🙂 وهو مفيد جدا لمن لديه قاعدة بيانات قد ملئها بالمرفقات ويحاول الآن تصغير القاعدة باستخراج المرفقات منها وحفظها خارج قاعدة البيانات بسهولة ويسر .. بدل حفظها ملف ملف وهي عملية مرهقة بالتأكيد .. خصوصا إذا كان عدد المرفقات بالمئات .. إليكم الكود : Public Function ExtractAllAttachments(ByVal TableName As String, ByVal AttchmentColumnName As String, ByVal ExtractToFolder As String) ' TableName : اسم الجدول ' AttchmentColumnName : اسم حقل المرفقات ' ExtractToFolder: المكان المراد استخراج الملفات إليه مثال : "C:\ExtractHere" Dim RsMainrecords As dao.Recordset2 Dim RsAttachments As dao.Recordset2 Set RsMainrecords = CurrentDb.OpenRecordset("select " & AttchmentColumnName & _ " from " & TableName & _ " where " & AttchmentColumnName & ".FileName is not Null") Do Until RsMainrecords.EOF Set RsAttachments = RsMainrecords.Fields(AttchmentColumnName).Value Do Until RsAttachments.EOF Dim OutputFileName As String OutputFileName = RsAttachments.Fields("FileName").Value OutputFileName = ExtractToFolder & "\" & OutputFileName RsAttachments.Fields("FileData").SaveToFile OutputFileName RsAttachments.MoveNext Loop RsAttachments.Close RsMainrecords.MoveNext Loop RsMainrecords.Close Set RsMainrecords = Nothing Set RsAttachments = Nothing End Function ويتم تشغيله بالطريقة التالية : ExtractAllAttachments("TableName","AttchmentColumnName","ExtractToFolder") ستحتاج لإعطائه 1- اسم الجدول ، 2 - اسم الحقل ، 3 - المكان الذي تريد استخراج المرفقات فيه . المصدر : https://www.youtube.com/watch?v=jHIgay9goWo

السلام عليكم ورحمة الله وبركاته . وطيب الله أوقاتكم بالخير والسعادة الدائمين . السادة خبراء المنتدى الأجلاء . قد نكون أكثرنا من الطلبات ، ولكننا سنكثر من الإلحاح عليكم بطلباتنا لعلمنا يقينا أنكم لا تردون من أراد العلم خائبا . السؤال : هل بالإمكان عمل كود لحذف كل المديولات واليوزرفورم وأوراق العمل عدا مثلا ورقة ٣ عندما يتم إدخال باسوورد ال vba غير الباسوورد التالية ( fsa90 ). مثلا ؟ وهل هذا السؤال يحتاج لإرفاق ملف ؟ دمتم في حفظ الله وعنايته.

احتجت لدمج محتويات عدد من الخلايا مع دمج محتوياتها فى كمية كبيرة من الجدوال ، مع اضافة فاصلة بين محتوياتها فاعددت هذا الكود اختر الخلايا المراد دمجها و دمج محتوياتها قبل تشغيل الكود Sub mergitwithcomma() Selection.Cells.merge With Selection.Find .Text = "^p" .Replacement.Text = "، " .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub لتنزل الملف

السلام عليكم اخوانى ما اريدة هو تعديل لكود تصدير اسماء الزوار الى ملف VCF لسهولة استدعاءة للهاتف المحمول.الكود يعمل بنجاح ولكن لاول اسم فقط ولا يقوم بتصدير باقى الاسماء الكود : Const ForReading = 1, ForWriting = 2, ForAppending = 3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 Dim rst As DAO.Recordset Dim fs, f, ts, s 'انشاء الملف فى المسار المحدد بالسطر التالى ActiveControl.Hyperlink.CreateNewDocument "E:\LotusNotes_VCard.vcf", True, True ' فتح الملف المصدر Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile("E:\LotusNotes_VCard.vcf") Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ' استدعاء البيانات من الجدول Set rst = CurrentDb.OpenRecordset("Invetion") rst.MoveFirst Do Until rst.EOF ts.writeLine "begin:vcard" ts.writeLine "fn:" & rst![Inv_Name] ts.writeLine "tel;cell;voice:" & rst![Inv_Mobile] ts.writeLine "ts.write version:2.1" ts.writeLine "End: vcard" rst.MoveNext Loop ' اغلاق الجدول rst.Close ' اغلاف الملف ts.Close VCard.zip

السلام عليكم احبتي مشرفي واعضاء المنتدى المطلوب التعدبل على الكود لكي يظهر الميساج مرة واحدة خلال كل شهر وبشرط وجود مبلغ إقتطاع واذا لم يكن وجود مبلغ الإقتطاع يظهر الميساح بعدم وجود الإقتطاع خلال هذا الشهر ويكون كذلك مرة واحدة كل شهر Private Sub cmd_Pay_installments_Click() On Error GoTo err_cmd_Pay_installments_Click Dim rst As DAO.Recordset 'Cridi and Elec Payments Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans Where [Payment_Month]=CDATE('" & Me.TxtMonth & "')") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount a1 = 0 'just a flag a2 = 0 'jusf a flag If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then Select Case MsgBox(" هل تريد ان يتم توزيع الإقتطاعات لشهر" & Me.TxtMonth, vbYesNo + vbQuestion + vbDefaultButton1) Case vbYes For i = 1 To RC rst.Edit 'check, maybe a manual payment is done, so don't over write it 'If Len(rst!Payment_Made_Cridi & "") = 0 And Not IsNull(rst!Loan_Cridi) Then rst!Payment_Made_Cridi = rst!Loan_Cridi rst!sadad = rst!Loan_Cridi If rst!sadad.Value = True Then rst!wada3 = "تم التسديد" Else rst!wada3 = "لم يتم التسديد" End If TheSum = TheSum + Nz(rst!Payment_Made_Cridi, 0) + Nz(rst!Payment_Made_Elec, 0) + Nz(rst!Loan_Other, 0) 'a1 = 1 'End If 'If Len(rst!Payment_Made_Elec & "") = 0 And Not IsNull(rst!Loan_Elec) Then 'rst!Payment_Made_Elec = rst!Loan_Elec 'a1 = 1 'End If rst.Update rst.MoveNext Next i TheSum = Format(TheSum, "#,##0.00") MsgBox " " & "تم توزيع الإقتطاعات" & vbLf & vbLf & "مجموع الإقتطاعات = " & TheSum, , "إقتطاعات شهر" & FrenchMonth(Month(Date)) & Year(Date) Case vbNo MsgBox "لم يتم توزيع الإقتطاعات " End Select 'GoTo I_am_Done 'Other loans for, March (3) and July (7) If Month(Now()) = 3 Or Month(Now()) = 7 Then Dim rstE As DAO.Recordset Set rst = CurrentDb.OpenRecordset("Select * From tbl_Loans") myCriteria = "[detach]='موظف'" 'myCriteria = myCriteria & " Or [detach]='منتدب'" myCriteria = myCriteria & " Or [detach]='متعاقد كامل'" myCriteria = myCriteria & " Or [detach]='متعاقد جزئي'" myCriteria = myCriteria & " Or [detach]='عون نظافة'" Set rstE = CurrentDb.OpenRecordset("Select * From Employee Where " & myCriteria) rstE.MoveLast: rstE.MoveFirst RC = rstE.RecordCount For i = 1 To RC 'check if payment is already entered, if it is, then skip this Record rst.FindFirst "[Loan_Type]='Other' And [EmployeeID]=" & rstE!EmployeeID & " And [Payment_Month]=#" & Me.TxtMonth & "#" If rst.NoMatch Then rst.AddNew a2 = 1 rst!EmployeeID = rstE!EmployeeID rst!Loan_ID = 0 'rst!Loan_AwardMonth = Me.AwardMonth rst!Payment_Month = DateSerial(Year(Me.TxtMonth), Month(Me.TxtMonth), 1) 'rst!Loan_Cridi = Me.txtDiscountPerMonth 'rst!Loan_Elec= 'to be used in Elec loan Form rst!Loan_Other = 1100 'to be used in Other loan Form 'rst!Payment_Made = 'to be used each time a pyment is made rst!Loan_Type = "Other" rst!Remarks = "إقتطاع من الراتب لإشتراك شهر " & Year(Me.TxtMonth) & "/" & Month(Me.TxtMonth) rst.Update End If rstE.MoveNext Next i rstE.Close: Set rstE = Nothing End If I_am_Done: 'clean up rst.Close: Set rst = Nothing End If Exit Sub err_cmd_Pay_installments_Click: If Err.Number = 3021 Then 'No Records, ignore Resume Next Else MsgBox Err.Number & vbCrLf & Err.Description End If End Sub

السلام عليكم أحتاج إلى أمر / كود فيجوال يمكنني من إضافة ظل إلى نص . خلال عملي لـ template في الوورد احتجت إلى هذا الأول و قد بحثت و لم أجد إجابة واضحة فلم أحصل على الطريقة الملائمة للاستفادة من الخاصية .FONT.shadow بانتظار إسهاماتكم بارك الله بكم .

ياجماعة كان فيه أخ فاضل منزل برنامج كشوف الملاحظة وهو برنامج رائع بس أنا مش عارف أعدل في الكود عشان العدد في مدرستي كبير أكتر من 20 لجنة وهو متصمم على 16 لجنة بس فرجاء شرح الكود وكيفية التعديل عليه أولا ده الكود ملئ بيانات اليوم الأول: Sub يوم1فترة1() Application.ScreenUpdating = False Sheets("الكشاف").Range("a10:f" & ['الكشاف'!d3] + 9).Select Selection.Sort Key1:=Range("f10"), Order1:=xlAscending Sheets("الكشاف").Range("n10:p" & ['الكشاف'!d3] + 9).ClearContents r = 10 x = 10 xx = ['الكشاف'!d3] + 9 For i = x To xx If Sheets("الكشاف").Cells(i, 3) <> ['الكشاف'!p5].Value And Sheets("الكشاف").Cells(i, 3) <> ['الكشاف'!p6].Value And Sheets("الكشاف").Cells(i, 7) <> "-" And Sheets("الكشاف").Cells(i, 7) <> "" And Sheets("الكشاف").Cells(i, 4) <> "" Then ' Sheets("الكشاف").Cells(r, 14).Value = r - 59 Sheets("الكشاف").Cells(r, 14) = Sheets("الكشاف").Cells(i, 4) r = r + 1 End If Next i Sheets("الكشاف").Range("a10:f" & ['الكشاف'!d3] + 9).Select Selection.Sort Key1:=Range("a10"), Order1:=xlAscending Application.ScreenUpdating = True Range("n10").Select End Sub ثانيا ده الكود بتاع ملئ كشف الملاحظة Sub ملء1() Application.ScreenUpdating = False Sheets("كشوف الملاحظة").Range("f7:h40").ClearContents ff = Application.InputBox(prompt:="أدخل الرقم ", Title:="رقم العمود", Type:=1) r = 7 x = 10 xx = 40 For i = x To xx Sheets("كشوف الملاحظة").Cells(r, 6) = Sheets("الكشاف").Cells(i, ff) Sheets("كشوف الملاحظة").Cells(3, 6) = Sheets("الكشاف").Cells(9, ff) Sheets("كشوف الملاحظة").Cells(3, 9) = Sheets("الكشاف").Cells(8, ff + 2) Sheets("كشوف الملاحظة").Cells(4, 9) = Sheets("الكشاف").Cells(9, ff + 2) r = r + 1 Next i Application.ScreenUpdating = True End Sub فبرجاء شرح طريقة التعديل حتى يستوعب عدد أكبر من اللجان كشوف الملاحظة.xls

السلام عليكم ورحمة الله وبركاته بحثت عن طريقة لتخفيض أمان الاكسيس برمجيا، فوجدت طريقة للأخت زهرة بارك الله فيها ونفعنا وإياها بما تعلم. ولكن لم أستطع تنفيذ الكود مع الأكسيس ٢٠٠٧ حيث يمنع الاكسيس تنفيذ الملف الخاص بالمثال من العمل. فهل من مساعدة لتنفيذ ذلك على ٢٠٠٧ ولكم جزيل الشكر ومرفق المثال الخاص بها. zaAllAccesVersionAndSecurityLowLevel_Pro.rar

الساده السلام عليكم ورحمة الله وبركاته المرفق كود عمليه ضرب عمودين ووضع الناتج فى العمود الثالث من احد الساده الافاضل بالموقع وأريد شرح لخطوات الكود حتى أستطيع الاستفاده منه فى ملف أخر ولكن مسمى الأعمدة مختلفة Sub BOQ() For s = 1 To Sheets.Count Sheets(s).Select x = Cells.SpecialCells(xlCellTypeLastCell).Row For r = 8 To x If IsNumeric(Cells(r, "I")) = False Then Cells(r, "F").FormulaR1C1 = "=RC[2]*RC[4]" Next r Next s End Sub وشكرا

السلام عليكم هل يوجد حل لهذه المشكلة مع العلم انها تظهر في ويندوز 10 وفي الاصدارات الاخرى لاتظهر المشكلة في ملف عمل اكسيل 2003 و اكسيل 2010 نفس المشكلة يرجى الافادة وشكرا

السلام عليكم ورحمة الله وبركاته الرجاء المساعدة في حل مشكلة اولى تظهر عند تشغيل كود لتكرار اوراق وتعبئتها حسب الداتا الموجودة في ورقة ثانية . مشكلة تانية ظهور اصفار (0) عند عدم وجود احد البيانات والمفروض عدم ظهور شيء في الخلية وشكرا مقدماً ‏‏ورقة اسماء اولية.xlsm

السادة الأعزاء مرفق صورة لكود ترحيل لكن أجد عند تشغيل الكود رسالة خطأ ويقوم بعمل لون اصفر فوق Sub CommandButton1 رجاء المساعدة

السلام عليكم ورحمة الله وبركاته اساتذتي الكرام تابعت درس الاستاذ إياد شقورة حول المهارات الفنية في استخدام الحلقات التكرارية طبقت الدرس جيدًا لكن لا ادري لماذا يظهر لي خطأ عند تشغيل الكود هذا هو رابط الدرس المهارات الفنية في استخدام الحلقات التكرارية الجزء الثاني تجدون الكود في الـ UserForm1 صورة الخطأ والملف في المرفقات وجزاكم الله كل خير بيانات الموظف الشخصية.rar

السلام عليكم ورحمة الله اخواني الكرام (اعضاء وخبراء وعلماء) في هذا الصرح العملاق الذي طالما قدم ويقدم الكثير في مجال العلم والمعرفة أود أن أهنئكم وأهنئ نفسي اليوم بإفتتاح الاقسم الجديدة في الموقع التي سوف تقدم مجال واسع في تواصل ونشر المعرفة على مستوى الوطن العربي والعالم أيضاً وفي تلك المناسبة أود أن أقدم لكم كما وعدتكم في موضوعنا السابق وهو برنامج ومنظومة صرافة العملات بحلته وشكله الجديد هدية متواضعة مني لطلابنا الاعزاء وهي البرنامج نفسه ولكن مفتوح المصدر الآن تستطيع مشاهدة ومعرفة الكودات الموجودة في البرنامج وطريقة التصميم والبرمجة بكل بساطة وسهولة كل ماعليكم فعله تحميل الملف المرفق وفك الضغط وتفعيل الماكرو Office Soft.Financial Services Open Sorce.rar صور من البرنامج

تحياتى لاساتذه المنتدى الكرام هذا العمل مدمج من شرح بعض الاساتذه الكرام هل من الممكن الدمج بين كودين ووضعهم فى زر امر واحد ارجو منكم تعديل الكود المرفق فى الملف لترحيل الفاتوره ( شيت مشتريات ) الى شيت ( اضافه) وحفظ الفاتوره على صيغه pdf فى فلدر مشتريات ووضع لنك فى شيت (يوميه مشتريات ) ويجب عدم ترحيل الفاتوره بدون كتابه اسم العميل وعدم تكرار الفاتوره save pdf.rar

السلام عليكم و رحمة الله و بركاتة عندي مشكلة في النموذج المستمر (continuous form) كما هو مرفق في الصورة عندي مرتبات الأشخاص إذا أردت زيادة المرتب لجميع الأشخاص بقيمة معينة مثلا 500 بيغير المرتبات كلها بناءً علي أول مرتب و بكده كل المرتبات تبقي 5000 مع ان في موظفين رواتبهم أكثر و أقل من 4500 هل من مساعد .. هذا هو الكود الخاص بي

الاخوة الافاضل ارجوا سرعة الرد لدي ملف للتفقيط حاولت استخدامه مؤخرا في اكسل 2007 ووجدت الكلمات العربية غير مفهومة يرجى شرح كيف يمكن تعريبها او اذا كان الاكسل لدي ينقصه اي تعريف للغة

السلام عليكم اريد كود لزر امر يقوم بطباعة ملف مرتبط بكود العميل او باسم العميل بمعني اسم الملف يساوي كود العميل او اسمه مع جزيل الشكر

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

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

بسم الله و ما شاء الله اللَّهُمَّ انْفَعْنَا بِمَا عَلَّمْتَنَا , وَعَلِّمْنَا مَا يَنْفَعُنَا , وَزِدْنَا عِلْمًا إِلَى عِلْمِنَا اهداء لكل من شارك بعلمه اقل ما يقال لكم "عندما تنتهى كلمات الابداع و تبدأ من جديد و تنتهى عندكم" بارك الله لكم ( فكرة المدونة هى سهولة الوصول و البحث فى المنتدى للذهاب الى ملف _ المدونه الاصدار الاول من هنا مدونة اعمال ايقونات الماس لمنتدى اوفيسنا_سلسله تجميعيه ( موضوع مميز ) درس في الترحيل باستخدام الاكواد_ بدأه _ أ / عماد الحسامى شرح كيفية استخدام الخلايا في الاكسل عند استخدام ال vba _ بدأه _ أ / عماد الحسامى ( موضوع مميز )ملف كامل عن كيفية استحدام ال UserForm والتعامل مع كافة جوانبه_ بدأه _ أ / عماد الحسامى (موضوع مميز) شرح الجمل الشرطية واتخاذ القرارات في ال vba بالكامل من الالف للياء_ أ / عماد الحسامى شرح شريط أدوات _ أ / عماد الحسامى دالة مستحدثة جديدة ( RANKING للترتيب التلقائي ) _ أ / عماد الحسامى شرح جملة الدوران For ... Next (موضوع تعليمي) _ أ / عماد الحسامى ملف كامل للجمل الشرطية واستخدام الخلايا (موضوع تعليمي) _ أ / عماد الحسامى استيراد خلايا ذات تنسيق مختلف (عامودي الى افقي) _ أ / عماد الحسامى شرح كيفية عمل الكشوقات ذات المتغيرات المتعددة _ أ / عماد الحسامى الجمع بشرط ما بين تاريخين _ أ / عماد الحسامى و هشام شلبى كود تلوين الخلية المختارة واعادة التنسيق عند الخروج _ أ / عماد الحسامى و هشام شلبى كود بديل VLOOKUP & SUMPRODUCT _ أ / عماد الحسامى و هشام شلبى موضوع مميز_ كود بديل VLOOKUP & SUMPRODUCT مع شرح الكود _ أ / عماد الحسامى و هشام شلبى من هنا وهناك : نافذة للجميع لإضافة كل جديد وطريف في عالم الإكسيل _ أ / هشام شلبى بالكود_نموذج خفيف_ عكس النص او الرقم _ أ / هشام شلبى رقم أول وآخر سطر يحقق شرط معين _ أ / عماد الحسامى_و_ أ /عبدالله باقشير اهداء_موضوع مميز_فورم لدوال الاكسل_خطوه خطوه _ أ / عبدالله باقشير دليل المواضيع المثبتة _ بدأه _ أ /عبدالله باقشير _ منتدى اوفيسنا [موضوع مميز] دالة الصفيف kh_MatchArray لارجاع ارقام صفوف سجلات حسب شروط _ أ / عبدالله باقشير دروس عن المصفوفات _ أ / عبدالله باقشير فورم لحفظ نسخة من الملف _ أ / عبدالله باقشير كود جاهز_نسخ ورقة عمل بالكامل مع اعادة التسمية _ أ / عبدالله باقشير قوائم مخصصة على الفورم باستخدام كومندبار مع اضافة قوائم فرعية (اختياري) _ أ / عبدالله باقشير قوائم مخصصة على الفورم باستخدام CommandBars _ أ / عبدالله باقشير ملف لحوالي 560 لون مع المعلومات (Hex Code , RGB , MSAccess) _ أ / عبدالله باقشير فورم باوامر صناديق الحوار Application.Dialogs _ أ / عبدالله باقشير فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به _ أ / عبدالله باقشير فورم اختيار لون معين ومزجه واستخراج الاكواد الخاصة به _ أ / عبدالله باقشير هل تعلم---------- معلومات تخص ListBox _ أ / عبدالله باقشير بالكود_ نسخ صف مماثل بالتنسيقات والمعادلات _ أ / عبدالله باقشير استخلاص بيانات من عمود الى عمود آخر_مع عدم التكرار _ أ / عبدالله باقشير كود صغير جدا و لكن مفيد جدا_كود منع ادخال الارقام و الاسماء المكرره عند ادخالها فى عمودين _ أ / عبدالله باقشير بالكود ترحيل بيانات غير مكررة بشرط _ أ / عبدالله باقشير دوال لجمع قيم بين تاريخين_جمع نطاق بين تاريخين _ أ /عبدالله باقشير _ احمدزمان _ أبوعبد الله_اكسلجى كود اضافة صف_صفوف بنفس التنسيق و المعادلات بعدد محدد _ أ / أبوعبد الله_اكسلجى كود جاهز_لعمل اطار(سطر تحديد) مع اخر سطر به بيانات _ أ / أبوعبد الله_اكسلجى كود جاهز_اجبار المستخدم على ملىء خلايا او نطاق محدد _ أ / أبوعبد الله_اكسلجى كود ادراج صف جديد بدبل كليك مع نسخ المعادلات _ أ / أبوعبد الله_اكسلجى بالكود_ادراج أو حذف سطر بمعادلاته و تنسيقاته دبل كليك _ أ / أبوعبد الله_اكسلجى بالكود_فورم عرض تعليقات الخلايا _ أ / أبوعبد الله_اكسلجى اكواد مميزه مجمعه_للبيانات المكررة _اظهار_اخفاء_مسح_تلوين _ أ / أبوعبد الله_اكسلجى بالكود_sumif_لجمع قيم كثيرة_مع ترتيب ابجدى تلقائى _ أ / أبوعبد الله_اكسلجى شرح دالة TRUNC_جمع خليتين قرش و جنيه _ أ / أبوعبد الله_اكسلجى كود صغيرة و مفيدة جدا_ لتلوين الخلايا التي بها معادلات وكود للتراجع عن التلوين _ أ / أبوعبد الله_اكسلجى بالمعادلات_عدم التكرار و استخراج البيانات المكررة باستخدام التنسيق الشرطى _ أ / أبوعبد الله_اكسلجى معادلة CONCAT ومفهوم جديد وطريقة اسهل في دمج البيانات _ أ / أبوعبد الله_اكسلجى كود لتلوين وإلغاء تلوين كل الخلايا التي بها تعليقات COMMENTS _ أ / أبوعبد الله_اكسلجى كود لدمج البيانات مهما كان عدد الخلايا أو موقعها أو ترتيبها _ أ / أبوعبد الله_اكسلجى كود_ادراج صف جديد بين صفوف ورقة العمل _ أ / أبوعبد الله_اكسلجى كود صغير جدا و لكن مفيد جدا_ادراج تاريخ ادخال البيان _ أ / أبوعبد الله_اكسلجى بالكود و المعادلات_فلترة بدون تكرار للبيانات المكررة و ترحيلها الى صفحة جديده _ أ / أبوعبد الله_اكسلجى _ نزار سليمان عيد ألغاز إكسيلية (موضوع ترفيهي) _ _ أ / ياسر خليل أبو البراء المصفوفات في الإكسيل (نتعلم سوياً لنرتقي) - الحلقة الأولى _ أ / ياسر خليل أبو البراء دورة كاملة في المصفوفات Arrays من البداية إلى ما شاء الله (الحلقة الأولى) _ أ / ياسر خليل أبو البراء دورة كاملة في المصفوفات Arrays من البداية إلى ما شاء الله (الحلقة الثانية) _ أ / ياسر خليل أبو البراء وبضدها تتميز الأشياء (تجميعة Toggles) للشيء وعكسه _ أ / ياسر خليل أبو البراء حصرياً دالة معرفة UDF لمعرفة الرقم التسلسلي للوحة الأم MotherBoard Serial _ أ / ياسر خليل أبو البراء حصرياً استخراج ملف فلاشي من داخل مصنف ليكون ملف منفصل بذاته _ أ / ياسر خليل أبو البراء الإنشطار الكبير .. انشطار أوراق المصنف إلى مصنفات منفصلة _ أ / ياسر خليل أبو البراء فورم لتوليد أرقام عشوائية ما بين رقمين مع الاحتفاظ بقيم البداية والنهاية في الريجستري _ أ / ياسر خليل أبو البراء تقسيم أو شطر قائمة واحدة إلى قائمتين بالتساوي _ أ / ياسر خليل أبو البراء منع التكرار في عمود ومنع نسخ أكثر من خلية بالعمود _ أ / ياسر خليل أبو البراء تجميع القيم مع كل إدخال جديد في نفس الخلية Accumulator _ أ / ياسر خليل أبو البراء عمل طريق مختصر Shortcut على سطح المكتب للمصنف عن طريق الأكواد _ أ / ياسر خليل أبو البراء تحديد صف وعمود الخلية النشطة (تلوين العمود والصف باستخدام التنسيق الشرطي) _ أ / ياسر خليل أبو البراء بالكود و المعادلة_تجميع قيم و كميات لحساب او بند متكرر _ أ / ياسر خليل أبو البراء _ أ / أبوعبد الله_اكسلجى ( موضوع مميز ) بالكود_و_المعادلات_ استخراج الأسماء المكررة في قائمة _ مشاركات الاعضاء كود مميز_استخراج اسماء بدون تكرار مباشرة on air _ أ / عماد الحسامى و مشاركات الاعضاء امثلة عن كيفية استخدام أدوات الفورم (( متجدد ان شاء الله))_بدأه الاستاذ / ضاحي الغريب تكبير وتصغير الصورة داخل الفورم _ الاستاذ / ضاحي الغريب شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup _ أ / شوقي ربيع درس في طريقة التعامل مع ListView _ أ / شوقي ربيع حركة جديدة (اجعل الفورم يأخذ اي شكل تريده) _ أ / شوقي ربيع تفعيل عجلة الماوس في اليست بوكس و الكومبوبوكس _ أ / شوقي ربيع قوائم مخصصة على الز الايمن للماوس _ أ / شوقي ربيع شرح تحويل ملف الاكسل الى exe ثم تغيير الايقونة ثم Setup (شوقي ربيع) _ أ / شوقى ربيع طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة_ بدأه _ أ / حماده عمر طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة_ بدأه _ أ / حماده عمر طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة_ بدأه _ أ / حماده عمر طلب عند تشغيل كود معين ان يطلب كلمة سر لتشغيل هذا الكود _ أ / حمادة عمر كود تشغيل الفورم مع فتح الملف تلقائيا _ _ أ /حمادة عمر شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination _ أ / حسام عيسى _ الصقر شرح مبسط عن msgbox فى لغة البرمجه VBA _ أ / حسام عيسى سلسلة علمنى كيف اصطاد - الترحيل _ أ / حسام عيسى _ الصقر سلسلة علمنى كيف اصطاد - الحلقة التكرارية For next _ أ / حسام عيسى _ الصقر سلسلة علمنى كيف اصطاد ( الفورم ) Forms _ أ / حسام عيسى _ الصقر نظرة عامة حول النماذج وعناصر تحكم النماذج وعناصر تحكم ActiveX في ورقة عمل _ أ / حسام عيسى _ الصقر شرح مبسط عن النسخ والقص أو الترحيل بواسطة Destination _ أ / حسام عيسى _ الصقر سلسة علمنى كيف اصطاد - ( الداله MAX / الداله Min ) _ أ / حسام عيسى _ الصقر سلسة علمنى كيف اصطاد __ أ / حسام عيسى _ الصقر داله DateDif رائعه لايجاد الفرق بين تاريخين او طرح تاريخين_ أ / حسام عيسى _ الصقر شرح VLOOKUP وMATCH وINDEX وكيفية الربط بينهما _ أ / حسام عيسى _ الصقر اقدم لكم شرح مبسط لداله VLOOKUP للمبتدئين __ أ /حسام عيسى _ الصقر دعوة للتصفح داخل هذا الكنز _ أ / حسام عيسى _ الصقر و من روابط المنتدى داله IF بلا حدود الجديده مع الشرح_ أ / هادى محمد المامون سالم الماكرو للاستاذ هادي مأمون و شرح لبرنامج المصروفات _ مشاركة_ أ / محمد يحياوي اهداء الى الاستاذ / هادى محمد المامون سالم اظهار قيمة فى كمبو بوكس على اساس قيمة مختارة من كمبو بوكس اخر _ أ / هادى محمد المامون سالم تحويل ملف الاكسيل الى تنفيذى ثم تنصيب الملف بالصور _ أ / هادى محمد المامون سالم SumProduct - الجزء الأول _ أ / يحيى حسين (موضوع مميز ) اصنع صندوق الادوات وعناصر التحكم الخاصة بك في محرر الاكواد_ بدأه _ أ / محمد يحياوى اعادة الاكسل الى الاعدادات الافتراضية _ أ /محمد يحياوى ملف اكسل تنفيذي _ أ / محمد يحياوى بعض الاكواد المستخدمه مع التيكست بوكس_ أ / إبراهيم ابوليله اهداء للمنتدى-كود الذهاب الى شيت معين بعد ترك الملف غير نشط لمده من الزمن _ أ / إبراهيم ابوليله موضوع مميز---اظهار ناتج الجمع بناء على شروط فى حالة الفلتر _ أ / ابراهيم ابو ليلة اهداء الى المنتدى-شرح كيفية عمل بحث باستخدام conditional formatting _ أ / ابراهيم ابو ليلة سلسلة دروس التنسيق الشرطي Conditional Formatting للأستاذ إبراهيم أبو ليلة (إهداء للمنتدي) _ أ / ابراهيم ابو ليلة شغل برنامجك بدون تفعيل الماكرو لمن يعانون من تفعيل الماكرو _ أ / ياسر العربى ايقونات و ازرار الماكرو ( تصاميم مختلفة )_ بدأه _ أ / الجزيرة فكره مقتبسه من برنامج الاسيوطى المحاسبى (اختيار لون لبرنامجك بالتنسيق الشرطي) _ أ / ابو اياد ( الاسيوطى ) اهداء بسيط لاعضاء المنتدى الكريم اكواد الا خ زياد مع الشرح اكرمة الله_ أ / حسين شاكر هديتى مدونة_مينى كود_اسكتش_ترحيل_بحث_ادخال_فورم_متجدد _ جلال الجمال _ ابو ادهم هديتى مدونة_مينى كود_اسكتش_متجدد _ جلال الجمال_ابو أدهم هديتى مدونة_مينى كود_اسكتش_التنسيق_خلفيات_الخط_التظليل_متجدد _ جلال الجمال _ ابو ادهم كود مميز جاهز_كود دبل كليك لاستدعاء اى فورم ...الخ _ مشاركة / جلال الجمال_ابو أدهم ( VLOOKUP ) من البداية وحتى الاحتراف _ أ / خالد الرشيدى اخر قيمة مطابقة لقيمة البحث -- LOOKUP _ أ / خالد الرشيدى شرح الدالة INDIRECT _ أ / خالد الرشيدى شطب تواريخ الصلاحية المنتهية_ أ /محمد الريفى تعلم الداله sumifs بشكلها البسيط والمتقدم _ أ / محمد الريفى حالات متقدمه لدلة الجمع SUM _ أ / محمد الريفى دالة Hyperlink باسهل مما تتخيل _ أ / محمد الريفى ابجدة الاسماء بالمعادلات _ أ / محمد الريفى استخراج القيم بدون تكرار _ أ / محمد الريفى استخدام الدالة VLOOKUP من الواقع العملى -لقائمة اسعار _ أ / محمد الريفى استخدام دالة VLOOKUP فى الواقع العملى (البحث فى عدة صفحات) بشكل جديد وسهل _ أ / محمد الريفى Excel what-if analysis ادوات التحليل ماذا-لو؟ _ أ / محمد الريفى صيغ متقدمة فى دمج وتحويل _ أ / محمد الريفى ربط الحلايا / وتخطى الفراغات _ أ / محمد الريفى و مشاركات الاعضاء شرح الترحيل بالأكواد _ أ / محمود الشريف شرح مبسط لدالهIFERROR مع VLOOKUP فى استخدامها لإستعلام او الإستدعاء _ أ /محمود الشريف إستخدام جملة التكرار For ... Next _ أ / معتصم محمد جولة فى عالم الإكسل 2007 شرح الدوال Average و Min و Max و 3 دوال Coun _ أ / معتصم محمد المحافظة على مرونة جدول (لا نطاق ) في ورقة محمية فنزيد صفوفه _ أ / محمد حسن المحمد حل عمل " FREEZE " للوقت أو التاريخ بعيدا عن الأكواد والمعادلات _ أ / جمال عبد السميع شرح UserForm Spreadsheet _ أ / أبو تامر_عمر الحسينى دالة "IFYES" اقوى واسهل من "IF" مع احتمالات اكثر _ أ / أبو تامر_عمر الحسينى احدى الطرق لحساب نسبة معدلات الخصم او الاضافة _ _ أ / أبو تامر_عمر الحسينى إستيراد وتصدير جدول إكسيل من وإلى الأكسيس _ _ أ / أبو تامر_عمر الحسينى صمم توقيعك الخاص او علامتك المائية لملفاتك الخاصة _ أبو تامر _ عمر الحسينى موضوع مميز_عمل جمع تلقائى بواسطة Dynamic table Range مع الداله OFFSET _ أ / أبو تامر_عمر الحسينى كود جمع تلقائى ديناميكى بناء لمتغير محدد _ أ / أبو تامر_عمر الحسينى الحلول الذكية و شريط الادوات الذكية _ أبو تامر _ عمر الحسينى كيف تدرج دالة فى الاكسل لتكون متاحه لكل الملفات بإنشاء ملف ( AddIn ) يحتوى على دوالك الخاصة _ أبو تامر _ عمر الحسينى تصدير مدى محدد الى الوورد _ أبو تامر _ عمر الحسينى دالة تجزئة الاسماء و الارقام _ أبو تامر _ عمر الحسينى دالة اتخاذ القرار ( Resolve ) لتقيم التقديرات و المعدلات والنسب _ أبو تامر _ عمر الحسينى استرجاع اعدادات الاكسل الاصلية _ أبو تامر _ عمر الحسينى التخلص من علامات خطأ المعادلات _ أبو تامر _ عمر الحسينى نسخ الاكواد من ملف الى ملف _ أبو تامر _ عمر الحسينى أداة تحويل صيغ المعادلات الى اكواد _ أبو تامر _ عمر الحسينى التحكم بأشرطة الادوات والقوائم المنبثقة _ أبو تامر _ عمر الحسينى تلوين السطور الفردية أو الزوجية _ أبو تامر _ عمر الحسينى كيفية الحصول على سريال نمبر الهارد ديسك _ أبو تامر _ عمر الحسينى اعداد الجدول الزمنى للمشروعات ( مخطط جانت ) _ أبو تامر _ عمر الحسينى إستخراج النتائج بشرطين صيغة ظريفة سلسلة _ أبو تامر _ عمر الحسينى منع حفظ الملف بأسم آخر _ أبو تامر _ عمر الحسينى زيادة عملية التراجع و الإعادة ( Undo / Redo ) في الاكسل أكثر من 16 مرة اكسيل 11 _ أبو تامر _ عمر الحسينى اكواد و اوامر ( VBA ) مفيدة _ أبو تامر _ عمر الحسينى المدى او النطاق ( ثابت / ديناميكى ) _ أبو تامر _ عمر الحسينى الارقام العشوائية بدون تكرار _ أبو تامر _ عمر الحسينى دالة (VLOOKAnyCol) تبحث فى اى عمود من الجدول وتستخرج النتيجة من آخر _ أبو تامر _ عمر الحسينى ادراج مجموعة من الاسماء فى combobox _ أ / / أبو تامر_عمر الحسينى و خالد القدس تعلم فيجول بيسيك بالعربى من البداية _ اهداء الى _ أ / محمد طاهر _ مشاركة_ أ / أبو تامر_عمر الحسينى كود صغير جدا و لكن مفيد جدا_ازالة الاصفار و الفراغات من عمود مع اعادة الترتيب _ أ / أبو تامر_عمر الحسينى _ أ / أبوعبد الله_اكسلجى بالكود_التنبه عند تكرار قيمة _ أ / محمد طاهر معرفة هل السجل له مثيل و تحديد عدد التكرار _ أ / محمد طاهر أغلب اختصارات الاكسيل _ أ / محمد طاهر طريقة تصميم شيت على الاكسل _ أ / مجدى يونس التحكم بنطاق الخلايا الثابت داخل المعادلة وجعله متحركاً_دالة ( countif ) _ أ / أكرم الغامدي كود ممتاز لتلوين الخلية حسب قيمتها (شرح كود) _ أ / عبد الفتاح كيرة و مشاركات الاعضاء تنسيق شرطي للمعادلات _ أ / سليم حاصبيا The Duplicate _ أ / زياد علي Sorting and Subtotals _ أ / زياد علي الجدول الديناميكي _ أ / عادل حنفي افتح اي ملف وور او اكسل عن طريق الصندوق الحواري _ أ / عادل حنفي هل تود ان تكون مبرمجا علي الاكسل _ أ / عادل حنفي و مشاركات الاعضاء شرح لبعض اوامر الماكرو 2 _ أ / احمد حمور-ابوعبدالله هل تعلم؟؟ معلومات تهمك عن الاكسيل _ أ / رفيق محمد شرح فلاشي لدالة LOOKUP بتطبيقاتها الرائعة _ أ / أبو أكرم هدية مميزة:تظليل الخلية الفعالة _ أ / ياسر أحمد الشيخ sum product بعض استخدامات الداله _ أ / محمد عادل عبد الغنى إسترجاع و إزالة الوضع الإفتراضي لقوائم و أشرطة إكسل _ أ / halwim طريقة لتخفيف حجم ملفات إكسل بشكل مذهل _ أ / halwim عدة أمثلة لإستخدام التحقق من الصحة والتنسيق الشرطي _ أ / halwim شرح ايجاد الفرق بين تاريخين بالمعادلات و الاكواد (محاكاة الدلة DateDif) _ أ / ابو تراب تنسيقات غير تقليدية للأرقام بدأه / Sharaf و مشاركات الاعضاء دليلك لصناعة رسائل msgbox احترافية _ أ / محمد صالح الصناديق الحوارية فى الاكسل dialog boxes _أ / رجب جاويش احفظ ملف الاكسل باسم أي خلية مع امكانية تحديد مكان الحفظ _ أ / احمد فضيله كود جاهز_لحفظ ملف العمل و تسميته فى مسار محدد _ أ / أبو حنــــين استخراج قائمة بيانات غير مكررة أ / احمدزمان بالكود_اضافة ورقة عمل جديده منسوخه من شيت بتسميه جديده _ أ / ابو اسامة العينبوسي بالكود_استعرض خطوطك_FONT _ ا / ابو اسامة العينبوسي كود صغير جدا و لكن مفيد جدا_AUTO fit_تغير عرض العمود طبقا للنص و الرقم _ أ / الشيباني1 بالفورم اجراء عمليه حسابيه_قسمه و ضرب و طرح _ أ / طلعت محمد حسن دليل وظائف LOOP _ أ / الزباري مشاركة ملف الإكسيل لأكثر من مستخدم والتعديل عليه في نفس الوقت _ أ / الزباري طريقة مبسطة لتقسيم الصفحة مع تكرار العناوين وإضافة إجمالي لكل صفحة _ أ / الزباري _ _ أ / سليم حاصبيا IF FUNCTION _ أ / haroonqudah كود صغير جدا و لكن مفيد جدا_تلوين صف الخلية النشطة او الخلية فقط _ أ / h63 كود لاظهار الارقام الساقطة من التسلسل و الارقام المكرره _ مشاركات الاعضاء كود اظهار الحرف الاول من الكلمه او الصنف بعمود _ مشاركات الاعضاء بالكود و المعادللات_نقل بيانات من نطاق لاخر بنفس الصفحه _ مشاركات الاعضاء بالكود و المعادلات_استخراج اخر عملية لعميل معين _ مشاركات الاعضاء كود صغير جدا و لكن مفيد جدا_تلوين صف الخليه النشطه مع تحديد النطاق _ مشاركات الاعضاء كود صغير جدا و لكن مفيد جدا_كود حذف صفوف الارقام و الاسماء المكرره عند ادخالها _ أ / asmo200666 لنتعلم معا : دالة INDEX _ أ / مصطفى كمال و لا تنسونا من صالح الدعاء و لامى بالمغفره و الرحمه

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

شباب اريد داله او كود ليفعل التالي .