الـعيدروس

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

السلام عليكم بعد اذن استاذنا الحبيب ماس أخي الفاضل office 2003 إستخدم هذا الكود إن شاء الله يفي بالغرض Sub MKARNH_ALI() Application.ScreenUpdating = False Range("C2:D2,E2:F65536").ClearContents Q = [A15000].End(xlUp).Row For R = 2 To Q If Application.WorksheetFunction.CountIf([B2:B5000], Cells(R, 1)) = 0 Then With Columns(5).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 1) End With End If Next RO = [B15000].End(xlUp).Row For R = 2 To RO If Application.WorksheetFunction.CountIf([A2:A5000], Cells(R, 2)) = 0 Then With Columns(6).Rows(65536).End(xlUp) .Offset(1, 0) = Cells(R, 2) End With End If Next T = [E15000].End(xlUp).Row Z = [F15000].End(xlUp).Row [C2].Value = Application.WorksheetFunction.Count(Range([E2], Cells(T, "E"))) [D2].Value = Application.WorksheetFunction.Count(Range([F2], Cells(Z, "F"))) Application.ScreenUpdating = True MsgBox "الحمد لله", vbInformation, "تمت المقارنة" End Sub وهذا المرفق Q_ALi.rar

السلام عليكم الاستاذ الوالد naderwatfa حفظك الله عمل تستحق عليه كل الشكر والتقدير جعله الله في ميازين حسناتك وفقك الله وسدد خطاك === واما الإكسل يخوننا في ضعف قاعدة البيانات لو وصل كبره فوق 3000 ك ب يصير ثقيل مرة === تقبل مروري

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

السلام عليكم جزاكم الله اساتذتي الافاضل - ماس أبو اسامه - عبدالله المجرب الأخ الفاضل ببساطة لو ممكن توضح مالفائده من هذه الحركه أو لماذا تستخدمها مثلا استخدمها لعمل الشيء الفلاني ربما نتوصل الى حل اخر بفكره اخرى والسلام عليكم

السلام عليكم الاخ الفاضل اثير فعلا ماتفضل به استاذنا الحبيب يحيى حسين أنا مجرب ولاكن من حفظ بأسم الأدوات وحط مثلاً [/b] [b]@@$@@ وجرب أي برنامج لفك الباسور يقعد يحوس ساعه والاخر مايطلع شيء

السلام عليكم استاذنا الحبيب احمد زمان ماشاء الله عليكم مابقيتو شيء لكم في المعادلات والأكواد زادك الله من فضله وعلمه

السلام عليكم الأستاذ الحبيب عبدالله المجرب جزاك الله خير على هذا المجهود الطيب بالنسبة للمدى المرن بإمكاننا نخليه بموجب عمود كامل دون تحديد مدى معين بتكون هكذا الدالة =OFFSET(ورقة1!$C$1;0;0;COUNTA(ورقة1!$C:$C);1)

وهذا نفس الملف اوفيس 2003 DATABES_A2003.rar

السلام عليكم جرب المرفق وأي ملاحظات اخرى انا موجود للعلم تم الحفظ على أوفيس 2007 هل الاوفيس الذي لديك 2007 ام 2003 DATABES_A.rar

السلام عليكم بالنسبة لتنسيق التاريخ في الكمبوكس استخدم هذا الكود Private Sub ComboBox1_Click() Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "dd/mm/yy") End Sub

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

يعني شيت حديثي الدخول بيكون فيه فورم إضافة ( لنفس الشيت ) وفورم (ترحيل إلى شيت المقيمين بالكامل - وحذفه من شيت حديثي الدخول)

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

اخي الفاضل ضى النور عمل تنسيقات على صفوف الورقة كامل بيأثر في سرعة فتح الملف كثير ؟؟؟؟ فلماذا هذا التنسيق كله

السلام عليكم اخي الفاضل ضى النور لاعليك ولاكن كان بإمكانك طرح ماتبقى من المطلوب كي يسهل العمل على الاخوان لانه ماتبقى الإ القليل وعلى العموم وضح الطلب الذي في شيت حديثي الدخول ============================== مطلوب لما الشخص ياخد رقم اقامة يرحل للشيت المقمين البيانات الى ""تترحل رقم الاقامة الاسم وname والجنسية " إقتباس" ============================== هل تريد عند إدخال إسم جديد في هذا الشيت أن يرحل للشيت ( نفسه ) ولشيت ( المقيمين بالكامل ) في اّ ن واحد أم مأأذا ؟؟؟؟ واما شيت الهاربين فورم ( الهاربين ) بيجلب البيانات من شيت المقيمين بالكامل ( شغال مافيه شيء)

الشـرح ===>> E_P.rar

السلام عليكم ولتعدد الحلول يمكن تثبيت طابعة وهمية للـ PDF اليكم برنامج الطابعة الوهمية والشرح الطابعة الوهمية ===>> RonyaSoft PDF Printer 1.01 Install.rar

السلام عليكم Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function SetWindowPos Lib "user32.dll" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Function GetActiveWindow Lib "user32.dll" () As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function BringWindowToTop Lib "user32.dll" (ByVal hWnd As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long Const GWL_STYLE = -16 Const WS_CAPTION = &HC00000 Const WS_SYSMENU = &H80000 Private Const GWL_EXSTYLE = (-20) Private Const WS_EX_LAYERED = &H80000 Private Const LWA_ALPHA = &H2 Dim hWnd As Long '=================================================== Private Sub UserForm_Initialize() On Error Resume Next Dim lngWindow As Long, lFrmHdl As Long lFrmHdl = FindWindow(vbNullString, Me.Caption) lngWindow = GetWindowLong(lFrmHdl, GWL_STYLE) lngWindow = lngWindow And (Not WS_CAPTION) Call SetWindowLong(lFrmHdl, GWL_STYLE, lngWindow) Call DrawMenuBar(lFrmHdl) End Sub الصق الكود في بداية أكواد الفورم وهذا مرفق اطلع عليه F_HID.rar

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

السلام عليكم الاستاذ ماس بارك الله الملف يعمل بكفائه عاليه عند الضغط على حضور يطبع في التاريخ المحدد للموظفين 1 كاملا وعند الضغط على غياب يطبع في التاريخ المحدد للموظفين 2 كاملا بورك فيك للعلم عندي حدثت مشكلة وهي اثبات المتغيرات اثبتها ومشي الحال تقبلو مروري

اكسس بدأت أكرهك كنت افكر اتعلم الاكسس ولاكن ولا رد حتى يجينى الأمل أنه اذا صعب علينا شيء نلقا صقور الاكسس لاكن للاسف اكرهك يااكسس

السلام عليكم الاخ الفاضل ابو الحسن لكي تستفيد اكثر راجع هذا الموضوع وبه ماتريد واكثر روح على مشاركة رقم 12 http://www.officena.net/ib/index.php?showtopic=34088&st=0 والسلام عليكم

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

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