أبومروان

وعليكم السلام ورحمه الله وبركاته بعد اذن الاستاذ @عبدالله بشير عبدالله اظهار عندما تكون الخليه A1 نشطه Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$A$1" Then Application.Dialogs(xlDialogFormulaReplace).Show arg1:="find", arg2:="replace" End If End Sub

وعليكم السلام ورحمه الله

شاهد هذا موضوع أدناه ⬇️ رائع جدا وان شاء الله يفيدك

وعليكم السلام ورحمه الله استاذ @محمد عدنان ممكن ترفع الملفات للعمل عليها افضل 🌹. وانتظر الاجابه من الساده خبراء المنتدى 🌹.

Sub MailSelectionRange_Outlook() Dim rng As Range Dim OutApp As Object Dim OutMail As Object Set rng = Selection Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(0) On Error Resume Next With OutMail .To = "recipient@example.com" .CC = "" .BCC = "" .Subject = "Date Range Selection" .Body جرب هذا قد يفيدك

لتغيير لغة عربية إلى لغة إنجليزية في عمود معين في Excel: Sub ChangeArabicEnglish() Dim i, j As Integer For i = 1 To 10 For j = 1 To 10 Cells(i, j).Value = StrConv(Cells(i, j).Value, vbProperCase) Next j Next i End Sub هذا الكود سوف يحول أي نص عربي في العمود المحدد للغة إنجليزية. يمكنك أيضًا تحديد عمود أو صف يحتوي على النص الذي تريد تغييره إلى إنجليزي، عن طريق تحديد الخطوة الاخيرة في الأوامر في الكود أعلاه.

Sub Merge() ActiveWorkbook.MailMerge.OpenDataSource Name:= _ "C:\Users\User\Desktop\MyData.xlsx", _ ReadOnly:=True, LinkToSource:=True, _ AddToRecentFiles:=False, _ Format:=wdOpenFormatAuto, _ Connection:="Data Source=C:\Users\User\Desktop\MyData.xlsx;Mode=Read;Extended Properties=""HDR=YES;IMEX=1""" Documents.Open FileName:="C:\Users\User\Desktop\MyDocument.docx" ActiveDocument.MailMerge.Destination = wdSendToNewDocument ActiveDocument.MailMerge.Execute End Sub يمكنك استخدام الأمر VBA MailMerge لدمج المراسلات من Excel إلى Word. على سبيل المثال، يمكنك استخدام الأمر التالي لدمج البيانات الموجودة في عمود A الصفوف 2 إلى 10 في عمود B من جدول ما في كتاب Excel إلى ورقة مستند Word: جرب هذا الكود لعله يفيدك

Sub MergeSheets() Dim wb As Workbook Dim sht As Worksheet Dim vFiles As Variant Dim fName As Variant Dim i As Integer Application.ScreenUpdating = False vFiles = Application.GetOpenFilename(FileFilter:="Excel Files (*.xlsx), *.xlsx", MultiSelect:=True) If TypeName(vFiles) = "Boolean" Then MsgBox "No files were selected" Exit Sub End If Set wb = Workbooks.Add For Each fName In vFiles Set sht = Workbooks.Open(fName).Sheets(1) sht.Copy After:=wb.Sheets(wb.Sheets.Count) Workbooks(fName).Close False Next Application.ScreenUpdating = True End Sub جرب هذا الكود وعدل عليه حسب الرغبه لعله يفيدك

بارك الله فيك وجزاك الله خيرا 🌹🌹

بارك الله فيك وجزاك الله خيرا 🌹🌹

وجزاك خيرا ❤️❤️ واقرا الموضوع وان شاء الله تستفيد بيه شرح للمتغيرات

يستخدم الكود أعلاه للإعلان عن متغيرين ، iRow و ws. تم التصريح عن المتغير iRow كنوع بيانات طويل ، وهو نوع بيانات عدد صحيح يمكنه الاحتفاظ بقيم من -2،147،483،648 إلى 2،147،483،647. يتم التصريح عن المتغير ws ككائن ورقة عمل ويتم تعيينه للإشارة إلى ورقة العمل المسماة "data"

Private Sub Form_Load() Image1.Picture = LoadPicture("C:\Users\username\Pictures\image.jpg") End Sub دا كود لتحميل صوره علي الفورم يقد يفيدك

لإنشاء هذا التأثير باستخدام VBA، يجب عليك استخدام برنامج المعالجة المخصص للإجراء الذي يسمى "Change"، الذي ينفذ في الوقت الذي تغير الحقل النصي. يمكنك إنشاء هذا الإجراء باستخدام التالي: Private Sub TextBox1_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox2_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox3_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox4_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox5_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox6_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox7_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox8_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox9_Change() TextBox11.Value = "تم التغيير" End Sub Private Sub TextBox10_Change() TextBox11.Value = "تم التغيير" End Sub

بارك الله فيك ي ا أستاذ @ابراهيم الحداد 🌹🌹🌹

الف مليون مبروك بالتوفيق دايما 🎊🎊🎊🎊

Private Sub UserForm_Initialize() Dim LastRow As Long Dim LastCol As Long Dim Criteria1 As String Dim Criteria2 As String Dim Result As String LastRow = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row LastCol = Sheet1.Cells(1, Sheet1.Columns.Count).End(xlToLeft).Column Criteria1 = Sheet1.Range("A2").Value Criteria2 = Sheet1.Range("B2").Value Result = Application.Vlookup(Criteria1 & Criteria2, Sheet1.Range(Sheet1.Cells(1, 1), Sheet1.Cells(LastRow, LastCol)), 3, False) Me.TextBox1.Value = Result End Sub ممكن تجرب هذا الكود لعله يفيد وعدل عليه حسب الرغبه

Application.PrintOut Copies:=4, Printer:="HP Printer", Collate:=True

الله ينور عليك

بارك الله فيك وجزاك الله خيرا

بارك الله فيك وجزاك الله خيرا

السلام عليكم يدفعنى الاندهاش الى المعرفة ، فيشعرنى بجهلى سلسله شروحات أكثر من رائعة تحياتي لشخصك الكريم كيف جعلت الفورم لا يحمل سوا صوره واحده داخل محرر الاكواد لو أردنا اظهار باقي صفحات الانفوجرافيك داخل محرر الاكواد كيف نفعل؟

جزاكم الله خيرا ونفع بكم

🌤منتظرين المزيد والمزيد من البرامج والمشروعات الابداعيه وممكن كمان اضافه خيار إرسال المرفق للواتساب بدل الميل 🌤 ‏

ارفق ملف وخبراء المنتدى سوف يقومون بالمساعدة أن شاء الله اعتقد بان هذا الموضوع قد يفيدك