الـعيدروس

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

السلام عليكم احدث اي تغير في اي ورقة وشاهد التفاصيل في ورقة My_Con مانرجوه دعوة بظهر الغيب كmodi_ALI.rar

فرضا اسم الماكرو macro1 اذهب الى نافذة المطور انقر زر وضع التصميم ثم اذهب الى الزر وانقر عليه مرتين ثم اضف كلمة Call الى جانب اسم الماكرو لتكن كالتالي Call macro1 هكذا Private Sub CommandButton1_Click() Call macro1 End Sub

اخي الفاضل اين الترجمة هل تقصد جلب اكثر من سطر ؟؟ ارجو التوضيح

انظرالصورة في المرفقات

السلام عليكم عن إنشاء زر جديد إختار زر من مجموعة Activex أزرار Activex متوفر في الخصائص تغير لون الزر

السلام عليكم اشكرك استاذي الحبيب احمد يعقوب الاخ الفاضل سامي تم إختصار بعض الأكواد - وإضافة طباعة نتيجة البحث وضمن طلبك الاخير مسلسل لنتيجة البحث أرجو أن ينال إستحسانك نرضيك عسى تسامحنى على التأخير ALI_Form_Samy.rar

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

شرط جلب البيانات حسب إسم الملفات والمسميات بيانات1 و بيانات2 اذا تم تغير إسم المفات أو شرط الإسم يلزم تغيرها من الكود If [B4].Value = "جانفي" Then TY = "بيانات1" If [B4].Value = "فيفري" Then TY = "بيانات2" جربت الكود يعمل مزبوط

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

السلام عليكم تفضل الطلب الأول AlI_C.rar

السلام عليكم وبعد اذن استاذ الحبيب احمد زمان الاخ الفاضل samycalls تأخرت بالرد لسبب الظروف السموحه منك تفرغت اليوم شويات تفضل المرفق وأي إضافات أو تعديلات أنا موجود ورغم إنشغالي ولاكن الأساتذه الاجلاء لن يقصرو معاك تقبل تحياتي ALI_Form.rar

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

السلام عليكم جزاك الله خير أستاذ عبدالله فكرة جميلة جدا الاخ الفاضل Creation World جرب المرفق حسب فكرتك بالرقم الموجود في خلية H4 Change Color_ALI1.rar

السلام عليكم الاخ الفاضل Creation World جرب المرفق انقر على زر الفورم بتكرار ولاحظ والسلام عليكم Change Color_ali.rar

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

السلام عليكم جزاك الله الف خير استاذ عبدالله تقبل مروري وفائق تحياتي وشكري

السلام عليكم كود طباعة مدى متفرق إستعن بزر كنترول Ctrl للتحديد Sub Print_A() ' كود طباعة مدى متفرق Dim MY_ALI As Range, XX_ALI As Range Dim I_ALI As Integer With Application .DisplayAlerts = False Set MY_ALI = .InputBox(prompt:="حدد المدى المترفق الإستعانه بزر Ctrl", Type:=8) .ScreenUpdating = False Worksheets.Add End With With ActiveSheet For Each XX_ALI In MY_ALI.Areas XX_ALI.Copy Cells(Range("A1").SpecialCells(xlLastCell).Row + I_ALI, 1).Select I_ALI = 1 .Paste Next .PrintPreview .Delete End With End Sub

السلام عليكم كود لتكبر وتصغير وإستعادة وتحجيم يدوي بالماوس للفورم هذا في حدث الفورم Private Sub UserForm_Activate() A_FR Me End Sub وهذا في مودويل Public Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Public Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Public old_largeur As Long, handle As Long, old_hauteur As Long, newhauteur As Single, newlargeur As Single Sub A_FR(A As UserForm) old_largeur = A.InsideWidth: old_hauteur = A.InsideHeight handle = FindWindow("Thunder" & IIf(Application.Version Like "8*", "0*", "D") & "Frame", A.Caption) SetWindowLong handle, -16, GetWindowLong(handle, -16) Or &HC70000 End Sub

السلام عليكم كود لفتح باسورد محرر الأكواد تحط الأكواد في مدويل Sub PAS_ACTIVEBOOK() Call UnprotectVBProj1("123") End Sub Sub UnprotectVBProj1(ByVal Pwd As String) Dim vbProj As Object Set vbProj = ThisWorkbook.VBProject If vbProj.Protection <> 1 Then Exit Sub ' Set Application.VBE.ActiveVBProject = vbProj SendKeys Pwd & "~~" Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute End Sub وكإختصار يمكن فتح الباسور عن طريق زر فليكن F7 مثلا هكذا تحط الكود في مدويل Sub Auto_Open() Application.OnKey "{F7}", "PAS_ACTIVEBOOK" End Sub وهذا نفس غرض الكود السابق لفتح باسورد محرر الأكواد لجميع الكتب المفتوحة شرط أن يكون الباسورد واحد مثلا 123 Sub PAS_WBOOK() Dim WB As Workbook For Each WB In Application.Workbooks If Not WB.Name = ThisWorkbook.Name Then Call UnprotectVBProj(WB, "123") Next WB End Sub Sub UnprotectVBProj(ByRef WB As Workbook, ByVal Pwd As String) Dim vbProj As Object Dim OpenWindow As Object For Each OpenWindow In Application.VBE.VBProjects.VBE.Windows If InStr(1, OpenWindow.Caption, "(Code)") > 0 Then OpenWindow.Close Next DoEvents Set vbProj = WB.VBProject If vbProj.Protection <> 1 Then Exit Sub Set Application.VBE.ActiveVBProject = vbProj DoEvents SendKeys Pwd & "~~" Application.VBE.CommandBars(1).FindControl(ID:=2578, recursive:=True).Execute End Sub وهذا إختصار لعمل الكود F5 Sub Auto_Open() Application.OnKey "{F5}", "PAS_WBOOK" End Sub

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

السلام عليكم الاخ الفاضل skyblue ملف فارغ نرجو اضافة بيانات وهمية لمعرفة موضع روؤس الأعمدة تحياتي

السلام عليكم حقيقة أكواد قمة الروعة وهكذا في حدث االصفحة Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [B6]) Is Nothing Then ALI_C = Target.Value If Len(ALI_C) > 0 Then S = Mid(ALI_C, 1, 6) Z = S & Z + 1 + Right(ALI_C, 2) End If Application.EnableEvents = False Target.Offset(0, 2).Value = Z Application.EnableEvents = True End If End Sub

السلام عليكم الصق هذه السطر في حدث الفورم Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) Cancel = True End Sub

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